      ! generic names and titles of formula files
      ! CC:
      character, parameter ::
     &     name_form_opt*15 = 'formula_opt.fml',
     &     name_form_sym*15 = 'formula_sym.fml'
      character, parameter ::
     &     title_cclg0*26 = 'CC ground state Lagrangian',
     &     title_ecclg0*27= 'ECC ground state Lagrangian',
     &     title_ccen0*12 = 'CC energy',
     &     title_mplg0*26 = 'MP Lagrangian',
     &     title_mpen0*12 = 'MP energy',
     &     title_ptdl0*47 =
     &                'CC ground state Lagrangian for pert. correction',
     &     title_ptde0*22 =
     &                'CC ground state pert. correction',
     &     title_ccrs0*14 =  'CC residual',
     &     title_eccrs0_l*14 =  'ECC TBAR residual',
     &     title_eccrs0_t*14 =  'ECC T residual',
     &     title_ccrs12*15 = 'R12 residual',
     &     title_cchhat*15 = 'e^{-T1}He^T1',
     &     title_cchbar*15 = 'e^{-T}He^T',
     &     title_cctbar_a*18  = 'Tbar.A contraction',
     &     title_cceta*26     = 'Tbar right hand side (eta)',
     &     title_h0_tpt*16    = 'H0.T contraction',
     &     title_pteta*21     = 'T(pt) right hand side',
     &     title_cc1dens*21   = 'CC 1-particle density',
     &     title_cc_a_r*18    = 'CC right transform',
     &     title_cc_a_rp*30   = 'CC right transform (R12 part)',
     &     title_cc_tbar_a*17 = 'CC tbar transform',
     &     title_cc_tbar_ap*29= 'CC tbar transform (R12 part)',
     &     title_cc_l_a*17    = 'CC left transform',
     &     title_cc_l_ap*29   = 'CC left transform (R12 part)',
     &     title_cc_l_a_r*11  = 'CC L.A.R',
     &     title_cc_a_rip*18  = 'CC right transform (IP)',
     &     title_cc_lip_a*17  = 'CC left transform (IP)',
     &     title_cc_a_rea*18  = 'CC right transform (EA)',
     &     title_cc_lea_a*17  = 'CC left transform (EA)'
      character, parameter ::
     &     title_mpr12lg0*29 =  'MPR12 Lagrangian',
     &     title_mpr12en0*15 =  'MPR12 energy',
     &     title_mpr12rs_t*29 = 'MPR12 T residual',
     &     title_mpr12rs_c*29 = 'MPR12 C residual',
     &     title_mpr12rs_cex*30  = 'MPR12 CP residual',
     &     title_mpr12rs_cexx*31 = 'MPR12 CPP residual',
     &     title_ccr12lg0*29 =  'CCR12 Lagrangian',
     &     title_ccr12en0*15 =  'CCR12 energy',
     &     title_ccr12rs_t*29 = 'CCR12 T residual',
     &     title_ccr12rs_c*29 = 'CCR12 C residual',
     &     title_ccr12rs_cpp*30 = 'CCR12 C" residual'
      character, parameter ::
     &     title_ccr12_s_t*18    = 'CCR12 metric times T',
     &     title_ccr12_s_c*29    = 'CCR12 metric times T (R12 part)',
     &     title_ccr12_tbar_s*18 = 'CCR12 metric times TBAR',
     &     title_ccr12_tbar_sp*29= 'CCR12 metric times TBAR (R12 part)',
     &     title_cc_l_s_r*8      = 'CC L.S.R',
     &     title_ccr12_l_s_r*11  = 'CCR12 L.S.R',
     &     title_ccr12_s_r*18    = 'CCR12 metric times R',
     &     title_ccr12_s_rp*29   = 'CCR12 metric times R (R12 part)',
     &     title_ccr12_l_s*18    = 'CCR12 metric times L',
     &     title_ccr12_l_sp*29   = 'CCR12 metric times L (R12 part)'
      character, parameter ::
     &     title_r12_rbar*28  ='R12 [R * (F+K)]-intermediate',
     &     title_r12_rtilde*24='R12 [R * K]-intermediate',
     &     title_r12_vint*38 = 'R12 V-intermediate (formal definition)',
     &     title_r12_vcabs*33 ='R12 V-intermediate (CABS approx.)',
     &     title_r12_vxcabs*33 ='R12 VX-intermediate (CABS approx.)',
     &     title_r12_v0int*39='R12 V0-intermediate (formal definition)',
     &     title_r12_v0cabs*34 ='R12 V0-intermediate (CABS approx.)',
     &     title_r12_v3int*39='R12 V3-intermediate (formal definition)',
     &     title_r12_v3cabs*34 ='R12 V3-intermediate (CABS approx.)',
     &     title_r12_v4int*39='R12 V4-intermediate (formal definition)',
     &     title_r12_v4cabs*34 ='R12 V4-intermediate (CABS approx.)',
     &     title_r12_vbint*19 ='R12 V+intermediate (formal definition)',
     &     title_r12_vbcabs*33='R12 V+intermediate (CABS approx.)',
     &     title_r12_v0bint*20
     &             ='R12 V0+intermediate (formal definition)',
     &     title_r12_v0bcabs*34='R12 V0+intermediate (CABS approx.)',
     &     title_r12_v3bint*20
     &             ='R12 V3+intermediate (formal definition)',
     &     title_r12_v3bcabs*34='R12 V3+intermediate (CABS approx.)',
     &     title_r12_xint*38 = 'R12 X-intermediate (formal definition)',
     &     title_r12_xcabs*33 ='R12 X-intermediate (CABS approx.)',
     &     title_r12_xhint*39 =
     &                       'R12 Xh-intermediate (formal definition)',
     &     title_r12_xhcabs*34 ='R12 Xh-intermediate (CABS approx.)',
     &     title_r12_xpint*39 =
     &                       'R12 X''-intermediate (formal definition)',
     &     title_r12_xpcabs*34 ='R12 X''-intermediate (CABS approx.)',
     &     title_r12_x1int*39='R12 X1-intermediate (formal definition)',
     &     title_r12_x1cabs*34 ='R12 X1-intermediate (CABS approx.)',
     &     title_r12_bint*38 = 'R12 B-intermediate (formal definition)',
     &     title_r12_bcabs*33 ='R12 B-intermediate (CABS approx.)',
     &     title_r12_b0int*39='R12 B0-intermediate (formal definition)',
     &     title_r12_b0cabs*34 ='R12 B0-intermediate (CABS approx.)',
     &     title_r12_cint*38 = 'R12 C-intermediate (formal definition)',
     &     title_r12_ccabs*33 ='R12 C-intermediate (CABS approx.)',
     &     title_r12_cbint*38 ='R12 C+intermediate (formal definition)',
     &     title_r12_cbcabs*33 ='R12 C+intermediate (CABS approx.)',
     &     title_r12_pint*38 ='R12 P-intermediate (formal definition)',
     &     title_r12_pcabs*33 ='R12 P-intermediate (CABS approx.)',
     &     title_r12_p3fint*40
     &          ='R12 P3F-intermediate (formal definition)',
     &     title_r12_p3fcabs*35 ='R12 P3F-intermediate (CABS approx.)',
     &     title_r12_p3gint*40
     &          ='R12 P3G-intermediate (formal definition)',
     &     title_r12_p3gcabs*35 ='R12 P3G-intermediate (CABS approx.)',
     &     title_r12_zint*38 ='R12 Z-intermediate (formal definition)',
     &     title_r12_zcabs*33 ='R12 Z-intermediate (CABS approx.)',
     &     title_r12_z4int*39='R12 Z4-intermediate (formal definition)',
     &     title_r12_z4cabs*34 ='R12 Z4-intermediate (CABS approx.)',
     &     title_r12_k4int*39='R12 K4-intermediate (formal definition)',
     &     title_r12_k4cabs*34 ='R12 K4-intermediate (CABS approx.)',
     &     title_r12_bucabs*7 ='R12 B_U',
     &     title_r12_bsymm*24  = 'Symm. R12 B-intermediate',
     &     title_r12_binv*18   = 'Inverse of diag(B)',
     &     title_ccdens*10   = 'CC density',
