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.
20 lines
870 B
FortranFixed
20 lines
870 B
FortranFixed
c Initialisation of the stat common block.
|
|
block data staini
|
|
common /timing/
|
|
& nopx, nbx, nrorth, nitref, nrstrt,
|
|
& tsaupd, tsaup2, tsaitr, tseigt, tsgets, tsapps, tsconv,
|
|
& tnaupd, tnaup2, tnaitr, tneigh, tngets, tnapps, tnconv,
|
|
& tcaupd, tcaup2, tcaitr, tceigh, tcgets, tcapps, tcconv,
|
|
& tmvopx, tmvbx, tgetv0, titref, trvec
|
|
data nopx, nbx, nrorth, nitref, nrstrt,
|
|
& tsaupd, tsaup2, tsaitr, tseigt, tsgets, tsapps, tsconv,
|
|
& tnaupd, tnaup2, tnaitr, tneigh, tngets, tnapps, tnconv,
|
|
& tcaupd, tcaup2, tcaitr, tceigh, tcgets, tcapps, tcconv,
|
|
& tmvopx, tmvbx, tgetv0, titref, trvec
|
|
& / 0, 0, 0, 0, 0,
|
|
& 0., 0., 0., 0., 0., 0., 0.,
|
|
& 0., 0., 0., 0., 0., 0., 0.,
|
|
& 0., 0., 0., 0., 0., 0., 0.,
|
|
& 0., 0., 0., 0., 0. /
|
|
end
|