37 |
cgg have headers with options for OBCS masks. |
cgg have headers with options for OBCS masks. |
38 |
#include "ECCO_CPPOPTIONS.h" |
#include "ECCO_CPPOPTIONS.h" |
39 |
|
|
|
#include "ecco.h" |
|
40 |
#include "ctrl.h" |
#include "ctrl.h" |
41 |
#include "optim.h" |
#include "optim.h" |
42 |
#include "minimization.h" |
#include "minimization.h" |
81 |
c integer filei |
c integer filei |
82 |
c integer filej |
c integer filej |
83 |
c integer filek |
c integer filek |
84 |
c integer fileig |
c integer fileiG |
85 |
c integer filejg |
c integer filejG |
86 |
c integer filensx |
c integer filensx |
87 |
c integer filensy |
c integer filensy |
88 |
integer filenopt |
integer filenopt |
130 |
|
|
131 |
c-- Generate file name and open the file. |
c-- Generate file name and open the file. |
132 |
write(fname(1:128),'(4a,i4.4)') |
write(fname(1:128),'(4a,i4.4)') |
133 |
& dfile,'_',expId(1:10),'.opt', nopt |
& dfile,'_',yctrlid(1:10),'.opt', nopt |
134 |
open( funit, file = fname, |
open( funit, file = fname, |
135 |
& status = 'old', |
& status = 'old', |
136 |
& form = 'unformatted', |
& form = 'unformatted', |
140 |
c-- Read the header. |
c-- Read the header. |
141 |
read( funit ) nvartype |
read( funit ) nvartype |
142 |
read( funit ) nvarlength |
read( funit ) nvarlength |
143 |
read( funit ) expId |
read( funit ) yctrlid |
144 |
read( funit ) filenopt |
read( funit ) filenopt |
145 |
read( funit ) fileff |
read( funit ) fileff |
146 |
read( funit ) fileiG |
read( funit ) fileiG |
181 |
cph if (lheaderonly) then |
cph if (lheaderonly) then |
182 |
print *, 'pathei: nvartype ', nvartype |
print *, 'pathei: nvartype ', nvartype |
183 |
print *, 'pathei: nvarlength ', nvarlength |
print *, 'pathei: nvarlength ', nvarlength |
184 |
print *, 'pathei: expId ', expId |
print *, 'pathei: yctrlid ', yctrlid |
185 |
print *, 'pathei: filenopt ', filenopt |
print *, 'pathei: filenopt ', filenopt |
186 |
print *, 'pathei: fileff ', fileff |
print *, 'pathei: fileff ', fileff |
187 |
print *, 'pathei: fileiG ', fileiG |
print *, 'pathei: fileiG ', fileiG |