c dbg
     &     title_x_test*12      = 'X-TEST-TITLE',
     &     title_x_test_eval*17 = 'X-TEST-TITLE-EVAL',
     &     title_v_test*12      = 'V-TEST-TITLE',
     &     title_v_test_eval*17 = 'V-TEST-TITLE-EVAL',
     &     title_p_test*12      = 'P-TEST-TITLE',
     &     title_p_test_eval*17 = 'P-TEST-TITLE-EVAL',
     &     title_z_test*12      = 'Z-TEST-TITLE',
     &     title_z_test_eval*17 = 'Z-TEST-TITLE-EVAL'
c dbg
c dbg
c     &     title_f12int_fix*13    = 'F12.C12 fixed',
c     &     title_t12f12int_fix*16 = 'T12F12.C12 fixed',
c     &     title_g12f12int_fix*17 = 'G12.F12.C12 fixed'
c dbg
      character, parameter ::
     &     form_test*4         = 'TEST',
     &     form_cclg0*6        = 'Lg0_CC',
     &     form_ecclg0*7       = 'Lg0_ECC',
     &     form_ccen0*5        = 'E0_CC',
     &     form_ptdl0*9        = 'DLg0_CCPT',
     &     form_ptde0*8        = 'DE0_CCPT',
     &     fopt_ptde0*12       = 'DE0_CCPT_OPT',
     &     form_mplg0*6        = 'Lg0_MP',
     &     form_mpen0*5        = 'E0_MP',
     &     form_ccrs0*6        = 'OMG_CC',
     &     fopt_ccrs0*10       = 'OMG_CC_OPT',
     &     fopt_cclft0*11      = 'TBAR_CC_OPT',
     &     form_eccrs0_t*9     = 'OMG_T_ECC',
     &     form_eccrs0_l*12    = 'OMG_TBAR_ECC',
     &     fopt_eccrs0*11      = 'OMG_ECC_OPT',
     &     form_cchhat*6       = 'HT1TRF',
     &     form_cchbar*6       = 'HT_TRF',
     &     form_cctbar_a*9     = 'TBAR_A_CC',
     &     form_cceta*6        = 'ETA_CC',
     &     form_etapt*8        = 'ETA_CCPT',
     &     form_cc1dens*6      = 'CC1DEN',
     &     fopt_cc1dens*10     = 'CC1DEN_OPT',
     &     form_cc_a_r*6       = 'CC_A_R',
     &     fopt_cc_a_r*10      = 'CC_A_R_OPT',
     &     form_cc_l_a*6       = 'CC_L_A',
     &     fopt_cc_l_a*10      = 'CC_L_A_OPT',
     &     form_cc_l_a_r*8     = 'CC_L_A_R',
     &     fopt_cc_l_a_r*12    = 'CC_L_A_R_OPT',
     &     form_h0_tpt*9       = 'CCPT_H0_T',
     &     fopt_h0_tpt*13      = 'CCPT_H0_T_OPT',
     &     form_cc_a_rip*10    = 'CC_A_R(-1)',
     &     fopt_cc_a_rip*14    = 'CC_A_R(-1)_OPT',
     &     form_cc_lip_a*10    = 'CC_L_A(-1)',
     &     fopt_cc_lip_a*14    = 'CC_L_A(-1)_OPT',
     &     form_cc_a_rea*10    = 'CC_A_R(+1)',
     &     fopt_cc_a_rea*14    = 'CC_A_R(+1)_OPT',
     &     form_cc_lea_a*10    = 'CC_L_A(+1)',
     &     fopt_cc_lea_a*14    = 'CC_L_A(+1)_OPT'
      character, parameter ::
     &     form_mpr12lg0*9       = 'Lg0_MPR12',
     &     form_mpr12en0*8       = 'E0_MPR12',
     &     form_mpr12rs_t*11     = 'OMG_T_MPR12',
     &     form_mpr12rs_c*11     = 'OMG_C_MPR12',
     &     form_mpr12rs_cex*12   = 'OMG_CP_MPR12',
     &     form_mpr12rs_cexx*13  = 'OMG_CPP_MPR12',
     &     form_ccr12lg0*9       = 'Lg0_CCR12',
     &     form_ccr12en0*8       = 'E0_CCR12',
     &     form_ccr12rs_t*11     = 'OMG_T_CCR12',
     &     form_ccr12rs_c*11     = 'OMG_C_CCR12',
     &     form_ccr12rs_cpp*12   = 'OMG_C"_CCR12',
     &     fopt_mpr12_0*10       = 'MP-R12-OPT',
     &     fopt_ccr12_0*10       = 'CC-R12-OPT'
      character, parameter ::
     &     form_ccr12_s0*8       = 'CCR12_S0',
     &     form_ccr12_s_v*9      = 'CCR12_S_V',
     &     fopt_ccr12_s_v*12     = 'CCR12_S_V_OPT',
     &     form_ccr12_s_t*9      = 'CCR12_S_T',
     &     form_ccr12_s_c*10     = 'CCR12_S_TP',
     &     form_ccr12_tbar_a*12  = 'CCR12_TBAR_A',
     &     form_ccr12_tbar_ap*13 = 'CCR12_TBAR_AP',
     &     form_ccr12_tbar_s*12  = 'CCR12_TBAR_S',
     &     form_ccr12_tbar_sp*13 = 'CCR12_TBAR_SP',
     &     form_cc_l_s_r*8       = 'CC_L_S_R',
     &     fopt_cc_l_s_r*12      = 'CC_L_S_R_OPT',
     &     form_ccr12_l_s_r*11   = 'CCR12_L_S_R',
     &     fopt_ccr12_l_s_r*15   = 'CCR12_L_S_R_OPT',
     &     form_ccr12_s_r*9      = 'CCR12_S_R',
     &     form_ccr12_s_rp*10    = 'CCR12_S_RP',
     &     form_ccr12_l_s*9      = 'CCR12_L_S',
     &     form_ccr12_l_sp*10    = 'CCR12_L_SP',
     &     form_cc_a_rp*7        = 'CC_A_RP',
     &     form_cc_l_ap*7        = 'CC_L_AP'
      character, parameter ::
     &     form_r12_r12bar*11  = 'R12BAR_CABS',
     &     fopt_r12_r12bar*10  = 'R12BAR_OPT',
     &     form_r12_r12tilde*13  = 'R12TILDE_CABS',
     &     fopt_r12_r12tilde*12 = 'R12TILDE_OPT',
     &     form_r12_vint*8     = 'VINT_R12',
     &     form_r12_vcabs*13   = 'VINT_R12_CABS',
     &     fopt_r12_vcabs*12   = 'VINT_R12_OPT',
     &     form_r12_vxcabs*14  = 'VXINT_R12_CABS',
     &     fopt_r12_vxcabs*13  = 'VXINT_R12_OPT',
     &     form_r12_v0int*9    = 'V0INT_R12',
     &     form_r12_v0cabs*14  = 'V0INT_R12_CABS',
     &     fopt_r12_v0cabs*13  = 'V0INT_R12_OPT',
     &     form_r12_v3int*9    = 'V3INT_R12',
     &     form_r12_v3cabs*14  = 'V3INT_R12_CABS',
     &     fopt_r12_v3cabs*13  = 'V3INT_R12_OPT',
     &     form_r12_v4int*9    = 'V4INT_R12',
     &     form_r12_v4cabs*14  = 'V4INT_R12_CABS',
     &     fopt_r12_v4cabs*13  = 'V4INT_R12_OPT',
     &     form_r12_vbint*10   = 'V+_INT_R12',
     &     form_r12_vbcabs*15  = 'V+_INT_R12_CABS',
     &     fopt_r12_vbcabs*14  = 'V+_INT_R12_OPT',
     &     form_r12_v0bint*11  = 'V0+_INT_R12',
     &     form_r12_v0bcabs*16 = 'V0+_INT_R12_CABS',
     &     fopt_r12_v0bcabs*15 = 'V0+_INT_R12_OPT',
     &     form_r12_v3bint*11  = 'V3+_INT_R12',
     &     form_r12_v3bcabs*16 = 'V3+_INT_R12_CABS',
     &     fopt_r12_v3bcabs*15 = 'V3+_INT_R12_OPT',
     &     form_r12_xint*8     = 'XINT_R12', 
     &     form_r12_xcabs*13   = 'XINT_R12_CABS', 
     &     fopt_r12_xcabs*12   = 'XINT_R12_OPT', 
     &     form_r12_xhint*9     = 'XhINT_R12', 
     &     form_r12_xhcabs*14   = 'XhINT_R12_CABS', 
     &     fopt_r12_xhcabs*13   = 'XhINT_R12_OPT', 
     &     form_r12_xpint*9     = 'X''INT_R12', 
     &     form_r12_xpcabs*14   = 'X''INT_R12_CABS', 
     &     fopt_r12_xpcabs*13   = 'X''INT_R12_OPT', 
     &     form_r12_x1int*9    = 'X1INT_R12', 
     &     form_r12_x1cabs*12  = 'X1INT_R12_CABS', 
     &     fopt_r12_x1cabs*13  = 'X1INT_R12_OPT', 
     &     form_r12_bint*8     = 'BINT_R12',
     &     form_r12_bcabs*13   = 'BINT_R12_CABS',
     &     fopt_r12_bcabs*12   = 'BINT_R12_OPT',
     &     form_r12_bhint*9    = 'BhINT_R12',
     &     form_r12_bhcabs*14  = 'BhINT_R12_CABS',
     &     fopt_r12_bhcabs*13  = 'BhINT_R12_OPT',
     &     form_r12_b0int*9    = 'B0INT_R12',
     &     form_r12_b0cabs*14  = 'B0INT_R12_CABS',
     &     fopt_r12_b0cabs*13  = 'B0INT_R12_OPT',
     &     form_r12_cint*8     = 'CINT_R12',
     &     form_r12_ccabs*13   = 'CINT_R12_CABS',
     &     fopt_r12_ccabs*12   = 'CINT_R12_OPT',
     &     form_r12_cbint*9    = 'C+INT_R12',
     &     form_r12_cbcabs*14  = 'C+INT_R12_CABS',
     &     fopt_r12_cbcabs*13  = 'C+INT_R12_OPT',
     &     form_r12_pint*8     = 'PINT_R12',
     &     form_r12_pcabs*13   = 'PINT_R12_CABS',
     &     fopt_r12_pcabs*12   = 'PINT_R12_OPT',
     &     form_r12_p3fint*10  = 'P3FINT_R12',
     &     form_r12_p3fcabs*15 = 'P3FINT_R12_CABS',
     &     fopt_r12_p3fcabs*14 = 'P3FINT_R12_OPT',
     &     form_r12_p3gint*10  = 'P3GINT_R12',
     &     form_r12_p3gcabs*15 = 'P3GINT_R12_CABS',
     &     fopt_r12_p3gcabs*14 = 'P3GINT_R12_OPT',
     &     form_r12_zint*8     = 'ZINT_R12',
     &     form_r12_zcabs*13   = 'ZINT_R12_CABS',
     &     fopt_r12_zcabs*12   = 'ZINT_R12_OPT',
     &     form_r12_z4int*9    = 'Z4INT_R12',
     &     form_r12_z4cabs*14  = 'Z4INT_R12_CABS',
     &     fopt_r12_z4cabs*13  = 'Z4INT_R12_OPT',
     &     form_r12_k4int*9    = 'K4INT_R12',
     &     form_r12_k4cabs*14  = 'K4INT_R12_CABS',
     &     fopt_r12_k4cabs*13  = 'K4INT_R12_OPT',
     &     form_r12_bucabs*12  = 'B_U_R12_CABS',
     &     fopt_r12_bucabs*11  = 'B_U_R12_OPT',
     &     form_r12_bsymm*9    = 'BSYMM_R12',
     &     form_r12_binv*8     = 'BINV_R12',
