9 |
c started: Christian Eckert eckert@mit.edu 01-Mar-2000 |
c started: Christian Eckert eckert@mit.edu 01-Mar-2000 |
10 |
c |
c |
11 |
c changed: Christian Eckert eckert@mit.edu |
c changed: Christian Eckert eckert@mit.edu |
12 |
|
c heimbach@mit.edu 24-Feb-2003 |
13 |
c |
c |
14 |
c |
c |
15 |
c ================================================================== |
c ================================================================== |
25 |
& grdchk_eps |
& grdchk_eps |
26 |
_RL grdchk_eps |
_RL grdchk_eps |
27 |
|
|
28 |
|
common /grdchkparms_l/ |
29 |
|
& useCentralDiff |
30 |
|
logical useCentralDiff |
31 |
|
|
32 |
common /grdchkparms_i/ |
common /grdchkparms_i/ |
33 |
& nbeg, |
& nbeg, |
34 |
& nend, |
& nend, |
35 |
& nstep, |
& nstep, |
36 |
& grdchkvarindex |
& grdchkvarindex, |
37 |
|
& grdchkwhichproc |
38 |
integer nbeg |
integer nbeg |
39 |
integer nend |
integer nend |
40 |
integer nstep |
integer nstep |
41 |
integer grdchkvarindex |
integer grdchkvarindex |
42 |
|
integer grdchkwhichproc |
43 |
|
|
44 |
common /grdchk_r/ |
common /grdchk_r/ |
45 |
& fcrmem, fcpmem, |
& fcrmem, fcppmem, fcpmmem, |
46 |
& xxmemref, xxmempert, |
& xxmemref, xxmempert, |
47 |
& gfdmem, adxxmem, |
& gfdmem, adxxmem, ftlxxmem, |
48 |
& ratiomem |
& ratioadmem, ratioftlmem |
49 |
_RL fcrmem ( maxgrdchecks ) |
_RL fcrmem ( maxgrdchecks ) |
50 |
_RL fcpmem ( maxgrdchecks ) |
_RL fcppmem ( maxgrdchecks ) |
51 |
_RL xxmemref ( maxgrdchecks ) |
_RL fcpmmem ( maxgrdchecks ) |
52 |
_RL xxmempert ( maxgrdchecks ) |
_RL xxmemref ( maxgrdchecks ) |
53 |
_RL gfdmem ( maxgrdchecks ) |
_RL xxmempert ( maxgrdchecks ) |
54 |
_RL adxxmem ( maxgrdchecks ) |
_RL gfdmem ( maxgrdchecks ) |
55 |
_RL ratiomem ( maxgrdchecks ) |
_RL adxxmem ( maxgrdchecks ) |
56 |
|
_RL ftlxxmem ( maxgrdchecks ) |
57 |
|
_RL ratioadmem ( maxgrdchecks ) |
58 |
|
_RL ratioftlmem ( maxgrdchecks ) |
59 |
|
|
60 |
common /grdchk_i/ |
common /grdchk_i/ |
61 |
& ncvarcomp, maxncvarcomps, |
& ncvarcomp, maxncvarcomps, |