[Fortran] 纯文本查看 复制代码
……
implicit none
include 'Include/pars.h'
include 'Include/parschim.h'
include 'Include/chimer.h'
include 'Include/indx.h'
include 'Include/inxblk.h'
include 'Include/dilution.h'
include 'Include/ntt.h'
include 'Include/parallel_f.h'
include 'Include/rad1.h'
include 'Include/rad4.h'
include 'Include/vary.h'
include 'Include/cons.h'
#ifdef PARALLEL
include 'Include/filenm.h'
include 'Include/spray1.h'
integer argc
character*80 argv(0:MAXARGS)
#endif /* PARALLEL */
include 'Include/ignite1.h'
include 'Include/control.h'
integer iexit, nn
real*8 time
logical abort
c
c
#ifdef PARALLEL
……