33 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
34 |
#include "SIZE.h" |
#include "SIZE.h" |
35 |
|
|
|
#include "ecco.h" |
|
36 |
#include "ctrl.h" |
#include "ctrl.h" |
37 |
#include "optim.h" |
#include "optim.h" |
38 |
|
|
51 |
c-- contributions. |
c-- contributions. |
52 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
53 |
write(fname(1:80),'(4a,i10.10,a)') |
write(fname(1:80),'(4a,i10.10,a)') |
54 |
& scalname(1:9),'_',expId,'.',optimcycle,'.data' |
& scalname(1:9),'_',yctrlid,'.',optimcycle,'.data' |
55 |
|
|
56 |
c-- Read the scaling for the control vector. |
c-- Read the scaling for the control vector. |
57 |
|
|