Line | |
---|
1 | C STEPT1 STEPPING OF PARAMETERS |
---|
2 | C |
---|
3 | C STLO BEGINNING OF RANGE OVER WHICH PARAMETER |
---|
4 | C IS TO BE STEPPED |
---|
5 | C STHI END OF RANGE |
---|
6 | C STEP SIZE OF STEP |
---|
7 | C ISTEP POSITION IN DATA ARRAY OF PARAMETER TO BE |
---|
8 | C STEPPED |
---|
9 | C NSTEPP |
---|
10 | C NSTEPS NUMBER OF STEPS = (STHI - STLO)/STEP + 1 |
---|
11 | C LSTEP TRUE IF SOME PARAMETER IS TO BE STEPPED |
---|
12 | C LSTEPN TRUE IF PRINTING IS TO OCCUR IN RUN THROUGH |
---|
13 | C OUTFIT |
---|
14 | COMMON /STEPT1/ STLO, STHI, STEP, ISTEP, NSTEPP, NSTEPS, LSTEP, |
---|
15 | 1 LSTEPN |
---|
16 | INTEGER ISTEP, NSTEPP, NSTEPS, LSTCT, LSTCP |
---|
17 | LOGICAL LSTEP, LSTEPN |
---|
18 | REAL STLO, STHI, STEP |
---|
Note: See
TracBrowser
for help on using the repository browser.