1      COMMON/GLBBAS/KINT1,KINT2,KPINT1,KPINT2,KLSM1,KLSM2,KRHO1,
2     &      KSBEVC,KSBEVL,KSBIDT,KSBCNF,KH0,KH0SCR,KH,KHINA,
3     &      KSBIA,KSBIB,KVEC3,KPNIJ,KIJKK,KFI,KINH1,KFA,KF,
4     &      KMOAOIN,KMOAOUT,KRHO2,KLOCCLS,KPGINT1(MXPOBS),
5     &      KINT1O,KFIO,KPGINT1A(MXPOBS),KCC1,KCC2,KCC3,
6     &      KMOMO,KSRHO1,KFIZ, KBMAT, KSCDIIS, KSMAT, KUMAT,
7     &      KSBSPJA,KDIA, KCC4,KCC5,KCC6,KCC7,
8     &      KVEC1P,KVEC2P,KINT1_SIMTRH,KINT2_SIMTRH,
9     &      KPINT1_SIMTRH,KPINT2_SIMTRH,KINH1_NOCCSYM,
10     &      KICONF_OCC(8),KICONF_REO(MXPICI), KZCONF,
11     &      KIB_OCCLS(8),KDFTP,KCFTP,KDTOC,
12     &      KSDREO_I(8),KSDREO_S(8), KZ_PTDT(MXPORB+1),
13     &      KREO_PTDT(MXPORB+1), KZ_TYPES(MXPORB+1),
14     &      KFI_AL,KFI_BE,KINT1_SIMTRH_A,KINT1_SIMTRH_B,
15     &      KINT2_SIMTRH_AA,KINT2_SIMTRH_BB,KINT2_SIMTRH_AB,
16     &      KPINT2_SIMTRH_AB,
17     &      KSAO,KHAO,KDAO,KINT2AO,KCOLD,KCCUR,KFAO,
18     &      KINT1B,KINT2AB,KINT2BB,KPINT2AB,
19     &      KDAO_COLLECT,KFAO_COLLECT,
20     &      K_MX_DLB_C,K_MX_DLB_A,K_IB_PROTO,K_NCOMP_FOR_PROTO,
21     &      KRHO2AA,KRHO2AB,KRHO2BB,KEITER,KDENSSPC,KDTFREORD,
22     &      KFTDREORD,K_MX_DLB_C_G(MXPCYC),
23     &      K_MX_DLB_A_G(MXPCYC),
24     &      K_IB_PROTO_G(MXPCYC),K_NCOMP_FOR_PROTO_G(MXPCYC),
25     &      KFIFA, KINT_2EMO, KINT_2EINI, KMOAO,
26     &      KPINT2_A(MXP2EIARR), KPLSM2_A(MXP2EIARR),
27     &      KINT2_A(MXP2EIARR),
28     &      KICONF_OCC_GN(8,MXPICI),KICONF_REO_GN(8,MXPICI),
29     &      KZ_GN(MXPICI),
30     &      KSDREO_I_GN(8,MXPICI),KSDREO_S_GN(8,MXPICI),
31     &      KCBIO,KCBIO2, KKCMO_I, KKCMO_J, KKCMO_K, KKCMO_L,
32     &      KCMOAO_FRAG(0:MXPFRAG), KIOOEXC,KIOOEXC_A,KIOOEXC_S,
33     &      KIOOEXCC, KMOREF,
34     &      KCOMVEC1,KCOMVEC2, KCOMVEC1_SD, KCOMVEC2_SD,
35     &      KCOMVEC3_SD,
36     &      KIOCCLS,KNCN_FOR_OCCLS,KNCS_FOR_OCCLS,
37     &      KNCM_FOR_OCCLS,KNSD_FOR_OCCLS,
38     &      KNCN_ALLSYM_FOR_OCCLS,KNCN_PER_OP_SM,
39     &      KIABSPGP_FOR_OCCLS,KNABSPGP_FOR_OCCLS,
40     &      KIBABSPGP_FOR_OCCLS,KIABSPGP_FOR_CMPSPC,
41     &      KCIOCCLS_ACT, KSIOCCLS_ACT,
42     &      KCLBT,KCLEBT,KCI1BT,KCIBT,KC2B,KCIOIO,KCBLTP,KCLBLK,
43     &      KSLBT,KSLEBT,KSI1BT,KSIBT,KS2B,KSIOIO,KSBLTP,KSLBLK,
44     &      KCNOCCLS_BAT,KCIBOCCLS_BAT,KSNOCCLS_BAT,KSIBOCCLS_BAT,
45     &      KBASSPC, ! End of original
46     &      KMOAO_ACT, KCSUPSYM_FOR_ORB,KLVAL_FOR_ORB,
47     &      KMLVAL_FOR_ORB, KL_FOR_SUPSYM,KML_FOR_SUPSYM,
48     &      KPA_FOR_SUPSYM,KPA_FOR_ORB,
49     &      KIRREP_FOR_SUPSYM,KNSUPSYM_FOR_IRREP,KIBSUPSYM_FOR_IRREP,
50     &      KISUPSYM_FOR_IRREP,KISUPSYM_FOR_BAS,KNBAS_FOR_SUP_STA_SYM,
51     &      KIBBAS_FOR_SUP_STA_SYM, KIBAS_FOR_SUP_STA_SYM,
52     &      KMO_STA_TO_ACT_REO,KMO_SUPSYM,KTPAM, KF2,
53     &      KMO_GNSYM, KIREO_GNSYM_TO_TS_ACOB,
54     &      KLZEXP, KL2EXP,
55     &      KISHELL_FOR_BAS,KNBAS_FOR_SHELL,KIBBAS_FOR_SHELL,
56     &      KIBAS_FOR_SHELL,KISSEXC,KNOOFSS,KIBOOFSS,KIOOFSS,
57     &      KMO_STA_SUPSYM,KMO_OCC_SUPSYM,KMO_ACT_SUPSYM,
58     &      KIREO_INI_OCC, KNSBCNF, KIBSBCNF,KKOCSBCNF,KLSBCNF,
59     &      KOGOCSBCLS, KOCSBCLS_OF_OCCLS, KMINOPGAS_FOR_OCCLS,
60     &      KMNOPOCSBCL, KNCMAB_FOR_OCCLS, KNSDAB_FOR_OCCLS,
61     &      KSBCNFOCC,KSBCNFOP,KVEC4,krho1_bu, KIABSPGP_VOG
62