c dbg
     &     form_x_test*11      = 'X-TEST_FORM',
     &     form_x_test_eval*15 = 'X-TEST_FORM_EVAL',
     &     fopt_x_test*12      = 'X-TEST_OPT',
     &     form_v_test*11      = 'V-TEST_FORM',
     &     form_v_test_eval*15 = 'V-TEST_FORM_EVAL',
     &     fopt_v_test*12      = 'V-TEST_OPT',
     &     form_p_test*11      = 'P-TEST_FORM',
     &     form_p_test_eval*15 = 'P-TEST_FORM_EVAL',
     &     fopt_p_test*12      = 'P-TEST_OPT',
     &     form_z_test*11      = 'Z-TEST_FORM',
     &     form_z_test_eval*15 = 'Z-TEST_FORM_EVAL',
     &     fopt_z_test*12      = 'Z-TEST_OPT'
c dbg
c     &     form_f12int_fix*8   = 'F12FIXED',
c     &     fopt_f12int_fix*12  = 'F12FIXED_OPT',
c     &     form_t12f12int_fix*11  = 'T12F12FIXED',
c     &     fopt_t12f12int_fix*15  = 'T12F12FIXED_OPT',
c     &     form_g12f12int_fix*11  = 'G12F12FIXED',
c     &     fopt_g12f12int_fix*15  = 'G12F12FIXED_OPT'
c dbg
