Franck HOUSSEN
78d781286a
* stat: initialize common block. * Move debug_init.f90/stat_init.f90 to dbgini.f/staini.f. In cases where one has 2 fortran compilers (F77+F90), the reference code base and (missing) related common initialisations will be compiled consistently by the same (F77) compiler. F90 will handle ICB (f2003-f2008) that could not be compiled by F77. Note: in F77, code starts at col 7, continuation line with & at col 6, length line is limited, names must be smaller than 7 chars (no underscore). * [BUG FIX] compile dbgini.f staini.f with AND without ICB.
14 lines
670 B
FortranFixed
14 lines
670 B
FortranFixed
c Initialisation of the debug common block to "no debug".
|
|
block data dbgini
|
|
common /debug/ logfil, ndigit, mgetv0,
|
|
& msaupd, msaup2, msaitr, mseigt, msapps, msgets, mseupd,
|
|
& mnaupd, mnaup2, mnaitr, mneigh, mnapps, mngets, mneupd,
|
|
& mcaupd, mcaup2, mcaitr, mceigh, mcapps, mcgets, mceupd
|
|
data logfil, ndigit, mgetv0,
|
|
& msaupd, msaup2, msaitr, mseigt, msapps, msgets, mseupd,
|
|
& mnaupd, mnaup2, mnaitr, mneigh, mnapps, mngets, mneupd,
|
|
& mcaupd, mcaup2, mcaitr, mceigh, mcapps, mcgets, mceupd
|
|
& / 6, -3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
& 0, 0, 0, 0, 0, 0 /
|
|
end
|