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