95 |
open(unit = modeldataunit,file = 'data.ctrl', |
open(unit = modeldataunit,file = 'data.ctrl', |
96 |
& status = 'old', iostat = errio) |
& status = 'old', iostat = errio) |
97 |
if ( errio .lt. 0 ) then |
if ( errio .lt. 0 ) then |
98 |
stop ' stopped in optim_numbmod while opening data.ctrl' |
stop ' stopped in optim_readparms while opening data.ctrl' |
99 |
endif |
endif |
100 |
|
|
101 |
do while ( .true. ) |
do while ( .true. ) |
118 |
open(unit = modeldataunit,file = 'data.optim', |
open(unit = modeldataunit,file = 'data.optim', |
119 |
& status = 'old', iostat = errio) |
& status = 'old', iostat = errio) |
120 |
if ( errio .lt. 0 ) then |
if ( errio .lt. 0 ) then |
121 |
stop ' stopped in optim_numbmod while opening data.optim' |
stop ' stopped in optim_readparms while opening data.optim' |
122 |
endif |
endif |
123 |
|
|
124 |
do while ( .true. ) |
do while ( .true. ) |