8 |
C ================================================================== |
C ================================================================== |
9 |
C SUBROUTINE FLT_READPARMS |
C SUBROUTINE FLT_READPARMS |
10 |
C ================================================================== |
C ================================================================== |
|
C |
|
11 |
C o read float-pkg parameters from file "data.flt" |
C o read float-pkg parameters from file "data.flt" |
12 |
C |
C ================================================================== |
13 |
|
|
14 |
|
C !USES: |
15 |
|
IMPLICIT NONE |
16 |
|
|
17 |
#include "SIZE.h" |
#include "SIZE.h" |
18 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
20 |
#include "FLT.h" |
#include "FLT.h" |
21 |
|
|
22 |
C == routine arguments == |
C == routine arguments == |
|
|
|
23 |
C myThid - thread number for this instance of the routine. |
C myThid - thread number for this instance of the routine. |
24 |
INTEGER myThid |
INTEGER myThid |
25 |
|
|