1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
#ifndef _OEP_COM_
#define _OEP_COM_
c
c This common block defines the OEP variables of general scope, mostly
c flags and their default values.
c
c Igor Schweigert, Feb 2004
c $Id: oep.com,v 1.8 2008/06/06 18:09:17 taube Exp $
c
c
logical
& OEP1, OEP2, OEP1ON, OEP2ON, OEP2ALWAYS, OEP2ITR,
& OEPDFF, OEPDFW, OEPDWW, OEPFDF, OEPWDW, BOEPR12,
& R12ON
c
integer
& OEP1ONTHR, OEP1ONTHRDEF, OEP2ONTHR, OEP2ONTHRDEF,
& OEP2OFFTHR, OEP2OFFTHRDEF, OEP2UPDATE, OEP2UPDATEDEF,
& OEP2ALWAYSTHR, OEP2ALWAYSTHRDEF, NAUX,
& OEPSVDTHR, OEPSVDTHRDEF, OEP1HYBRIDINT, OEP1HYBRIDDEF,
& R12ONTHR, R12ONTHRDEF
c
double precision OEP1HYBRID
c
character*(50)
& OEPH0, OEPH0DEF, OEPAXP, OEPAXPDEF
c character*1
c & asv_null
c
common /OEPCONFIG/
& OEP1, OEP2, OEP1ON, OEP2ON, OEP2ALWAYS, OEP2ITR,
& BOEPR12, R12ON, OEPDFF, OEPDFW, OEPDWW, OEPFDF, OEPWDW,
& OEP1ONTHR, OEP2ONTHR, OEP2OFFTHR, OEP2ALWAYSTHR,
& OEPSVDTHR, NAUX, OEP2UPDATE, R12ONTHR,OEP1HYBRID,
& OEPH0, OEPAXP
c
parameter (OEP1ONTHRDEF = 1)
parameter (OEP2ONTHRDEF = 2)
parameter (OEP2OFFTHRDEF = 20)
parameter (OEP2ALWAYSTHRDEF = 6)
parameter (OEP2UPDATEDEF = 1)
parameter (OEPSVDTHRDEF = 8)
parameter (OEP1HYBRIDDEF = 0)
parameter (R12ONTHRDEF = 2)
c
data
& OEPH0DEF /'OEP'C/,
& OEPAXPDEF /'NONE'C/
c
#endif /* _OEP_COM_ */
|
