source: PSPA/transportPSPA/trunk/include/STEPT1.CIN @ 15

Last change on this file since 15 was 15, checked in by lemeur, 12 years ago

transport pspa initial

File size: 807 bytes
Line 
1C STEPT1              STEPPING OF PARAMETERS
2C
3C STLO                   BEGINNING OF RANGE OVER WHICH PARAMETER
4C                        IS TO BE STEPPED
5C STHI                   END OF RANGE
6C STEP                   SIZE OF STEP
7C ISTEP                  POSITION IN DATA ARRAY OF PARAMETER TO BE
8C                        STEPPED
9C NSTEPP
10C NSTEPS                 NUMBER OF STEPS = (STHI - STLO)/STEP + 1
11C LSTEP                  TRUE IF SOME PARAMETER IS TO BE STEPPED
12C LSTEPN                 TRUE IF PRINTING IS TO OCCUR IN RUN THROUGH
13C                        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.