NLSL: lpnam.f90 Source File

NLSL

- Main Page
- Modules
- Data Types List
- Files

- File List
- File Members

lpnam.f90
Go to the documentation of this file.
1 c NLSL Version 1.9.0 beta 2/3/15
2 c----------------------------------------------------------------------
3 c =========================
4 c module LPNAM
5 c =========================
6 c
7 c Declaration and initialization of character arrays containing
8 c names of parameters, aliases, and various symbols.
9 c
10 c This module replaces lpnam.inc and the first half of nlstxt.f.
11 c
12 c NOTE: The order of names in this list MUST correspond to the
13 c order of parameters in eprprm.f90 as well as the function ipfind
14 c for the combined code to work properly.
15 c
16 c----------------------------------------------------------------------
17
18 module lpnam
19 use nlsdim
20 implicit none
21
22 c ########## Definition of names of EPRLL parameters ###############
23 c
24 c Note that blanks are specified for parameters that are not
25 c intended to be user-accessible, but must still be passed to EPRLS
26 c
27 character*6, dimension(NFPRM), save ::
28 # parnam = (/'PHASE ', 'GIB0 ', 'GIB2 ', 'WXX ', 'WYY ',
29 # 'WZZ ', 'GXX ', 'GYY ', 'GZZ ', 'AXX ',
30 # 'AYY ', 'AZZ ', 'RX ', 'RY ', 'RZ ',
31 # 'PML ', 'PMXY ', 'PMZZ ', 'DJF ', 'DJFPRP',
32 # 'OSS ', 'PSI ', 'ALPHAD', 'BETAD ', 'GAMMAD',
33 # 'ALPHAM', 'BETAM ', 'GAMMAM', 'C20 ', 'C22 ',
34 # 'C40 ', 'C42 ', 'C44 ', 'LB ', 'DC20 ',
35 # 'B0 ', 'GAMMAN', 'CGTOL ', 'SHIFTR', 'SHIFTI',
36 # 'RANGE ', ' ', ' ' /)
37 c
38 character*6, dimension(NIPRM), save ::
39 # iprnam = (/'IN2 ', 'IPDF ', 'IST ', 'ML ', 'MXY ',
40 # 'MZZ ', 'LEMX ', 'LOMX ', 'KMN ', 'KMX ',
41 # 'MMN ', 'MMX ', 'IPNMX ', 'NORT ', 'NSTEP ',
42 # 'NFIELD', 'IDERIV', ' ', ' ', ' ',
43 # ' ', ' ', ' ', ' ' /)
44 c
45 character*6, dimension(NALIAS), save ::
46 # alias1 = (/ 'W1 ', 'W2 ', 'W3 ',
47 # 'G1 ', 'G2 ', 'G3 ',
48 # 'A1 ', 'A2 ', 'A3 ',
49 # 'RBAR ', 'N ', 'NXY ' /)
50 c
51 character*6, dimension(NALIAS), save ::
52 # alias2 = (/ 'WPRP ', ' ', 'WPLL ',
53 # 'GPRP ', ' ', 'GPLL ',
54 # 'APRP ', ' ', 'APLL ',
55 # 'RPRP ', ' ', 'RPLL ' /)
56 c
57 character*10, dimension(NSYMTR), save ::
58 # symstr = (/'CARTESIAN ', 'SPHERICAL ', 'AXIAL '/)
59 c
60 character*10, dimension(NSYMBL), save ::
61 # symbol = (/'BROWNIAN ', 'NONBROWNIA', 'ANISOVISCO',
62 # 'FREE ', 'JUMP '/)
63 c
64 integer, dimension(NSYMBL), save ::
65 # symval = (/ 0, 1, 2,
66 # 1, 0 /)
67
68 end module lpnam
lpnam::alias1
character *6, dimension(nalias), save alias1
Definition: lpnam.f90:45
lpnam::symval
integer, dimension(nsymbl), save symval
Definition: lpnam.f90:64
lpnam::symbol
character *10, dimension(nsymbl), save symbol
Definition: lpnam.f90:60
lpnam::symstr
character *10, dimension(nsymtr), save symstr
Definition: lpnam.f90:57
lpnam
Definition: lpnam.f90:18
nlsdim
Definition: nlsdim.f90:36
lpnam::parnam
character *6, dimension(nfprm), save parnam
Definition: lpnam.f90:27
lpnam::iprnam
character *6, dimension(niprm), save iprnam
Definition: lpnam.f90:38
lpnam::alias2
character *6, dimension(nalias), save alias2
Definition: lpnam.f90:51