src/ness/source.inc

Fortran project SIMRES, source module src/ness/source.inc.

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