-
Notifications
You must be signed in to change notification settings - Fork 124
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
stat: initialize common block. (#148)
* 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.
Showing
6 changed files
with
42 additions
and
20 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,13 @@ | ||
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 |
This file was deleted.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,19 @@ | ||
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 |