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 ) |
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 |
|
& ' should be > 0' |
162 |
stop 'S/R OPTIM_READPARMS: ABNORMAL END' |
stop 'S/R OPTIM_READPARMS: ABNORMAL END' |
163 |
endif |
endif |
164 |
if ( fmin.lt.ff ) then |
if ( fmin.gt.ff ) then |
165 |
print*, ' OPTIM_READPARMS: fmin = ', fmin, |
print '(A,E12.6,A,E12.6)', ' OPTIM_READPARMS: fmin = ', fmin, |
166 |
& ' should be < ff = ', ff |
& ' should be < ff = ', ff |
167 |
stop 'S/R OPTIM_READPARMS: ABNORMAL END' |
stop 'S/R OPTIM_READPARMS: ABNORMAL END' |
168 |
endif |
endif |