planck.F [SRC] [CPP] [JOB] [SCAN]
SEQCODE / FUNCTIONSSOURCES/FUNCTIONS [=]


   1 | include(dom.inc)
   2 | 
   3 |       FUNCTION planck(temp)
   4 | 
   5 |       IMPLICIT NONE
   6 | 
   7 |        include 'dom_constants.h'
   8 | 
   9 |       DOM_REAL, INTENT(IN) :: temp
  10 |       DOM_REAL :: planck
  11 | 
  12 |       planck=sigma*(temp)**4/pi
  13 | 
  14 |       END FUNCTION  planck

planck.F could be called by:
band_integ.F [SOURCES/SCHEMES] - 53
emissiv.F [SEQCODE/MODEL] - 14 - 24 - 31
emissiv.F [SOURCES/MODEL] - 30 - 53 - 63
fsck_case.F [SEQCODE/MODEL] - 20
fsck_case.F [SOURCES/MODEL] - 34
gray_case.F [SOURCES/MODEL] - 34 - 61 - 72 - 95 - 106
Makefile [TOOLS/RAY] - 62
Makefile [SEQCODE] - 59
Makefile [SOURCES] - 85 - 183
Makefile [TOOLS/TABFSCK] - 59
planck.F [SEQCODE/FUNCTIONS] - 10 - 12
planck.F [SOURCES/FUNCTIONS] - 10 - 13
ray.F [TOOLS/RAY/SRC] - 23 - 250 - 256 - 345 - 390 - 392 - 393
slave.F [SOURCES/MAIN/SLAVE] - 442
tabfsck.F [TOOLS/TABFSCK/SRC] - 23 - 109
tab_case.F [SOURCES/MODEL] - 32
tab_case.F [TOOLS/RAY/SRC] - 27
wsgg_case.F [SEQCODE/MODEL] - 13 - 70
wsgg_case.F [SOURCES/MODEL] - 34