158 |
fmin = ff |
fmin = ff |
159 |
endif |
endif |
160 |
endif |
endif |
161 |
if ( fmin.le.0.0 .and. optimcycle.eq.0 ) then |
if ( optimcycle.eq.0 ) then |
162 |
|
if ( fmin.le.0.0 ) then |
163 |
print*, ' OPTIM_READPARMS: fmin = ', fmin, ' should be > 0' |
print*, ' OPTIM_READPARMS: fmin = ', fmin, ' should be > 0' |
164 |
stop 'S/R OPTIM_READPARMS: ABNORMAL END' |
stop 'S/R OPTIM_READPARMS: ABNORMAL END' |
165 |
endif |
endif |
166 |
|
if ( fmin.lt.ff ) then |
167 |
|
print*, ' OPTIM_READPARMS: fmin = ', fmin, |
168 |
|
& ' should be < ff = ', ff |
169 |
|
stop 'S/R OPTIM_READPARMS: ABNORMAL END' |
170 |
|
endif |
171 |
|
|
172 |
c-- Do some final printout. |
c-- Do some final printout. |
173 |
print* |
print* |