75 |
integer funit |
integer funit |
76 |
|
|
77 |
integer cbuffindex |
integer cbuffindex |
78 |
_RL cbuff( sNx*nSx*nPx*sNy*nSy*nPy ) |
real*4 cbuff( sNx*nSx*nPx*sNy*nSy*nPy ) |
79 |
|
|
80 |
character*(128) fname |
character*(128) fname |
81 |
|
|
82 |
integer filei |
c integer filei |
83 |
integer filej |
c integer filej |
84 |
integer filek |
c integer filek |
85 |
|
c integer fileig |
86 |
|
c integer filejg |
87 |
|
c integer filensx |
88 |
|
c integer filensy |
89 |
integer filenopt |
integer filenopt |
|
integer fileig |
|
|
integer filejg |
|
|
integer filensx |
|
|
integer filensy |
|
90 |
_RL fileff |
_RL fileff |
91 |
|
|
92 |
cgg( |
cgg( |
97 |
|
|
98 |
c == end of interface == |
c == end of interface == |
99 |
|
|
100 |
|
print *, 'pathei-lsopt in optim_readdata' |
101 |
|
|
102 |
c-- The reference i/o unit. |
c-- The reference i/o unit. |
103 |
funit = 20 |
funit = 20 |
104 |
|
|
149 |
read( funit ) filensx |
read( funit ) filensx |
150 |
read( funit ) filensy |
read( funit ) filensy |
151 |
|
|
|
cph( |
|
|
print *,'ph-opt 1 ', nvartype, nvarlength, filensx, filensy |
|
|
cph) |
|
|
|
|
152 |
read( funit ) (nWetcGlobal(k), k=1,nr) |
read( funit ) (nWetcGlobal(k), k=1,nr) |
153 |
read( funit ) (nWetsGlobal(k), k=1,nr) |
read( funit ) (nWetsGlobal(k), k=1,nr) |
154 |
read( funit ) (nWetwGlobal(k), k=1,nr) |
read( funit ) (nWetwGlobal(k), k=1,nr) |