41 |
_RL ff |
_RL ff |
42 |
_RL dfminFrac |
_RL dfminFrac |
43 |
|
|
44 |
#if defined (DYNAMIC) |
#ifdef DYNAMIC |
45 |
_RL vv(nn) |
_RL vv(nn) |
|
#elif defined (USE_POINTER) || (MAX_INDEPEND == 0) |
|
|
_RL vv |
|
|
pointer (pvv,vv(1)) |
|
46 |
#else |
#else |
47 |
integer nmax |
integer nmax |
48 |
parameter( nmax = MAX_INDEPEND ) |
parameter( nmax = MAX_INDEPEND ) |
92 |
open(unit = modeldataunit,file = 'data.ctrl', |
open(unit = modeldataunit,file = 'data.ctrl', |
93 |
& status = 'old', iostat = errio) |
& status = 'old', iostat = errio) |
94 |
if ( errio .lt. 0 ) then |
if ( errio .lt. 0 ) then |
95 |
stop ' stopped in optim_numbmod while opening data.ctrl' |
stop ' stopped in optim_readparms while opening data.ctrl' |
96 |
endif |
endif |
97 |
|
|
98 |
do while ( .true. ) |
do while ( .true. ) |
115 |
open(unit = modeldataunit,file = 'data.optim', |
open(unit = modeldataunit,file = 'data.optim', |
116 |
& status = 'old', iostat = errio) |
& status = 'old', iostat = errio) |
117 |
if ( errio .lt. 0 ) then |
if ( errio .lt. 0 ) then |
118 |
stop ' stopped in optim_numbmod while opening data.optim' |
stop ' stopped in optim_readparms while opening data.optim' |
119 |
endif |
endif |
120 |
|
|
121 |
do while ( .true. ) |
do while ( .true. ) |
156 |
endif |
endif |
157 |
endif |
endif |
158 |
if ( optimcycle.eq.0 ) then |
if ( optimcycle.eq.0 ) then |
159 |
if ( fmin.le.0.0 ) then |
if ( fmin.le.0.0 ) then |
160 |
print*, ' OPTIM_READPARMS: fmin = ', fmin, ' should be > 0' |
print '(A,E12.6,A)', ' OPTIM_READPARMS: fmin = ', fmin, |
161 |
stop 'S/R OPTIM_READPARMS: ABNORMAL END' |
& ' should be > 0' |
162 |
endif |
stop 'S/R OPTIM_READPARMS: ABNORMAL END' |
163 |
if ( fmin.lt.ff ) then |
endif |
164 |
print*, ' OPTIM_READPARMS: fmin = ', fmin, |
if ( fmin.gt.ff ) then |
165 |
& ' should be < ff = ', ff |
print '(A,E12.6,A,E12.6)', ' OPTIM_READPARMS: fmin = ', fmin, |
166 |
stop 'S/R OPTIM_READPARMS: ABNORMAL END' |
& ' should be < ff = ', ff |
167 |
|
stop 'S/R OPTIM_READPARMS: ABNORMAL END' |
168 |
|
endif |
169 |
endif |
endif |
170 |
|
|
171 |
c-- Do some final printout. |
c-- Do some final printout. |