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