|
NLSL
|
Variables | |
| character *6, dimension(nfprm), save | parnam = (/'PHASE ', 'GIB0 ', 'GIB2 ', 'WXX ', 'WYY ', 'WZZ ', 'GXX ', 'GYY ', 'GZZ ', 'AXX ', 'AYY ', 'AZZ ', 'RX ', 'RY ', 'RZ ', 'PML ', 'PMXY ', 'PMZZ ', 'DJF ', 'DJFPRP', 'OSS ', 'PSI ', 'ALPHAD', 'BETAD ', 'GAMMAD', 'ALPHAM', 'BETAM ', 'GAMMAM', 'C20 ', 'C22 ', 'C40 ', 'C42 ', 'C44 ', 'LB ', 'DC20 ', 'B0 ', 'GAMMAN', 'CGTOL ', 'SHIFTR', 'SHIFTI', 'RANGE ', ' ', ' ' /) |
| character *6, dimension(niprm), save | iprnam = (/'IN2 ', 'IPDF ', 'IST ', 'ML ', 'MXY ', 'MZZ ', 'LEMX ', 'LOMX ', 'KMN ', 'KMX ', 'MMN ', 'MMX ', 'IPNMX ', 'NORT ', 'NSTEP ', 'NFIELD', 'IDERIV', ' ', ' ', ' ', ' ', ' ', ' ', ' ' /) |
| character *6, dimension(nalias), save | alias1 = (/ 'W1 ', 'W2 ', 'W3 ', 'G1 ', 'G2 ', 'G3 ', 'A1 ', 'A2 ', 'A3 ', 'RBAR ', 'N ', 'NXY ' /) |
| character *6, dimension(nalias), save | alias2 = (/ 'WPRP ', ' ', 'WPLL ', 'GPRP ', ' ', 'GPLL ', 'APRP ', ' ', 'APLL ', 'RPRP ', ' ', 'RPLL ' /) |
| character *10, dimension(nsymtr), save | symstr = (/'CARTESIAN ', 'SPHERICAL ', 'AXIAL '/) |
| character *10, dimension(nsymbl), save | symbol = (/'BROWNIAN ', 'NONBROWNIA', 'ANISOVISCO', 'FREE ', 'JUMP '/) |
| integer, dimension(nsymbl), save | symval = (/ 0, 1, 2, 1, 0 /) |
| character*6, dimension(nalias), save lpnam::alias1 = (/ 'W1 ', 'W2 ', 'W3 ', 'G1 ', 'G2 ', 'G3 ', 'A1 ', 'A2 ', 'A3 ', 'RBAR ', 'N ', 'NXY ' /) |
| character*6, dimension(nalias), save lpnam::alias2 = (/ 'WPRP ', ' ', 'WPLL ', 'GPRP ', ' ', 'GPLL ', 'APRP ', ' ', 'APLL ', 'RPRP ', ' ', 'RPLL ' /) |
| character*6, dimension(niprm), save lpnam::iprnam = (/'IN2 ', 'IPDF ', 'IST ', 'ML ', 'MXY ', 'MZZ ', 'LEMX ', 'LOMX ', 'KMN ', 'KMX ', 'MMN ', 'MMX ', 'IPNMX ', 'NORT ', 'NSTEP ', 'NFIELD', 'IDERIV', ' ', ' ', ' ', ' ', ' ', ' ', ' ' /) |
| character*6, dimension(nfprm), save lpnam::parnam = (/'PHASE ', 'GIB0 ', 'GIB2 ', 'WXX ', 'WYY ', 'WZZ ', 'GXX ', 'GYY ', 'GZZ ', 'AXX ', 'AYY ', 'AZZ ', 'RX ', 'RY ', 'RZ ', 'PML ', 'PMXY ', 'PMZZ ', 'DJF ', 'DJFPRP', 'OSS ', 'PSI ', 'ALPHAD', 'BETAD ', 'GAMMAD', 'ALPHAM', 'BETAM ', 'GAMMAM', 'C20 ', 'C22 ', 'C40 ', 'C42 ', 'C44 ', 'LB ', 'DC20 ', 'B0 ', 'GAMMAN', 'CGTOL ', 'SHIFTR', 'SHIFTI', 'RANGE ', ' ', ' ' /) |
| character*10, dimension(nsymbl), save lpnam::symbol = (/'BROWNIAN ', 'NONBROWNIA', 'ANISOVISCO', 'FREE ', 'JUMP '/) |
| character*10, dimension(nsymtr), save lpnam::symstr = (/'CARTESIAN ', 'SPHERICAL ', 'AXIAL '/) |