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:
emissiv.F [SEQCODE/MODEL] - 14 - 24 - 31
emissiv.F [SOURCES/MODEL] - 32 - 52 - 62
fsck_case.F [SEQCODE/MODEL] - 20
fsck_case.F [SOURCES/MODEL] - 37
fulldomasium.f90 [SEQCODE/FULLDOMASIUM] - 1467 - 1491 - 1496 - 1510 - 1514 - 2229
Makefile [TOOLS/RAY] - 62
Makefile [SEQCODE] - 59
Makefile [SOURCES] - 88
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] - 454
tabfsck.F [TOOLS/TABFSCK/SRC] - 23 - 109
tab_case.F [SOURCES/MODEL] - 35
tab_case.F [TOOLS/RAY/SRC] - 27
wsgg_case.F [SEQCODE/MODEL] - 13 - 70
wsgg_case.F [SOURCES/MODEL] - 37