WOFZ Subroutine

private subroutine WOFZ(XI, YI, U, V, FLAG)

Given a complex number Z = (XI,YI), this subroutine computes the value of the Faddeeva function W(Z) = exp(-Z2)erfc(-IZ), where erfc is the complex complementary error function and I is the imaginary unit.

Arguments

Type IntentOptional Attributes Name
real :: XI
real :: YI
real :: U
real :: V
logical :: FLAG

Calls

proc~~wofz~~CallsGraph proc~wofz WOFZ dcos dcos proc~wofz->dcos dexp dexp proc~wofz->dexp dsin dsin proc~wofz->dsin idint idint proc~wofz->idint idnint idnint proc~wofz->idnint

Called by

proc~~wofz~~CalledByGraph proc~wofz WOFZ proc~dispfunct dispfunct proc~dispfunct->proc~wofz proc~calc_ypsilon calc_ypsilon proc~calc_ypsilon->proc~dispfunct proc~calc_chi calc_chi proc~calc_chi->proc~calc_ypsilon proc~disp disp proc~disp->proc~calc_chi proc~calc_eigen calc_eigen proc~calc_eigen->proc~disp proc~map_search map_search proc~map_search->proc~disp proc~refine_guess refine_guess proc~map_search->proc~refine_guess proc~om_double_scan om_double_scan proc~om_double_scan->proc~disp proc~om_double_scan->proc~calc_eigen proc~secant secant proc~om_double_scan->proc~secant proc~om_scan om_scan proc~om_scan->proc~disp proc~om_scan->proc~calc_eigen proc~om_scan->proc~secant proc~refine_guess->proc~disp proc~refine_guess->proc~secant proc~secant->proc~disp program~alps alps program~alps->proc~map_search program~alps->proc~om_double_scan program~alps->proc~om_scan program~alps->proc~refine_guess