1       INTEGER MXSMOP, MXSMSEL
2       PARAMETER ( MXSMOP = 125 , MXSMSEL = 50 )
3 
4       LOGICAL SELSMST, HALFFR, LTPA_USE_X2, LTPA_USE_O2
5       LOGICAL TPOLDW
6       INTEGER ISMSEL, NSMSEL, NSMOPER
7       INTEGER IASMOP, IBSMOP
8       INTEGER IPRSM
9 
10 #if defined (SYS_CRAY)
11       REAL BSMFR
12 #else
13       DOUBLE PRECISION BSMFR
14 #endif
15 
16       COMMON /CCINFTPA/  BSMFR(MXSMSEL), ISMSEL(MXSMSEL,2),
17      *                 IASMOP(MXSMOP), IBSMOP(MXSMOP),
18      *                 NSMSEL, IPRSM, NSMOPER,
19      *                 SELSMST, HALFFR, LTPA_USE_X2, LTPA_USE_O2,
20      *                 TPOLDW
21 
22