Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by heimbach, Mon Oct 27 22:32:55 2003 UTC | revision 1.8 by heimbach, Tue Mar 23 19:42:53 2004 UTC | |
---|---|---|
# | Line 62 c-- Optimization parameters. | Line 62 c-- Optimization parameters. |
62 | & nend, | & nend, |
63 | & grdchkvarindex, | & grdchkvarindex, |
64 | & useCentralDiff, | & useCentralDiff, |
65 | & grdchkwhichproc | & grdchkwhichproc, |
66 | & iGloPos, | |
67 | & jGloPos, | |
68 | & kGloPos, | |
69 | & obcsglo, | |
70 | & recglo | |
71 | ||
72 | jtlo = mybylo(mythid) | jtlo = mybylo(mythid) |
73 | jthi = mybyhi(mythid) | jthi = mybyhi(mythid) |
# | Line 77 c-- Optimization parameters. | Line 82 c-- Optimization parameters. |
82 | ||
83 | c-- Set default values. | c-- Set default values. |
84 | grdchk_eps = 1. _d 0 | grdchk_eps = 1. _d 0 |
85 | nbeg = 1 | nbeg = 0 |
86 | nend = 1 | nend = 0 |
87 | nstep = 1 | nstep = 0 |
88 | useCentralDiff = .TRUE. | useCentralDiff = .TRUE. |
89 | grdchkwhichproc = 0 | grdchkwhichproc = 0 |
90 | iGloPos = 0 | |
91 | jGloPos = 0 | |
92 | kGloPos = 1 | |
93 | obcsglo = 1 | |
94 | recglo = 1 | |
95 | ||
96 | c-- Check versions. | c-- Check versions. |
97 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |