Source module last modified on Sat, 21 May 2005, 17:50;
HTML image of Fortran source automatically generated by
for2html on Mon, 23 May 2005, 21:29.
# source flux description
real*8 sflux ! total flux [1e14 n/s/cm²]
real*8 stemp ! source temperature [K]
# flux lookup table, lambda dependence
real*8 flxlam(256),flxdist(256),flxdlam ! dPhi/dLambda [1e12 n/s/cm²/Ang]
integer*4 flxn,flxlog ! number of points, log-scale
# horizontal distribution (x, alpha)
real*8 flxhp(64,64),flxhx,flxha ! array, spatial and angular half-widths
integer*4 flxhnx,flxhna ! actual table size
# horizontal distribution (x, alpha)
real*8 flxvp(64,64),flxvx,flxva ! array, spatial and angular half-widths
integer*4 flxvnx,flxvna ! actual table size
# special setting
real*8 flxh,flxv ! angular limits [rad]
real*8 flx0,flxa,flxb ! offset, gradient, 2nd der. along X
real*8 fly0,flya,flyb ! offset, gradient, 2nd der. along Y
common /source/ sflux,stemp,flxlam,flxdist,flxdlam,
& flxh,flxv,
& flxhp,flxhx,flxha,flxvp,flxvx,flxva,
& flx0,flxa,flxb,fly0,flya,flyb,
& flxn,flxlog,flxhnx,flxhna,flxvnx,flxvna