Rev | Line | |
---|
[15] | 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.