62 |
print*,' Large Scale Optimization with off-line capability.' |
print*,' Large Scale Optimization with off-line capability.' |
63 |
print*,' ==================================================' |
print*,' ==================================================' |
64 |
print* |
print* |
|
print*,' Version 3.1.0' |
|
|
print* |
|
65 |
|
|
66 |
c-- Get the number of control variables and other namelist |
c-- Get the number of control variables and other namelist |
67 |
c parameters |
c parameters |
68 |
|
nn=1 |
69 |
|
ff=-9999. |
70 |
call optim_readparms( nn, ff ) |
call optim_readparms( nn, ff ) |
71 |
|
|
72 |
c-- Call the subroutine that will set up the optimization routine |
c-- Call the subroutine that will set up the optimization routine |