1 |
|
|
2 |
#include "CPP_OPTIONS.h" |
#include "AUTODIFF_OPTIONS.h" |
3 |
|
|
4 |
c ================================================================== |
c ================================================================== |
5 |
c |
c |
56 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
57 |
#include "SIZE.h" |
#include "SIZE.h" |
58 |
#include "PARAMS.h" |
#include "PARAMS.h" |
59 |
|
#include "ctrl.h" |
60 |
|
|
61 |
c == routine arguments == |
c == routine arguments == |
62 |
|
|
95 |
|
|
96 |
c force 64-bit io |
c force 64-bit io |
97 |
oldPrec = readBinaryPrec |
oldPrec = readBinaryPrec |
98 |
readBinaryPrec = precFloat64 |
readBinaryPrec = ctrlprec |
99 |
prec = precFloat64 |
prec = ctrlprec |
100 |
|
|
101 |
write(adfname(1:80),'(80a)') ' ' |
write(adfname(1:80),'(80a)') ' ' |
102 |
adpref = 'ad' |
adpref = 'ad' |
276 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
277 |
#include "SIZE.h" |
#include "SIZE.h" |
278 |
#include "PARAMS.h" |
#include "PARAMS.h" |
279 |
|
#include "ctrl.h" |
280 |
|
|
281 |
c == routine arguments == |
c == routine arguments == |
282 |
|
|
302 |
|
|
303 |
c force 64-bit io |
c force 64-bit io |
304 |
oldPrec = readBinaryPrec |
oldPrec = readBinaryPrec |
305 |
readBinaryPrec = precFloat64 |
readBinaryPrec = ctrlprec |
306 |
prec = precFloat64 |
prec = ctrlprec |
307 |
|
|
308 |
c >>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<< |
c >>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<< |
309 |
c >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<< |
c >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<< |
442 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
443 |
#include "SIZE.h" |
#include "SIZE.h" |
444 |
#include "PARAMS.h" |
#include "PARAMS.h" |
445 |
|
#include "ctrl.h" |
446 |
|
|
447 |
c == routine arguments == |
c == routine arguments == |
448 |
|
|
481 |
|
|
482 |
c force 64-bit io |
c force 64-bit io |
483 |
oldPrec = readBinaryPrec |
oldPrec = readBinaryPrec |
484 |
readBinaryPrec = precFloat64 |
readBinaryPrec = ctrlprec |
485 |
prec = precFloat64 |
prec = ctrlprec |
486 |
|
|
487 |
write(adfname(1:80),'(80a)') ' ' |
write(adfname(1:80),'(80a)') ' ' |
488 |
adpref = 'ad' |
adpref = 'ad' |
662 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
663 |
#include "SIZE.h" |
#include "SIZE.h" |
664 |
#include "PARAMS.h" |
#include "PARAMS.h" |
665 |
|
#include "ctrl.h" |
666 |
|
|
667 |
c == routine arguments == |
c == routine arguments == |
668 |
|
|
688 |
|
|
689 |
c force 64-bit io |
c force 64-bit io |
690 |
oldPrec = readBinaryPrec |
oldPrec = readBinaryPrec |
691 |
readBinaryPrec = precFloat64 |
readBinaryPrec = ctrlprec |
692 |
prec = precFloat64 |
prec = ctrlprec |
693 |
|
|
694 |
c >>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<< |
c >>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<< |
695 |
c >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<< |
c >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<< |