planck.F [SRC] [CPP] [JOB] [SCAN]
TOOLS / COMMON / 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:
deri_kappa.F [SOURCES/SCHEMES] - 26 - 38
emissiv.F [SOURCES/MODEL] - 31 - 54 - 69
fsck_case.F [TOOLS/COMMON/MODEL] - 32
fsk_case.F [TOOLS/COMMON/MODEL] - 20
Makefile [TOOLS/RAY] - 62
Makefile [SOURCES] - 87
Makefile [TOOLS/TABFSK] - 59
planck.F [TOOLS/COMMON/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] - 516
tabfsk.F [TOOLS/TABFSK/SRC] - 23 - 142
tab_case.F [TOOLS/RAY/SRC] - 27
wsgg_case.F [TOOLS/COMMON/MODEL] - 13 - 70