From 28859e64f11567be02442b5d287494d03b3a0307 Mon Sep 17 00:00:00 2001 From: Huub Van Dam Date: Mon, 10 Oct 2011 06:35:49 +0000 Subject: [PATCH] HvD: Added and activated the Id: revision tag to a number of files that not had any revision number information included before. --- src/64to32blas/y64.fh | 1 + src/NWints/api/int_giaobq10.F | 2 +- src/NWints/ecp/ecp_consts.fh | 1 + src/NWints/hondo/hnd_denxyz.F | 1 + src/NWints/hondo/hnd_droot.F | 2 +- src/NWints/hondo/hnd_giao.fh | 1 + src/NWints/hondo/hnd_giaobq10.F | 2 +- src/NWints/hondo/hnd_xyzgia.F | 1 + src/NWints/int/case.fh | 1 + src/NWints/int/case_impl.F | 1 + src/NWints/rel/zora.fh | 1 + src/NWints/rel/zora_input.F | 1 + src/analyz/ana_chgdst.F | 1 + src/analyz/ana_esppt.F | 1 + src/analyz/ana_index.F | 1 + src/analyz/ana_rdtop.F | 1 + src/argos/argos_addref.F | 1 + src/argos/argos_cafe.F | 1 + src/argos/argos_cafe_add_eangles.F | 1 + src/argos/argos_cafe_add_ebonds.F | 1 + src/argos/argos_cafe_add_edihes.F | 1 + src/argos/argos_cafe_add_eimprs.F | 1 + src/argos/argos_cafe_add_esa.F | 1 + src/argos/argos_cafe_am.F | 1 + src/argos/argos_cafe_anint.F | 1 + src/argos/argos_cafe_atmass.F | 1 + src/argos/argos_cafe_atonum.F | 1 + src/argos/argos_cafe_atotyp.F | 1 + src/argos/argos_cafe_binit.F | 1 + src/argos/argos_cafe_cenmas.F | 1 + src/argos/argos_cafe_center.F | 1 + src/argos/argos_cafe_charge.F | 1 + src/argos/argos_cafe_chg.F | 1 + src/argos/argos_cafe_chgrid.F | 1 + src/argos/argos_cafe_cms.F | 1 + src/argos/argos_cafe_cmw.F | 1 + src/argos/argos_cafe_cntlnk.F | 1 + src/argos/argos_cafe_collapse.F | 1 + src/argos/argos_cafe_comb.F | 1 + src/argos/argos_cafe_coms.F | 1 + src/argos/argos_cafe_comw.F | 1 + src/argos/argos_cafe_copwiq.F | 1 + src/argos/argos_cafe_copya.F | 1 + src/argos/argos_cafe_copyq.F | 1 + src/argos/argos_cafe_copyv.F | 1 + src/argos/argos_cafe_dera_i.F | 1 + src/argos/argos_cafe_dera_init.F | 1 + src/argos/argos_cafe_dlist.F | 1 + src/argos/argos_cafe_element.F | 1 + src/argos/argos_cafe_epme.F | 1 + src/argos/argos_cafe_extern.F | 1 + src/argos/argos_cafe_external_field.F | 1 + src/argos/argos_cafe_final.F | 1 + src/argos/argos_cafe_fix.F | 1 + src/argos/argos_cafe_fix_sw.F | 1 + src/argos/argos_cafe_fld.F | 1 + src/argos/argos_cafe_fnorm.F | 1 + src/argos/argos_cafe_fnrm.F | 1 + src/argos/argos_cafe_fold.F | 1 + src/argos/argos_cafe_forpme.F | 1 + src/argos/argos_cafe_fpme.F | 1 + src/argos/argos_cafe_free.F | 1 + src/argos/argos_cafe_funcs_dec.fh | 1 + src/argos/argos_cafe_funcs_sfn.fh | 1 + src/argos/argos_cafe_gauss.F | 1 + src/argos/argos_cafe_gauss1.F | 1 + src/argos/argos_cafe_grid.F | 1 + src/argos/argos_cafe_hop.F | 1 + src/argos/argos_cafe_hopinit.F | 1 + src/argos/argos_cafe_hoplist.F | 1 + src/argos/argos_cafe_icopy.F | 1 + src/argos/argos_cafe_index.F | 1 + src/argos/argos_cafe_init.F | 1 + src/argos/argos_cafe_inita.F | 1 + src/argos/argos_cafe_initb.F | 1 + src/argos/argos_cafe_jcopy.F | 1 + src/argos/argos_cafe_lalloc.F | 1 + src/argos/argos_cafe_lam.F | 1 + src/argos/argos_cafe_lambda.F | 1 + src/argos/argos_cafe_lampmf.F | 1 + src/argos/argos_cafe_lfree.F | 1 + src/argos/argos_cafe_links.F | 1 + src/argos/argos_cafe_lpfrog.F | 1 + src/argos/argos_cafe_lpfrog_bc.F | 1 + src/argos/argos_cafe_lsb.F | 1 + src/argos/argos_cafe_lsd.F | 1 + src/argos/argos_cafe_lsh.F | 1 + src/argos/argos_cafe_lso.F | 1 + src/argos/argos_cafe_lss.F | 1 + src/argos/argos_cafe_lst.F | 1 + src/argos/argos_cafe_lstmul.F | 1 + src/argos/argos_cafe_lsw.F | 1 + src/argos/argos_cafe_m.F | 1 + src/argos/argos_cafe_mass.F | 1 + src/argos/argos_cafe_mcti.F | 1 + src/argos/argos_cafe_mcti_kin.F | 1 + src/argos/argos_cafe_mcti_w.F | 1 + src/argos/argos_cafe_mdstep.F | 1 + src/argos/argos_cafe_mlist.F | 1 + src/argos/argos_cafe_multi.F | 1 + src/argos/argos_cafe_ncopy.F | 1 + src/argos/argos_cafe_ndxtrd.F | 1 + src/argos/argos_cafe_ndxxcl.F | 1 + src/argos/argos_cafe_num2nam.F | 1 + src/argos/argos_cafe_num2tag.F | 1 + src/argos/argos_cafe_numcon.F | 1 + src/argos/argos_cafe_para.F | 1 + src/argos/argos_cafe_parang.F | 1 + src/argos/argos_cafe_parbnd.F | 1 + src/argos/argos_cafe_pardif.F | 1 + src/argos/argos_cafe_pardih.F | 1 + src/argos/argos_cafe_parimp.F | 1 + src/argos/argos_cafe_parq.F | 1 + src/argos/argos_cafe_parseq.F | 1 + src/argos/argos_cafe_parv.F | 1 + src/argos/argos_cafe_parwiq.F | 1 + src/argos/argos_cafe_pcopy.F | 1 + src/argos/argos_cafe_plist.F | 1 + src/argos/argos_cafe_pmec.F | 1 + src/argos/argos_cafe_pmecor.F | 1 + src/argos/argos_cafe_pmelam.F | 1 + src/argos/argos_cafe_pmeset.F | 1 + src/argos/argos_cafe_pr_angles.F | 1 + src/argos/argos_cafe_pr_bonds.F | 1 + src/argos/argos_cafe_pr_dihes.F | 1 + src/argos/argos_cafe_pr_imprs.F | 1 + src/argos/argos_cafe_pr_pmf.F | 1 + src/argos/argos_cafe_print_atypes.F | 1 + src/argos/argos_cafe_print_ctypes.F | 1 + src/argos/argos_cafe_print_d.F | 1 + src/argos/argos_cafe_print_deco.F | 1 + src/argos/argos_cafe_print_der.F | 1 + src/argos/argos_cafe_print_dera.F | 1 + src/argos/argos_cafe_print_distar.F | 1 + src/argos/argos_cafe_print_dstr.F | 1 + src/argos/argos_cafe_print_energy.F | 1 + src/argos/argos_cafe_print_solute.F | 1 + src/argos/argos_cafe_print_solvent.F | 1 + src/argos/argos_cafe_print_top.F | 1 + src/argos/argos_cafe_proper.F | 1 + src/argos/argos_cafe_quantuma.F | 1 + src/argos/argos_cafe_rddrs.F | 1 + src/argos/argos_cafe_rdgib.F | 1 + src/argos/argos_cafe_rdmri.F | 1 + src/argos/argos_cafe_rdpmf.F | 1 + src/argos/argos_cafe_restor.F | 1 + src/argos/argos_cafe_rgib.F | 1 + src/argos/argos_cafe_rmri.F | 1 + src/argos/argos_cafe_salloc.F | 1 + src/argos/argos_cafe_scaleq.F | 1 + src/argos/argos_cafe_sclq.F | 1 + src/argos/argos_cafe_scmf.F | 1 + src/argos/argos_cafe_scmfor.F | 1 + src/argos/argos_cafe_setbox.F | 1 + src/argos/argos_cafe_sfree.F | 1 + src/argos/argos_cafe_shakep.F | 1 + src/argos/argos_cafe_shakes.F | 1 + src/argos/argos_cafe_shkp.F | 1 + src/argos/argos_cafe_shks.F | 1 + src/argos/argos_cafe_shkw.F | 1 + src/argos/argos_cafe_slow.F | 1 + src/argos/argos_cafe_slowr.F | 1 + src/argos/argos_cafe_slowt.F | 1 + src/argos/argos_cafe_topol_init.F | 1 + src/argos/argos_cafe_trjhdr.F | 1 + src/argos/argos_cafe_ts.F | 1 + src/argos/argos_cafe_tscale.F | 1 + src/argos/argos_cafe_tw.F | 1 + src/argos/argos_cafe_uhop.F | 1 + src/argos/argos_cafe_veloc.F | 1 + src/argos/argos_cafe_volume.F | 1 + src/argos/argos_cafe_vs.F | 1 + src/argos/argos_cafe_vscal.F | 1 + src/argos/argos_cafe_vscale.F | 1 + src/argos/argos_cafe_vw.F | 1 + src/argos/argos_cafe_wbox.F | 1 + src/argos/argos_cafe_wcharge.F | 1 + src/argos/argos_cafe_wrtgib.F | 1 + src/argos/argos_cafe_wrtmro.F | 1 + src/argos/argos_cafe_wtgib.F | 1 + src/argos/argos_cafe_wthdr.F | 1 + src/argos/argos_cafe_wtmro.F | 1 + src/argos/argos_cmopt.F | 1 + src/argos/argos_congra.F | 1 + src/argos/argos_diana_addangle.F | 1 + src/argos/argos_diana_adddistance.F | 1 + src/argos/argos_diana_addorder.F | 1 + src/argos/argos_diana_addtorsion.F | 1 + src/argos/argos_diana_all.F | 1 + src/argos/argos_diana_anahdr.F | 1 + src/argos/argos_diana_center_fold.F | 1 + src/argos/argos_diana_chgdst.F | 1 + src/argos/argos_diana_cov.F | 1 + src/argos/argos_diana_diehdr.F | 1 + src/argos/argos_diana_edfinal.F | 1 + src/argos/argos_diana_edinit.F | 1 + src/argos/argos_diana_equiord.F | 1 + src/argos/argos_diana_equitors.F | 1 + src/argos/argos_diana_equivalent.F | 1 + src/argos/argos_diana_espgrd.F | 1 + src/argos/argos_diana_esppt.F | 1 + src/argos/argos_diana_evalangl.F | 1 + src/argos/argos_diana_evaldist.F | 1 + src/argos/argos_diana_evalord.F | 1 + src/argos/argos_diana_evaltors.F | 1 + src/argos/argos_diana_export.F | 1 + src/argos/argos_diana_final.F | 1 + src/argos/argos_diana_getcard.F | 1 + src/argos/argos_diana_getcmd.F | 1 + src/argos/argos_diana_getofffr.F | 1 + src/argos/argos_diana_getslo.F | 1 + src/argos/argos_diana_getsls.F | 1 + src/argos/argos_diana_grpcogang.F | 1 + src/argos/argos_diana_grpcogdis.F | 1 + src/argos/argos_diana_grpdis.F | 1 + src/argos/argos_diana_grploc.F | 1 + src/argos/argos_diana_grpvectors.F | 1 + src/argos/argos_diana_hbond.F | 1 + src/argos/argos_diana_hbond_header.F | 1 + src/argos/argos_diana_histo.F | 1 + src/argos/argos_diana_index.F | 1 + src/argos/argos_diana_initag.F | 1 + src/argos/argos_diana_jacobi.F | 1 + src/argos/argos_diana_listangl.F | 1 + src/argos/argos_diana_listdist.F | 1 + src/argos/argos_diana_listord.F | 1 + src/argos/argos_diana_listtors.F | 1 + src/argos/argos_diana_lochdr.F | 1 + src/argos/argos_diana_order.F | 1 + src/argos/argos_diana_pcovar.F | 1 + src/argos/argos_diana_preadframe.F | 1 + src/argos/argos_diana_proj.F | 1 + src/argos/argos_diana_project.F | 1 + src/argos/argos_diana_puttrj.F | 1 + src/argos/argos_diana_rama1.F | 1 + src/argos/argos_diana_rama2.F | 1 + src/argos/argos_diana_ramhdr.F | 1 + src/argos/argos_diana_rdchg.F | 1 + src/argos/argos_diana_rdf.F | 1 + src/argos/argos_diana_rdfhdr.F | 1 + src/argos/argos_diana_rdfwrt.F | 1 + src/argos/argos_diana_rdsel.F | 1 + src/argos/argos_diana_rdssl.F | 1 + src/argos/argos_diana_rdtop.F | 1 + src/argos/argos_diana_readsel.F | 1 + src/argos/argos_diana_report.F | 1 + src/argos/argos_diana_report_loc.F | 1 + src/argos/argos_diana_rotate.F | 1 + src/argos/argos_diana_savsel.F | 1 + src/argos/argos_diana_savssl.F | 1 + src/argos/argos_diana_selection.F | 1 + src/argos/argos_diana_setiomode.F | 1 + src/argos/argos_diana_settag.F | 1 + src/argos/argos_diana_siztop.F | 1 + src/argos/argos_diana_supimp.F | 1 + src/argos/argos_diana_test.F | 1 + src/argos/argos_diana_test2.F | 1 + src/argos/argos_diana_update.F | 1 + src/argos/argos_diana_wall.F | 1 + src/argos/argos_diana_wcount.F | 1 + src/argos/argos_diana_wdefin.F | 1 + src/argos/argos_diana_wrtdat.F | 1 + src/argos/argos_diana_wrtsel.F | 1 + src/argos/argos_diana_wrttrj.F | 1 + src/argos/argos_diana_wrtvec.F | 1 + src/argos/argos_diana_wselect.F | 1 + src/argos/argos_diana_xcollect.F | 1 + src/argos/argos_diana_xmean.F | 1 + src/argos/argos_em.F | 1 + src/argos/argos_em_fnorm.F | 1 + src/argos/argos_eminit.F | 1 + src/argos/argos_fclass.F | 1 + src/argos/argos_fd.F | 1 + src/argos/argos_finit.F | 1 + src/argos/argos_fold.F | 1 + src/argos/argos_fopen.F | 1 + src/argos/argos_forces.F | 1 + src/argos/argos_guided.F | 1 + src/argos/argos_hdrtim.F | 1 + src/argos/argos_induce_start.F | 1 + src/argos/argos_md.F | 1 + src/argos/argos_membrane_forces.F | 1 + src/argos/argos_membrane_init.F | 1 + src/argos/argos_newton.F | 1 + src/argos/argos_partition.F | 1 + src/argos/argos_partition_end.F | 1 + src/argos/argos_pme_coeff.F | 1 + src/argos/argos_pme_dftmod.F | 1 + src/argos/argos_pme_energy.F | 1 + src/argos/argos_pme_fftest.F | 1 + src/argos/argos_pme_finish.F | 1 + src/argos/argos_pme_flag.F | 1 + src/argos/argos_pme_for.F | 1 + src/argos/argos_pme_forces.F | 1 + src/argos/argos_pme_getgrd.F | 1 + src/argos/argos_pme_grid.F | 1 + src/argos/argos_pme_init.F | 1 + src/argos/argos_pme_putgrd.F | 1 + src/argos/argos_pme_select.F | 1 + src/argos/argos_pme_selnod.F | 1 + src/argos/argos_pme_splfil.F | 1 + src/argos/argos_pme_sync.F | 1 + src/argos/argos_pme_synop.F | 1 + src/argos/argos_pme_wait.F | 1 + src/argos/argos_prep_atom_selection.F | 1 + src/argos/argos_prep_collaps.F | 1 + src/argos/argos_prep_crop.F | 1 + src/argos/argos_prep_master.F | 1 + src/argos/argos_prep_quick_charge.F | 1 + src/argos/argos_prep_ring.F | 1 + src/argos/argos_prep_ssize.F | 1 + src/argos/argos_prep_str_replace.F | 1 + src/argos/argos_prep_wrtnoe.F | 1 + src/argos/argos_prep_wrtpmf.F | 1 + src/argos/argos_prep_wtrst.F | 1 + src/argos/argos_prepare_atom_selection.F | 1 + src/argos/argos_prepare_collaps.F | 1 + src/argos/argos_prepare_crop.F | 1 + src/argos/argos_prepare_master.F | 1 + src/argos/argos_prepare_quick_charge.F | 1 + src/argos/argos_prepare_ring.F | 1 + src/argos/argos_prepare_ssize.F | 1 + src/argos/argos_prepare_wrtnoe.F | 1 + src/argos/argos_prepare_wrtpmf.F | 1 + src/argos/argos_prepare_wtrst.F | 1 + src/argos/argos_print.F | 1 + src/argos/argos_prop_dfr.F | 1 + src/argos/argos_prop_dfr_copy.F | 1 + src/argos/argos_prop_finish.F | 1 + src/argos/argos_prop_header.F | 1 + src/argos/argos_prop_init.F | 1 + src/argos/argos_prop_mcti.F | 1 + src/argos/argos_prop_mcti_acc.F | 1 + src/argos/argos_prop_mcti_r.F | 1 + src/argos/argos_prop_mcti_run.F | 1 + src/argos/argos_prop_mcti_s.F | 1 + src/argos/argos_prop_mcti_step.F | 1 + src/argos/argos_prop_print.F | 1 + src/argos/argos_prop_proper.F | 1 + src/argos/argos_prop_rdmri.F | 1 + src/argos/argos_prop_rdrest.F | 1 + src/argos/argos_prop_record.F | 1 + src/argos/argos_prop_rmri.F | 1 + src/argos/argos_prop_setup.F | 1 + src/argos/argos_prop_stat.F | 1 + src/argos/argos_prop_wrtmro.F | 1 + src/argos/argos_prop_wtmro.F | 1 + src/argos/argos_prop_wtrest.F | 1 + src/argos/argos_rdinp.F | 1 + src/argos/argos_rdrest.F | 1 + src/argos/argos_server.F | 1 + src/argos/argos_shake.F | 1 + src/argos/argos_sp.F | 1 + src/argos/argos_space_accfbl.F | 1 + src/argos/argos_space_accpbl.F | 1 + src/argos/argos_space_acfbl.F | 1 + src/argos/argos_space_acpbl.F | 1 + src/argos/argos_space_alloc.F | 1 + src/argos/argos_space_alloc2.F | 1 + src/argos/argos_space_balanc.F | 1 + src/argos/argos_space_bscale.F | 1 + src/argos/argos_space_btop.F | 1 + src/argos/argos_space_cascad.F | 1 + src/argos/argos_space_copyg.F | 1 + src/argos/argos_space_decomp.F | 1 + src/argos/argos_space_diffbb.F | 1 + src/argos/argos_space_dimens.F | 1 + src/argos/argos_space_dldbal.F | 1 + src/argos/argos_space_final.F | 1 + src/argos/argos_space_finish.F | 1 + src/argos/argos_space_fix.F | 1 + src/argos/argos_space_free.F | 1 + src/argos/argos_space_gagetf.F | 1 + src/argos/argos_space_gagetixv.F | 1 + src/argos/argos_space_gagetixvf.F | 1 + src/argos/argos_space_gaputf.F | 1 + src/argos/argos_space_gaputix.F | 1 + src/argos/argos_space_gaputixv.F | 1 + src/argos/argos_space_getda.F | 1 + src/argos/argos_space_gethdl.F | 1 + src/argos/argos_space_getixv.F | 1 + src/argos/argos_space_getp.F | 1 + src/argos/argos_space_gettp.F | 1 + src/argos/argos_space_getxbl.F | 1 + src/argos/argos_space_getxpbl.F | 1 + src/argos/argos_space_getxscr.F | 1 + src/argos/argos_space_gtda.F | 1 + src/argos/argos_space_gthdl.F | 1 + src/argos/argos_space_gtlocal.F | 1 + src/argos/argos_space_gtxpbl.F | 1 + src/argos/argos_space_ibbl_prefetch.F | 1 + src/argos/argos_space_initf.F | 1 + src/argos/argos_space_initip.F | 1 + src/argos/argos_space_latoms.F | 1 + src/argos/argos_space_lbbl_ind.F | 1 + src/argos/argos_space_lbbl_indices.F | 1 + src/argos/argos_space_lbbl_prefetch.F | 1 + src/argos/argos_space_listbb.F | 1 + src/argos/argos_space_local.F | 1 + src/argos/argos_space_nbaccfbl.F | 1 + src/argos/argos_space_nbacfbl.F | 1 + src/argos/argos_space_nbbl.F | 1 + src/argos/argos_space_nbwait.F | 1 + src/argos/argos_space_nbwait2.F | 1 + src/argos/argos_space_nbwait3.F | 1 + src/argos/argos_space_nbwaitf.F | 1 + src/argos/argos_space_nrnode.F | 1 + src/argos/argos_space_numbb.F | 1 + src/argos/argos_space_owner.F | 1 + src/argos/argos_space_owners.F | 1 + src/argos/argos_space_ownerw.F | 1 + src/argos/argos_space_pack.F | 1 + src/argos/argos_space_pack_finish.F | 1 + src/argos/argos_space_pack_ga.F | 1 + src/argos/argos_space_pack_init.F | 1 + src/argos/argos_space_packw.F | 1 + src/argos/argos_space_prefetch.F | 1 + src/argos/argos_space_prefetch_all.F | 1 + src/argos/argos_space_prefetch_next.F | 1 + src/argos/argos_space_prefetch_p.F | 1 + src/argos/argos_space_print.F | 1 + src/argos/argos_space_printf.F | 1 + src/argos/argos_space_prt_s.F | 1 + src/argos/argos_space_prtcnt.F | 1 + src/argos/argos_space_putix.F | 1 + src/argos/argos_space_putp.F | 1 + src/argos/argos_space_qatoms.F | 1 + src/argos/argos_space_rdmri.F | 1 + src/argos/argos_space_rdrest.F | 1 + src/argos/argos_space_rdrst.F | 1 + src/argos/argos_space_rdtrj.F | 1 + src/argos/argos_space_resize.F | 1 + src/argos/argos_space_rmri.F | 1 + src/argos/argos_space_rrest.F | 1 + src/argos/argos_space_rtrj.F | 1 + src/argos/argos_space_skip.F | 1 + src/argos/argos_space_travel.F | 1 + src/argos/argos_space_trvl.F | 1 + src/argos/argos_space_unpack.F | 1 + src/argos/argos_space_unpackw.F | 1 + src/argos/argos_space_upd_i.F | 1 + src/argos/argos_space_update.F | 1 + src/argos/argos_space_update_i.F | 1 + src/argos/argos_space_wrest.F | 1 + src/argos/argos_space_wrtbxsz.F | 1 + src/argos/argos_space_wrtmro.F | 1 + src/argos/argos_space_wrtrst.F | 1 + src/argos/argos_space_wrttrj.F | 1 + src/argos/argos_space_wtmro.F | 1 + src/argos/argos_space_wtrest.F | 1 + src/argos/argos_space_wtrst.F | 1 + src/argos/argos_space_wttrj.F | 1 + src/argos/argos_spi.F | 1 + src/argos/argos_stdesc.F | 1 + src/argos/argos_test.F | 1 + src/argos/argos_ti.F | 1 + src/argos/argos_timer_init.F | 1 + src/argos/argos_timing.F | 1 + src/argos/argos_wrtime.F | 1 + src/argos/argos_wrtrst.F | 1 + src/argos/argos_wtrest.F | 1 + src/argos/argos_zinit.F | 1 + src/argos/str_replace.F | 1 + src/blas/double/izamax.f | 1 + src/bq/bq.fh | 1 + src/cafe/cf_f.F | 1 + src/cafe/cf_funcs_dec.fh | 1 + src/cafe/cf_funcs_sfn.fh | 1 + src/cafe/cf_uhop.F | 1 + src/cca/include/NWChemWrap.fh | 1 + src/ccca/ccca_utils.F | 1 + src/ccca/task_ccca.F | 1 + src/cckohn/bessel/cckohn_spline.F | 1 + src/cckohn/bessel/gg.F | 1 + src/cckohn/bessel/outward.F | 1 + src/cckohn/bessel/sjymec.F | 1 + src/cckohn/bessel/splinec.F | 1 + src/cckohn/bessel/ubesplg.F | 1 + src/cckohn/bessel/zero.F | 1 + src/cckohn/bforthog.F | 1 + src/cckohn/cckohn.fh | 1 + src/cckohn/cknew.F | 1 + src/cckohn/denom.F | 1 + src/cckohn/fforth1.F | 1 + src/cckohn/fforth2.F | 1 + src/cckohn/hbftrans.F | 1 + src/cckohn/obftrans.F | 1 + src/cckohn/top.F | 1 + src/ccsd/ccsd_tengy_bgp2.F | 1 + src/ccsd/f_memset.c | 1 + src/chelp/grid/chelp_atom_rad.F | 1 + src/chelp/grid/chelp_grid.F | 1 + src/chelp/grid/chelp_grid_data.F | 1 + src/chelp/task_chelp.F | 1 + src/cons/cons.F | 1 + src/cons/cons.fh | 1 + src/cons/cons_springs.F | 1 + src/dangchang/dc_energy.F | 1 + src/dangchang/dc_initialize.F | 1 + src/dangchang/dc_setgeom.F | 1 + src/ddscf/ga_get2eri.F | 1 + src/ddscf/print_1eints.F | 1 + src/ddscf/rohf_scat.F | 1 + src/ddscf/uhf_jkfac.F | 1 + src/develop/cuccsdtP.fh | 1 + src/develop/jantest.F | 1 + src/diana/dia_chgdst.F | 1 + src/diana/dia_esppt.F | 1 + src/diana/dia_index.F | 1 + src/diana/dia_rdtop.F | 1 + src/dplot/ao_rdm_read.F | 1 + src/dplot/dplot_defgrid.F | 1 + src/dplot/dplot_dump.F | 1 + src/drdy/rsp.F | 1 + src/driver/lbfgs.F | 1 + src/driver/lbfgs_driver.F | 1 + src/etrans/et_dens_prod.F | 1 + src/etrans/et_fock.F | 1 + src/etrans/et_movecs_read.F | 1 + src/etrans/et_omega2_mult.F | 1 + src/hessian/analytic/hess_energyinit.F | 1 + src/hessian/analytic/print_dens_bit.F | 1 + src/hessian/analytic/shell_fock_build_cam.F | 2 +- .../analytic/shell_fock_build_cam_multiple.F | 1 + .../analytic/shell_fock_build_cam_single.F | 1 + src/hessian/analytic/shell_fock_buildjk.F | 1 + src/hessian/analytic/shell_fock_buildxc.F | 1 + src/inp/inp.fh | 1 + src/input/mem_what.fh | 1 + src/lapack/double/dgels.F | 1 + src/lapack/double/dlaebz.f | 1 + src/lapack/double/dlaed0.f | 1 + src/lapack/double/dlaed1.f | 1 + src/lapack/double/dlaed2.f | 1 + src/lapack/double/dlaed3.f | 1 + src/lapack/double/dlaed4.f | 1 + src/lapack/double/dlaed5.f | 1 + src/lapack/double/dlaed6.f | 1 + src/lapack/double/dlaed7.f | 1 + src/lapack/double/dlaed8.f | 1 + src/lapack/double/dlaed9.f | 1 + src/lapack/double/dlaeda.f | 1 + src/lapack/double/dlamrg.f | 1 + src/lapack/double/dstedc.f | 1 + src/lapack/double/dtrtrs.f | 1 + src/lapack/single/slaebz.f | 1 + src/lapack/single/slaed0.f | 1 + src/lapack/single/slaed1.f | 1 + src/lapack/single/slaed2.f | 1 + src/lapack/single/slaed3.f | 1 + src/lapack/single/slaed4.f | 1 + src/lapack/single/slaed5.f | 1 + src/lapack/single/slaed6.f | 1 + src/lapack/single/slaed7.f | 1 + src/lapack/single/slaed8.f | 1 + src/lapack/single/slaed9.f | 1 + src/lapack/single/slaeda.f | 1 + src/lapack/single/slamrg.f | 1 + src/lapack/single/slasq6.f | 1 + src/lapack/single/sposv.f | 1 + src/lapack/single/spotrs.f | 1 + src/lapack/single/sstedc.f | 1 + src/lapack/single/strtrs.f | 1 + src/leps/const_data.fh | 1 + src/leps/crossing.F | 1 + src/leps/gasdev.F | 1 + src/leps/leps_energy.F | 1 + src/leps/leps_gradient.F | 1 + src/leps/mc_data.F | 1 + src/leps/mc_driver.F | 1 + src/leps/mc_init.F | 1 + src/leps/mc_main.F | 1 + src/leps/md_data.F | 1 + src/leps/md_driver.F | 1 + src/leps/md_set.F | 1 + src/leps/mymc_input.F | 1 + src/leps/mymd_input.F | 1 + src/leps/pred-corr.F | 1 + src/leps/subgr.fh | 1 + src/leps/urand.F | 1 + src/moints/sifs1.F | 1 + src/ncc/ncc_util.F | 1 + src/nwdft/coulomb/dft_get2eri.F | 1 + src/nwdft/grid/grid_cube.fh | 1 + src/nwdft/grid/grid_finpts.F | 1 + src/nwdft/grid/grid_init.F | 1 + src/nwdft/grid/grid_quad.fh | 1 + src/nwdft/grid/grid_sic.fh | 1 + src/nwdft/grid/grid_ylm.F | 1 + src/nwdft/include/steric.fh | 1 + src/nwdft/input_dft/occup_input.F | 2 +- src/nwdft/lr_tddft/tddft_bdtensor.F | 1 + src/nwdft/scf_dft/dft_dump_info.F | 1 + src/nwdft/scf_dft/dft_fant.F | 1 + src/nwdft/scf_dft/dft_fdist_init.F | 1 + src/nwdft/scf_dft/dft_pstat.F | 1 + src/nwdft/scf_dft/dft_scaleMO.F | 1 + src/nwdft/scf_dft/dft_scfutil.F | 1 + src/nwdft/scf_dft_cg/GNUmakefile | 2 +- src/nwdft/scf_dft_cg/dft_cg_answer.F | 1 + src/nwdft/scf_dft_cg/dft_cg_guess.F | 1 + src/nwdft/scf_dft_cg/dft_cg_info.F | 1 + src/nwdft/scf_dft_cg/dft_cg_solve.F | 2 +- src/nwdft/scf_dft_cg/dft_cscf.F | 1 + src/nwdft/scf_dft_cg/dft_get_conv_info.F | 2 +- src/nwdft/scf_dft_cg/dft_roks_energy.F | 2 +- src/nwdft/scf_dft_cg/dft_roks_fock.F | 2 +- src/nwdft/scf_dft_cg/dft_roks_hessv.F | 2 +- src/nwdft/scf_dft_cg/dft_roks_hessv_2e.F | 2 +- src/nwdft/scf_dft_cg/dft_roks_hessv_xx.F | 2 +- src/nwdft/scf_dft_cg/dft_roks_nr_solve.F | 2 +- .../scf_dft_cg/dft_roks_search_precond.F | 2 +- src/nwdft/scf_dft_cg/dft_roks_step_energy.F | 2 +- src/nwdft/scf_dft_cg/dft_uks_energy.F | 2 +- src/nwdft/scf_dft_cg/dft_uks_hessv.F | 2 +- src/nwdft/scf_dft_cg/dft_uks_hessv_2e.F | 1 + src/nwdft/scf_dft_cg/dft_uks_nr_solve.F | 2 +- src/nwdft/scf_dft_cg/dft_uks_search_precond.F | 1 + src/nwdft/scf_dft_cg/dft_uks_step_energy.F | 1 + src/nwdft/so_dft/consts.fh | 1 + src/nwdft/so_dft/dft_scaleMO_so.F | 1 + src/nwdft/so_dft/dft_scf_utils_so.F | 1 + src/nwdft/util/dft_frozemb.F | 1 + src/nwdft/util/dft_pstrace.F | 1 + src/nwdft/xc/hse08fx.F | 1 + src/nwdft/xc/steric_energy.F | 1 + src/nwdft/xc/xc.fh | 1 + src/nwdft/xc/xc_chkdispauto.F | 1 + src/nwdft/xc/xc_exact_pot.F | 1 + src/nwdft/xc/xc_hfexch.F | 1 + src/nwdft/xc/xc_oep.F | 1 + src/nwdft/xc/xc_params.fh | 1 + src/nwdft/xc/xc_rodaes_erf.F | 1 + src/nwdft/xc/xc_xwpbe.F | 1 + src/nwdft/zora/Incomplete_Gamma_TOMS_654.F | 1 + src/nwdft/zora/calc_EFG.F | 1 + src/nwdft/zora/calc_zora_EFGZ4_SO.F | 1 + src/nwdft/zora/calc_zora_EFGZ4_SR.F | 1 + src/nwdft/zora/calc_zora_EPR.F | 1 + src/nwdft/zora/calc_zora_HFine.F | 1 + src/nwdft/zora/calc_zora_NMRCS_SR.F | 1 + src/nwdft/zora/calc_zora_sf.F | 1 + src/nwdft/zora/calc_zora_sf_FA.F | 1 + src/nwdft/zora/calc_zora_so.F | 1 + src/nwdft/zora/calc_zora_so_FA.F | 1 + src/nwdft/zora/dft_zora_EPR-NMR_tools.F | 1 + src/nwdft/zora/dft_zora_EPR.F | 1 + src/nwdft/zora/dft_zora_Hyperfine.F | 1 + src/nwdft/zora/dft_zora_NMR.F | 1 + src/nwdft/zora/dft_zora_rhos.F | 1 + src/nwdft/zora/dft_zora_utils_so.F | 1 + src/nwdft/zora/gridNuclearPotential.F | 1 + src/nwdft/zora/gridQpqPotential.F | 1 + src/nwdft/zora/grid_zoracorr.F | 1 + src/nwdft/zora/grid_zoracorr_FA.F | 1 + src/nwdft/zora/merf.F | 1 + src/nwdft/zora/zora_getv_HFine.F | 6 +- src/nwdft/zora/zora_tabcd.F | 1 + src/nwdft/zora/zora_tabcd_EFG.F | 1 + .../band/cell_optimize/band_cell_optimize.F | 1 + src/nwpw/band/kbpp/Spherical_band.F | 1 + src/nwpw/band/kbpp/cpsp_formatter_auto.F | 1 + src/nwpw/band/lib/cpsp/c_semicore_force.F | 1 + src/nwpw/band/lib/cpsp/c_semicore_force_a.F | 1 + src/nwpw/band/lib/cpsp/c_semicore_force_b.F | 1 + src/nwpw/band/lib/cpsp/cpsp_projector.F | 1 + src/nwpw/band/lib/psi/c_check.F | 1 + src/nwpw/band/lib/psi/cpsi_spin2.F | 1 + .../band/minimizer/c_cgsd_energy_stress.F | 1 + src/nwpw/band/structure/band_fft_structure.F | 1 + .../structure/band_interpolate_structure.F | 1 + src/nwpw/band/structure/band_kp_structure.F | 1 + src/nwpw/libraryps/pspw_old/Cr | 2 +- src/nwpw/nwpwlib/C3dB/C3dB-tcgmsg.F | 1 + src/nwpw/nwpwlib/D1dB/D1dB-mpi.F | 1 + src/nwpw/nwpwlib/D1dB/D1dB-tcgmsg.F | 1 + src/nwpw/nwpwlib/D3dB/fftw3.fh | 1 + src/nwpw/nwpwlib/D3dB/hcurve.c | 1 + src/nwpw/nwpwlib/D3dB/hcurve.h | 1 + src/nwpw/nwpwlib/D3dB/hilbert.h | 1 + src/nwpw/nwpwlib/D3dB/olist.h | 1 + src/nwpw/nwpwlib/K1dB/K1dB-mpi.F | 1 + src/nwpw/nwpwlib/K1dB/K1dB-tcgmsg.F | 1 + src/nwpw/nwpwlib/MetaDynamics/metadynamics.F | 1 + src/nwpw/nwpwlib/MetaDynamics/metadynamics.fh | 1 + .../nwpwlib/MetaDynamics/metadynamics_input.F | 1 + src/nwpw/nwpwlib/ion/fcoord.f | 1 + src/nwpw/nwpwlib/ion/ion.fh | 1 + src/nwpw/nwpwlib/ion/ion_FixIon.F | 1 + src/nwpw/nwpwlib/ion/katm_list.F | 1 + .../nwpwlib/ion/shake/molecular_constraint.F | 1 + src/nwpw/nwpwlib/ion/shake/pspw_atom.c | 1 + src/nwpw/nwpwlib/ion/shake/pspw_atom.h | 1 + src/nwpw/nwpwlib/ion/shake/pspw_bond.c | 1 + src/nwpw/nwpwlib/ion/shake/pspw_bond.h | 1 + src/nwpw/nwpwlib/ion/shake/pspw_molecule.c | 1 + src/nwpw/nwpwlib/ion/shake/pspw_molecule.h | 1 + src/nwpw/nwpwlib/ion/shake/shake_chain.F | 1 + src/nwpw/nwpwlib/ion/shake/shake_chain2.F | 1 + src/nwpw/nwpwlib/ion/shake/shake_chain3.F | 1 + src/nwpw/nwpwlib/ion/shake/test.c | 1 + src/nwpw/nwpwlib/pseudopotential/atom.h | 1 + .../nwpwlib/pseudopotential/becke_exchange.c | 1 + .../nwpwlib/pseudopotential/becke_exchange.h | 1 + src/nwpw/nwpwlib/pseudopotential/dirac.c | 1 + src/nwpw/nwpwlib/pseudopotential/dirac.h | 1 + .../pseudopotential/generate_rho_semicore.c | 1 + .../pseudopotential/generate_rho_semicore.h | 1 + .../nwpwlib/pseudopotential/lyp_correlation.c | 1 + .../nwpwlib/pseudopotential/lyp_correlation.h | 1 + .../pseudopotential/lyp_correlation2.c | 1 + .../nwpwlib/pseudopotential/pbe_correlation.c | 1 + .../nwpwlib/pseudopotential/pbe_correlation.h | 1 + .../nwpwlib/pseudopotential/pbe_exchange.c | 1 + .../nwpwlib/pseudopotential/pbe_exchange.h | 1 + .../nwpwlib/pseudopotential/perdew_wang.c | 1 + .../nwpwlib/pseudopotential/perdew_wang.h | 1 + src/nwpw/nwpwlib/pseudopotential/psp.h | 1 + src/nwpw/nwpwlib/pseudopotential/rappe.c | 1 + .../pseudopotential/revpbe_correlation.h | 1 + .../nwpwlib/pseudopotential/revpbe_exchange.c | 1 + .../nwpwlib/pseudopotential/revpbe_exchange.h | 1 + src/nwpw/nwpwlib/pseudopotential/rhamann.c | 1 + src/nwpw/nwpwlib/pseudopotential/rhamann.h | 1 + src/nwpw/nwpwlib/pseudopotential/rpsp.h | 1 + src/nwpw/nwpwlib/pseudopotential/rtroullier.c | 1 + src/nwpw/nwpwlib/pseudopotential/vanderbilt.c | 1 + src/nwpw/nwpwlib/pseudopotential/vanderbilt.h | 1 + src/nwpw/nwpwlib/pseudopotential/xpansion2.c | 1 + src/nwpw/nwpwlib/pseudopotential/xpansion2.h | 1 + src/nwpw/nwpwlib/pseudopotential/zora.h | 1 + src/nwpw/nwpwlib/utilities/getfilling.F | 1 + src/nwpw/nwpwlib/utilities/is_sORd.F | 1 + src/nwpw/nwpwlib/utilities/nwpw_gaunt.F | 1 + .../nwpwlib/utilities/print_elapsed_time.F | 1 + src/nwpw/ofpw/cpsd/chi_lmbda.f | 1 + .../paw/cell_optimize/paw_cell_optimize.F | 1 + src/nwpw/paw/makefile.h | 1 + src/nwpw/paw/paw_basis/paw_basis.fh | 1 + .../paw/paw_comp_charge/paw_comp_charge.fh | 1 + .../paw_gamma_function.F | 1 + .../paw_special_functions/paw_hypergeom1F1.F | 1 + src/nwpw/paw/paw_utils/bessel_transform.fh | 1 + src/nwpw/paw/paw_utils/double_factorial.f | 1 + src/nwpw/paw/paw_utils/paw_params.fh | 1 + src/nwpw/paw/paw_xc/paw_gga.F | 1 + src/nwpw/pspw/analysis/pspw_atom_analysis.F | 1 + src/nwpw/pspw/cell_optimize/cell_optimize.F | 1 + .../pspw/cell_optimize/cell_optimize_input.F | 1 + src/nwpw/pspw/cgsd/kp_structure.F | 1 + src/nwpw/pspw/cpsd/cpmd_qmmm_step.F | 1 + src/nwpw/pspw/cpsd/cpmd_qmmm_stop.F | 1 + src/nwpw/pspw/cpsd/psi_lmbda2.f | 1 + src/nwpw/pspw/lib/coulomb/coulomb2.F | 1 + .../pspw/lib/exchange-correlation/bnl2007_x.F | 1 + .../pspw/lib/exchange-correlation/hsepbe.F | 1 + .../pspw/lib/exchange-correlation/pbesol.f | 1 + src/nwpw/pspw/lib/psi/psi_spin2.F | 1 + src/nwpw/pspw/lib/psp/semicore_force_a.F | 1 + src/nwpw/pspw/lib/psp/semicore_force_b.F | 1 + src/nwpw/pspw/qmmm/pspw_qmmm_input.F | 1 + .../pspw/water_pseudopotential/BLCJ_Coulomb.F | 1 + .../pspw/water_pseudopotential/BLCJ_Inter.F | 1 + .../pspw/water_pseudopotential/BLCJ_Intra.F | 1 + src/nwpw/pspw/water_pseudopotential/BLCJ_LR.F | 1 + .../water_pseudopotential/BLCJ_Polarization.F | 1 + src/nwpw/pspw/water_pseudopotential/BLCJ_SR.F | 1 + src/nwpw/pspw/water_pseudopotential/LJ_Ion.F | 1 + .../pspw/water_pseudopotential/LJparam_Ion.F | 1 + .../water_pseudopotential_input.F | 1 + .../pspw/water_pseudopotential/waterpsp.F | 1 + .../pspw/water_pseudopotential/waterpsp.fh | 1 + .../water_pseudopotential/waterpsp_param.fh | 1 + src/optim/deloc/deloc.F | 1 + src/optim/deloc/deloc_data.fh | 1 + src/optim/deloc/deloc_driver.F | 1 + src/optim/deloc/deloc_utils.F | 1 + src/optim/neb/bead_list.fh | 1 + src/optim/neb/neb_data.fh | 1 + src/optim/neb/neb_init.F | 1 + src/optim/string/GNUmakefile | 2 +- src/optim/string/string.F | 1 + src/optim/string/string_input.F | 1 + src/optim/tropt/tropt_drv.F | 1 + src/peigs/src/c/clustrxx4.c | 1 + src/peigs/src/c/gdot.F | 1 + src/peigs/src/c/inv_it4.c | 1 + src/peigs/src/c/inv_it5.c | 1 + src/peigs/src/c/r_ritz.c | 1 + src/peigs/src/f77/dptsvx2.f | 1 + src/peigs/src/f77/inverm.F | 1 + src/perfm/dist.c | 1 + src/perfm/dist.fh | 1 + src/perfm/dist.h | 1 + src/perfm/testdist.F | 1 + src/prepar/pre_collaps.F | 1 + src/prepar/pre_crop.F | 1 + src/prepar/pre_master.F | 1 + src/prepar/pre_wrtnoe.F | 1 + src/prepar/pre_wrtpmf.F | 1 + src/property/ao_1prdm_read.F | 1 + src/property/ao_rdm_read.F | 1 + src/property/aor_r1_beta.F | 2 +- src/property/aor_r1_beta_anl.F | 2 +- src/property/aor_r1_tensor.F | 2 +- src/property/aoresponse_beta.F | 2 +- src/property/aoresponse_beta2.F | 2 +- src/property/aoresponse_driver_new.F | 2 +- src/property/cosmo.F | 1 + src/property/fiao_b1_movecs.F | 2 +- src/property/fiao_f1_movecs.F | 2 +- src/property/giao_b1_movecs.F | 2 +- src/property/hnd_efgmap_z4.F | 2 +- src/property/hnd_elfcon_symm.F | 2 +- src/property/hnd_elfmap.F | 1 + src/property/hnd_giaox_zora.F | 2 +- src/property/hnd_gshift_zora.F | 1 + src/property/hnd_hyperfine_zora.F | 2 +- src/property/hnd_prop_dens_make.F | 1 + src/property/hnd_prp_get_dens.F | 1 + src/property/hnd_prp_vec_read.F | 1 + src/property/hnd_vec_write.F | 1 + src/property/localization_driver.F | 2 +- src/property/raman.F | 1 + src/property/raman_input.F | 1 + src/property/task_raman.F | 1 + src/property/wefgfile.F | 2 +- src/property/wgshiftfile.F | 2 +- src/property/whypfile.F | 2 +- src/property/wshldfile.F | 2 +- src/qhop/qhop_pindex.F | 1 + src/qmmm/mm_utils.F | 1 + src/qmmm/qmmm_bq_data.F | 1 + src/qmmm/qmmm_check_forces.F | 1 + src/qmmm/qmmm_data.F | 1 + src/qmmm/qmmm_input.F | 1 + src/qmmm/qmmm_utils.fh | 1 + src/rimp2/output.h | 1 + src/rism/rism1d.F | 1 + src/rism/rism_input.F | 1 + src/rism/rism_output.F | 2 +- src/rism/rism_prepare.F | 1 + src/rism/rism_thermo.F | 1 + src/rism/rism_util.F | 1 + src/rism/task_rism.F | 1 + src/rtdb/hdbm/stdiof2ffio.c | 1 + src/rtdb/hdbm/stdiof2ffio.h | 1 + src/selci/selci_hpp.F | 1 + src/selci/sizes.fh | 1 + src/smd/include/smd_fids.fh | 1 + src/smd/smd-energy/smd_init_energy.F | 1 + src/smd/smd-energy/task_smd_energy.F | 1 + src/smd/smd-frag/smd_monomer.F | 1 + src/smd/smd-frag/task_smd_fragment.F | 1 + src/smd/smd-input/smd_input.F | 1 + src/smd/smd-scheduler/armci.h | 1 + src/smd/smd-scheduler/sched_groups.c | 1 + src/smd/smd-scheduler/sched_perf.c | 1 + src/smd/smdlib/smd_atom.F | 1 + src/smd/smdlib/smd_bond.F | 1 + src/smd/smdlib/smd_bondlist.F | 1 + src/smd/smdlib/smd_bq.F | 1 + src/smd/smdlib/smd_charge.F | 1 + src/smd/smdlib/smd_coordfile.F | 1 + src/smd/smdlib/smd_coords.F | 1 + src/smd/smdlib/smd_coulomb.F | 1 + src/smd/smdlib/smd_cutoff_data.F | 1 + src/smd/smdlib/smd_energy.F | 1 + src/smd/smdlib/smd_ewald.F | 1 + src/smd/smdlib/smd_ewald_generic.F | 1 + src/smd/smdlib/smd_exlist.F | 1 + src/smd/smdlib/smd_force.F | 1 + src/smd/smdlib/smd_fragment.F | 1 + src/smd/smdlib/smd_geom.F | 1 + src/smd/smdlib/smd_global.F | 1 + src/smd/smdlib/smd_group.F | 1 + src/smd/smdlib/smd_init.F | 1 + src/smd/smdlib/smd_interface.F | 1 + src/smd/smdlib/smd_lat.F | 1 + src/smd/smdlib/smd_leapf.F | 1 + src/smd/smdlib/smd_mass.F | 1 + src/smd/smdlib/smd_param.F | 1 + src/smd/smdlib/smd_paramfile.F | 1 + src/smd/smdlib/smd_pdb.F | 1 + src/smd/smdlib/smd_pot_generic.F | 1 + src/smd/smdlib/smd_rtdb_data.F | 1 + src/smd/smdlib/smd_shakelist.F | 1 + src/smd/smdlib/smd_system.F | 1 + src/smd/smdlib/smd_system_data.F | 1 + src/smd/smdlib/smd_task.F | 1 + src/smd/smdlib/smd_task_data.fh | 1 + src/smd/smdlib/smd_tasklist.F | 1 + src/smd/smdlib/smd_temper_data.F | 1 + src/smd/smdlib/smd_type.F | 1 + src/smd/smdlib/smd_vel.F | 1 + src/smd/smdlib/smd_vlist.F | 1 + src/smd/smdlib/task_smd.F | 1 + src/smd/smdlib/task_smd_dynamics.F | 1 + src/task/bsse_common.fh | 1 + src/task/task_bsse.F | 1 + src/task/task_jefftce.F | 1 + src/task/task_ncc.F | 1 + src/task/task_property.F | 1 + src/task/task_shell_input.F | 1 + src/tce/ao_rdm_write.F | 1 + src/tce/cc2_energy.F | 1 + src/tce/ccsd/ccsd_1prdm.F | 1 + src/tce/ccsd_act/GNUmakefile | 2 +- src/tce/ccsd_act/activity.F | 1 + src/tce/ccsd_act/ccsd_ea.F | 12 +- src/tce/ccsd_act/ccsd_t1a.F | 50 ++-- src/tce/ccsd_act/ccsd_t2a.F | 144 ++++++------ src/tce/ccsd_energy_loc.F | 1 + src/tce/ccsd_imaginary.F | 1 + src/tce/ccsd_lambda.F | 1 + src/tce/ccsd_lr_alpha.F | 1 + src/tce/ccsd_qr_beta.F | 1 + src/tce/ccsd_t/ccsd_t_sse2.c | 1 + src/tce/ccsdt/acolo.F | 1 + src/tce/ccsdt/acolo_1a_2h.F | 1 + src/tce/ccsdt/acolo_1h.F | 1 + src/tce/ccsdt/acolo_1p.F | 1 + src/tce/ccsdt/acolo_1p_1h.F | 1 + src/tce/ccsdt/acolo_1p_2h.F | 1 + src/tce/ccsdt/acolo_2h.F | 1 + src/tce/ccsdt/acolo_2p_1h.F | 1 + src/tce/ccsdt/acolo_o.F | 1 + src/tce/ccsdt/acolo_o_1p.F | 1 + src/tce/ccsdt/acolo_o_2p.F | 1 + src/tce/cis/cis.F | 1 + src/tce/cr_eomccsd_t_act/GNUmakefile | 2 +- src/tce/cr_eomccsd_t_act/ccsd_t_d_act.F | 6 +- src/tce/cr_eomccsd_t_act/cr_ccsd_t_E_act.F | 10 +- src/tce/cr_eomccsd_t_act/cr_ccsd_t_N_act.F | 86 +++---- src/tce/cr_eomccsd_t_act/cr_eomccsd_t_act.F | 2 +- src/tce/cr_eomccsd_t_act/cr_eomccsd_tasim.F | 2 +- src/tce/cr_eomccsd_t_act/cr_eomt_simac.F | 22 +- .../cr_eomccsd_t_act/creomccsd_t_n2_act_mem.F | 212 ++++++++--------- src/tce/cr_eomccsd_t_act/q3rexpt2_act.F | 12 +- src/tce/eomccsd/eomccsd_1prdm.F | 1 + src/tce/eomccsd_act/GNUmakefile | 2 +- src/tce/eomccsd_act/eomccsd_x1a.F | 88 +++---- src/tce/eomccsd_act/eomccsd_x2a.F | 220 +++++++++--------- src/tce/eomccsd_act/q2na_hc1.F | 6 +- src/tce/get_mo_rdm_hh.F | 1 + src/tce/get_mo_rdm_hp.F | 1 + src/tce/get_mo_rdm_ph.F | 1 + src/tce/get_mo_rdm_pp.F | 1 + src/tce/gradients/ao_1prdm_read.F | 1 + src/tce/gradients/ao_1prdm_write.F | 1 + src/tce/gradients/ao_tiles.F | 1 + src/tce/gradients/btrans1.F | 1 + src/tce/gradients/btrans2.F | 1 + src/tce/gradients/ccsd_energy.F | 1 + src/tce/gradients/ccsd_gradient.F | 1 + src/tce/gradients/ccsd_left.F | 1 + src/tce/gradients/ccsdt_energy.F | 1 + src/tce/gradients/ccsdt_gradient.F | 1 + src/tce/gradients/ccsdt_left.F | 1 + src/tce/gradients/ccsdtq_energy.F | 1 + src/tce/gradients/ccsdtq_gradient.F | 1 + src/tce/gradients/ccsdtq_left.F | 1 + src/tce/gradients/eomccsd_energy.F | 1 + src/tce/gradients/eomccsd_gradients.F | 1 + src/tce/gradients/eomccsd_left.F | 1 + src/tce/gradients/put_1pdm_hh.F | 1 + src/tce/gradients/put_1pdm_hp.F | 1 + src/tce/gradients/put_1pdm_ph.F | 1 + src/tce/gradients/put_1pdm_ph_2.F | 1 + src/tce/gradients/put_1pdm_pp.F | 1 + src/tce/gradients/put_1pwdm_hp.F | 1 + src/tce/gradients/put_2pdm_hhhh.F | 1 + src/tce/gradients/put_2pdm_hhhp.F | 1 + src/tce/gradients/put_2pdm_hhpp.F | 1 + src/tce/gradients/put_2pdm_hphh.F | 1 + src/tce/gradients/put_2pdm_hphp.F | 1 + src/tce/gradients/put_2pdm_hppp.F | 1 + src/tce/gradients/put_2pdm_pphh.F | 1 + src/tce/gradients/put_2pdm_pphp.F | 1 + src/tce/gradients/put_2pdm_pppp.F | 1 + src/tce/gradients/sym_2pdm_ao.F | 1 + src/tce/gradients/tce_1pdm_offset.F | 1 + src/tce/gradients/tce_2pdm_offset.F | 1 + src/tce/gradients/tce_ccsd_1prdm.F | 1 + src/tce/gradients/tce_cis_energy.F | 1 + src/tce/gradients/tce_cis_gradient.F | 1 + src/tce/gradients/tce_cisd_energy.F | 1 + src/tce/gradients/tce_cisd_gradient.F | 1 + src/tce/gradients/tce_cisdt_energy.F | 1 + src/tce/gradients/tce_cisdt_gradient.F | 1 + src/tce/gradients/tce_cisdtq_energy.F | 1 + src/tce/gradients/tce_cisdtq_gradient.F | 1 + src/tce/gradients/tce_dens_hhhh_offset.F | 1 + src/tce/gradients/tce_dens_hhhp_offset.F | 1 + src/tce/gradients/tce_dens_hhpp_offset.F | 1 + src/tce/gradients/tce_dens_hphh_offset.F | 1 + src/tce/gradients/tce_dens_hphp_offset.F | 1 + src/tce/gradients/tce_dens_hppp_offset.F | 1 + src/tce/gradients/tce_dens_pphp_offset.F | 1 + src/tce/gradients/tce_dens_pppp_offset.F | 1 + src/tce/gradients/tce_eomccsd_1prdm.F | 1 + src/tce/gradients/tce_gradient.F | 1 + src/tce/gradients/tce_mp2_energy.F | 1 + src/tce/gradients/tce_mp2_gradient.F | 1 + src/tce/gradients/tce_mp3_energy.F | 1 + src/tce/gradients/tce_mp3_gradient.F | 1 + src/tce/gradients/tce_mp4_energy.F | 1 + src/tce/gradients/tce_mp4_gradient.F | 1 + src/tce/gradients/trans_t1_to_t1dagger.F | 1 + src/tce/gradients/trans_t2_to_t2dagger.F | 1 + src/tce/gradients/trans_t3_to_t3dagger.F | 1 + src/tce/gradients/trans_t4_to_t4dagger.F | 1 + src/tce/include/tce.fh | 1 + src/tce/include/tce_amps.fh | 1 + src/tce/include/tce_hetio.fh | 1 + src/tce/include/tce_ints.fh | 1 + src/tce/include/tce_prop.fh | 1 + src/tce/include/tce_restart.fh | 1 + src/tce/ma_transpose_blocked.F | 1 + src/tce/tce_dens_hh_offset.F | 1 + src/tce/tce_dens_hp_offset.F | 1 + src/tce/tce_dens_ph_offset.F | 1 + src/tce/tce_dens_pp_offset.F | 1 + src/tce/tce_diagnose_t1.F | 1 + src/tce/tce_mo2e_trans.F | 1 + src/tce/tce_restart.F | 1 + src/tce/tce_restart_quadruples.F | 1 + src/tce/tce_restart_triples.F | 1 + src/tce/tce_sort2_saday.c | 1 + src/tce/tce_sort4_jeff_goldstone.F | 1 + src/tce/tce_sort4_jeff_torun.F | 1 + src/tce/tce_sort_4kg.c | 1 + src/tce/tce_sort_saday.c | 1 + src/tce/tce_sortacc_saday.c | 1 + src/tce/tensor_read_write.F | 1 + src/uccsdt/amplitudes.F | 1 + src/uccsdt/amplitudes.fh | 1 + src/uccsdt/bterm.F | 1 + src/uccsdt/cbassym.fh | 1 + src/uccsdt/cctrans.F | 1 + src/uccsdt/cflopsP.fh | 1 + src/uccsdt/cuccsdtP.fh | 1 + src/uccsdt/draftt2s.F | 1 + src/uccsdt/ga_long1d.F | 1 + src/uccsdt/gterm.F | 1 + src/uccsdt/moints_shpair.F | 1 + src/uccsdt/moscreen.F | 1 + src/uccsdt/soints.F | 1 + src/uccsdt/triples_kernels.F | 1 + src/uccsdt/uccsd.F | 1 + src/uccsdt/uccsdt.F | 1 + src/uccsdt/xterm.F | 1 + src/util/erfc.c | 1 + src/util/errquit.fh | 1 + src/util/ga_accback.c | 1 + src/util/ga_antisymmetr.F | 1 + src/util/lcopy.f | 1 + src/util/nwmolden.F | 1 + src/util/nwmolden.fh | 1 + src/util/testutil.fh | 1 + src/util/testutil.h | 1 + src/util/util.c | 1 + src/util/util_debug.c | 1 + src/util/util_eaf_test.F | 1 + src/util/util_erf.F | 1 + src/util/util_io_unit.F | 1 + src/util/util_labelconv.F | 1 + src/util/util_memcpy.c | 1 + src/util/util_nwchem_paper.F | 1 + src/util/util_sf_test.F | 1 + src/util/util_v_stub.F | 1 + src/util/util_xyz.F | 1 + 1072 files changed, 1496 insertions(+), 482 deletions(-) diff --git a/src/64to32blas/y64.fh b/src/64to32blas/y64.fh index ec4f47a08c..46c3fadb94 100644 --- a/src/64to32blas/y64.fh +++ b/src/64to32blas/y64.fh @@ -5,3 +5,4 @@ cedo#define USE_INTEGER8 1 #define INTGR4 integer*4 #endif +c $Id$ diff --git a/src/NWints/api/int_giaobq10.F b/src/NWints/api/int_giaobq10.F index b013f07fff..d9d96af53f 100644 --- a/src/NWints/api/int_giaobq10.F +++ b/src/NWints/api/int_giaobq10.F @@ -1,4 +1,4 @@ -c $Id: int_giaobq10.F 19696 2010-10-29 16:53:42Z d3y133 $ +c $Id$ * c:tex-% this is part of the API Standard Integral routines. c:tex-\subsection{int\_giaobq10} diff --git a/src/NWints/ecp/ecp_consts.fh b/src/NWints/ecp/ecp_consts.fh index de3af8d460..afbf84f59f 100644 --- a/src/NWints/ecp/ecp_consts.fh +++ b/src/NWints/ecp/ecp_consts.fh @@ -14,3 +14,4 @@ * common/ecp_toler/thr_ecp,ln_thr_ecp * +c $Id$ diff --git a/src/NWints/hondo/hnd_denxyz.F b/src/NWints/hondo/hnd_denxyz.F index d83d2edbf3..689cde1542 100644 --- a/src/NWints/hondo/hnd_denxyz.F +++ b/src/NWints/hondo/hnd_denxyz.F @@ -25,3 +25,4 @@ c enddo return end +c $Id$ diff --git a/src/NWints/hondo/hnd_droot.F b/src/NWints/hondo/hnd_droot.F index ad450065a8..4fd37e0f0c 100644 --- a/src/NWints/hondo/hnd_droot.F +++ b/src/NWints/hondo/hnd_droot.F @@ -1,5 +1,5 @@ subroutine hnd_droot -c $Id: hnd_giao_init.F 19696 2010-10-29 16:53:42Z d3y133 $ +c $Id$ implicit none #include "hnd_rys.fh" c diff --git a/src/NWints/hondo/hnd_giao.fh b/src/NWints/hondo/hnd_giao.fh index c888657a6e..bb6e1e10b5 100644 --- a/src/NWints/hondo/hnd_giao.fh +++ b/src/NWints/hondo/hnd_giao.fh @@ -25,3 +25,4 @@ c common/hnd_shlxpn/expndi,expndk,iieqjj,kkeqll common/hnd_shlgia/lit,ljt,lkt,lmt,ijkl,numi,numj,numk,numl common/hnd_shlgnm/nmaxs,nmaxp,mmaxs,mmaxp +c $Id$ diff --git a/src/NWints/hondo/hnd_giaobq10.F b/src/NWints/hondo/hnd_giaobq10.F index 98818a6239..9be974f42d 100644 --- a/src/NWints/hondo/hnd_giaobq10.F +++ b/src/NWints/hondo/hnd_giaobq10.F @@ -1,7 +1,7 @@ subroutine hnd_giaobq10(xyzi,expi,coefi,i_nprim,i_ngen,Li,xyzj, & expj,coefj,j_nprim,j_ngen,Lj,coordbq,zbq,nbq,nint,bq10,scr,lscr) c -c $Id: hnd_giaobq10.F 19765 2010-11-10 19:37:59Z faquino $ +c $Id$ c c ----- Wrapper routine that sets the sizes of scratch blocks ----- c diff --git a/src/NWints/hondo/hnd_xyzgia.F b/src/NWints/hondo/hnd_xyzgia.F index 0e930fd8bd..92c8436865 100644 --- a/src/NWints/hondo/hnd_xyzgia.F +++ b/src/NWints/hondo/hnd_xyzgia.F @@ -36,3 +36,4 @@ c c return end +c $Id$ diff --git a/src/NWints/int/case.fh b/src/NWints/int/case.fh index 4ce5a7b794..17e885c2f1 100644 --- a/src/NWints/int/case.fh +++ b/src/NWints/int/case.fh @@ -10,3 +10,4 @@ c common/case_var2/cam_exch, doscreen common/case_var3/cam_alpha,cam_beta ccase...end +c $Id$ diff --git a/src/NWints/int/case_impl.F b/src/NWints/int/case_impl.F index 755e3d216c..618bd5cb98 100644 --- a/src/NWints/int/case_impl.F +++ b/src/NWints/int/case_impl.F @@ -92,3 +92,4 @@ c Multiply in the screening factors c return end +c $Id$ diff --git a/src/NWints/rel/zora.fh b/src/NWints/rel/zora.fh index 55b5cfdcbb..f8e89b1d8d 100644 --- a/src/NWints/rel/zora.fh +++ b/src/NWints/rel/zora.fh @@ -66,3 +66,4 @@ czora-nmr-cs FA c integer g_zora_Kinetic(2) common/zora_fock/g_zora_Kinetic +c $Id$ diff --git a/src/NWints/rel/zora_input.F b/src/NWints/rel/zora_input.F index cb70eff1a9..a295083a07 100644 --- a/src/NWints/rel/zora_input.F +++ b/src/NWints/rel/zora_input.F @@ -50,3 +50,4 @@ c Put zora parameters in rtdb c return end +c $Id$ diff --git a/src/analyz/ana_chgdst.F b/src/analyz/ana_chgdst.F index 566e8e4c20..752da39768 100644 --- a/src/analyz/ana_chgdst.F +++ b/src/analyz/ana_chgdst.F @@ -37,3 +37,4 @@ c c return end +c $Id$ diff --git a/src/analyz/ana_esppt.F b/src/analyz/ana_esppt.F index af42742faa..648fa33cc1 100644 --- a/src/analyz/ana_esppt.F +++ b/src/analyz/ana_esppt.F @@ -152,3 +152,4 @@ c write(*,'(a)') 'Error reading pdb file ',filpdb return end +c $Id$ diff --git a/src/analyz/ana_index.F b/src/analyz/ana_index.F index d3f24347ef..9b897dc266 100644 --- a/src/analyz/ana_index.F +++ b/src/analyz/ana_index.F @@ -78,3 +78,4 @@ c c return end +c $Id$ diff --git a/src/analyz/ana_rdtop.F b/src/analyz/ana_rdtop.F index 98ec115b05..6ccc575579 100644 --- a/src/analyz/ana_rdtop.F +++ b/src/analyz/ana_rdtop.F @@ -271,3 +271,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_addref.F b/src/argos/argos_addref.F index c17453ad1e..676237877f 100644 --- a/src/argos/argos_addref.F +++ b/src/argos/argos_addref.F @@ -40,3 +40,4 @@ c return c return end +c $Id$ diff --git a/src/argos/argos_cafe.F b/src/argos/argos_cafe.F index 7bede984dc..b289a9d828 100644 --- a/src/argos/argos_cafe.F +++ b/src/argos/argos_cafe.F @@ -302,3 +302,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_add_eangles.F b/src/argos/argos_cafe_add_eangles.F index 6abb0e5013..94f38fda70 100644 --- a/src/argos/argos_cafe_add_eangles.F +++ b/src/argos/argos_cafe_add_eangles.F @@ -28,3 +28,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_add_ebonds.F b/src/argos/argos_cafe_add_ebonds.F index 4de6b274d2..8fd900086c 100644 --- a/src/argos/argos_cafe_add_ebonds.F +++ b/src/argos/argos_cafe_add_ebonds.F @@ -21,3 +21,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_add_edihes.F b/src/argos/argos_cafe_add_edihes.F index 9d3d25cd04..6b344fd146 100644 --- a/src/argos/argos_cafe_add_edihes.F +++ b/src/argos/argos_cafe_add_edihes.F @@ -21,3 +21,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_add_eimprs.F b/src/argos/argos_cafe_add_eimprs.F index a1a3662466..ea316d62f4 100644 --- a/src/argos/argos_cafe_add_eimprs.F +++ b/src/argos/argos_cafe_add_eimprs.F @@ -21,3 +21,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_add_esa.F b/src/argos/argos_cafe_add_esa.F index b99457a3a8..05e6c74239 100644 --- a/src/argos/argos_cafe_add_esa.F +++ b/src/argos/argos_cafe_add_esa.F @@ -24,3 +24,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_am.F b/src/argos/argos_cafe_am.F index 43abd470f8..8bc7e750e8 100644 --- a/src/argos/argos_cafe_am.F +++ b/src/argos/argos_cafe_am.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_anint.F b/src/argos/argos_cafe_anint.F index d12f810d08..e9135e5277 100644 --- a/src/argos/argos_cafe_anint.F +++ b/src/argos/argos_cafe_anint.F @@ -3,3 +3,4 @@ argos_cafe_anint=anint(x) return end +c $Id$ diff --git a/src/argos/argos_cafe_atmass.F b/src/argos/argos_cafe_atmass.F index e47d990bbd..625cbd40cb 100644 --- a/src/argos/argos_cafe_atmass.F +++ b/src/argos/argos_cafe_atmass.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_atonum.F b/src/argos/argos_cafe_atonum.F index 2280cb41c5..d9d51982d7 100644 --- a/src/argos/argos_cafe_atonum.F +++ b/src/argos/argos_cafe_atonum.F @@ -10,3 +10,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_atotyp.F b/src/argos/argos_cafe_atotyp.F index 8f2c32a941..d6af643a8a 100644 --- a/src/argos/argos_cafe_atotyp.F +++ b/src/argos/argos_cafe_atotyp.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_binit.F b/src/argos/argos_cafe_binit.F index 19f239326f..3748ebe451 100644 --- a/src/argos/argos_cafe_binit.F +++ b/src/argos/argos_cafe_binit.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_cenmas.F b/src/argos/argos_cafe_cenmas.F index bd733e5ec6..bc908c614d 100644 --- a/src/argos/argos_cafe_cenmas.F +++ b/src/argos/argos_cafe_cenmas.F @@ -16,3 +16,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_center.F b/src/argos/argos_cafe_center.F index 1f3320b68d..ab70bf3075 100644 --- a/src/argos/argos_cafe_center.F +++ b/src/argos/argos_cafe_center.F @@ -60,3 +60,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_charge.F b/src/argos/argos_cafe_charge.F index 929da45615..0bc2c3b872 100644 --- a/src/argos/argos_cafe_charge.F +++ b/src/argos/argos_cafe_charge.F @@ -13,3 +13,4 @@ c argos_cafe_charge=argos_cafe_chg(iq,dbl_mb(i_chg)) return end +c $Id$ diff --git a/src/argos/argos_cafe_chg.F b/src/argos/argos_cafe_chg.F index 19cef27f4d..d509221f46 100644 --- a/src/argos/argos_cafe_chg.F +++ b/src/argos/argos_cafe_chg.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_chgrid.F b/src/argos/argos_cafe_chgrid.F index f114953343..ad762abbc8 100644 --- a/src/argos/argos_cafe_chgrid.F +++ b/src/argos/argos_cafe_chgrid.F @@ -31,3 +31,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_cms.F b/src/argos/argos_cafe_cms.F index ce5f7e4c67..441fcec7d8 100644 --- a/src/argos/argos_cafe_cms.F +++ b/src/argos/argos_cafe_cms.F @@ -73,3 +73,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_cmw.F b/src/argos/argos_cafe_cmw.F index cdc7fcb0cc..06acf9826d 100644 --- a/src/argos/argos_cafe_cmw.F +++ b/src/argos/argos_cafe_cmw.F @@ -30,3 +30,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_cntlnk.F b/src/argos/argos_cafe_cntlnk.F index a55d993a9f..d75e11c1fd 100644 --- a/src/argos/argos_cafe_cntlnk.F +++ b/src/argos/argos_cafe_cntlnk.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_collapse.F b/src/argos/argos_cafe_collapse.F index e316d88484..0c86e38486 100644 --- a/src/argos/argos_cafe_collapse.F +++ b/src/argos/argos_cafe_collapse.F @@ -75,3 +75,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_comb.F b/src/argos/argos_cafe_comb.F index 5d81d64f24..d88a3bb773 100644 --- a/src/argos/argos_cafe_comb.F +++ b/src/argos/argos_cafe_comb.F @@ -45,3 +45,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_coms.F b/src/argos/argos_cafe_coms.F index 6cd216e6b5..9bfee9b0cc 100644 --- a/src/argos/argos_cafe_coms.F +++ b/src/argos/argos_cafe_coms.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_comw.F b/src/argos/argos_cafe_comw.F index c26aa34235..e06ba9e35c 100644 --- a/src/argos/argos_cafe_comw.F +++ b/src/argos/argos_cafe_comw.F @@ -12,3 +12,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_copwiq.F b/src/argos/argos_cafe_copwiq.F index f4861a19cf..28e3fad95d 100644 --- a/src/argos/argos_cafe_copwiq.F +++ b/src/argos/argos_cafe_copwiq.F @@ -43,3 +43,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_copya.F b/src/argos/argos_cafe_copya.F index 8a89c69399..09ddaed3fe 100644 --- a/src/argos/argos_cafe_copya.F +++ b/src/argos/argos_cafe_copya.F @@ -37,3 +37,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_copyq.F b/src/argos/argos_cafe_copyq.F index 2c4b40d08c..2904b37ccc 100644 --- a/src/argos/argos_cafe_copyq.F +++ b/src/argos/argos_cafe_copyq.F @@ -31,3 +31,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_copyv.F b/src/argos/argos_cafe_copyv.F index e64011f36c..d7d865209c 100644 --- a/src/argos/argos_cafe_copyv.F +++ b/src/argos/argos_cafe_copyv.F @@ -43,3 +43,4 @@ c 55 continue c 9 format(3i5,10e12.5) return end +c $Id$ diff --git a/src/argos/argos_cafe_dera_i.F b/src/argos/argos_cafe_dera_i.F index 8be754d680..5b7061face 100644 --- a/src/argos/argos_cafe_dera_i.F +++ b/src/argos/argos_cafe_dera_i.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_dera_init.F b/src/argos/argos_cafe_dera_init.F index 4a44c4f4dd..904d64e7b3 100644 --- a/src/argos/argos_cafe_dera_init.F +++ b/src/argos/argos_cafe_dera_init.F @@ -9,3 +9,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_dlist.F b/src/argos/argos_cafe_dlist.F index 10de186a58..a23fdbf3ba 100644 --- a/src/argos/argos_cafe_dlist.F +++ b/src/argos/argos_cafe_dlist.F @@ -99,3 +99,4 @@ c endif c return end +c $Id$ diff --git a/src/argos/argos_cafe_element.F b/src/argos/argos_cafe_element.F index 9903f337b2..fb31a8ca55 100644 --- a/src/argos/argos_cafe_element.F +++ b/src/argos/argos_cafe_element.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_epme.F b/src/argos/argos_cafe_epme.F index f217b5ecb6..cf5974a6e8 100644 --- a/src/argos/argos_cafe_epme.F +++ b/src/argos/argos_cafe_epme.F @@ -69,3 +69,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_extern.F b/src/argos/argos_cafe_extern.F index 41ba4a5f21..4441e7d818 100644 --- a/src/argos/argos_cafe_extern.F +++ b/src/argos/argos_cafe_extern.F @@ -16,3 +16,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_external_field.F b/src/argos/argos_cafe_external_field.F index 0391795be3..e2b3f931d1 100644 --- a/src/argos/argos_cafe_external_field.F +++ b/src/argos/argos_cafe_external_field.F @@ -36,3 +36,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_final.F b/src/argos/argos_cafe_final.F index da955de9e9..a485fc057b 100644 --- a/src/argos/argos_cafe_final.F +++ b/src/argos/argos_cafe_final.F @@ -254,3 +254,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_fix.F b/src/argos/argos_cafe_fix.F index 1960aa3788..822efee70f 100644 --- a/src/argos/argos_cafe_fix.F +++ b/src/argos/argos_cafe_fix.F @@ -26,3 +26,4 @@ c + ('Unable to deallocate temp array in argos_cafe_fix',0) return end +c $Id$ diff --git a/src/argos/argos_cafe_fix_sw.F b/src/argos/argos_cafe_fix_sw.F index 2bc6963544..3b1bd25615 100644 --- a/src/argos/argos_cafe_fix_sw.F +++ b/src/argos/argos_cafe_fix_sw.F @@ -535,3 +535,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_fld.F b/src/argos/argos_cafe_fld.F index 3939753dec..424954ad62 100644 --- a/src/argos/argos_cafe_fld.F +++ b/src/argos/argos_cafe_fld.F @@ -56,3 +56,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_fnorm.F b/src/argos/argos_cafe_fnorm.F index 19e658c08c..44b2d0ba7c 100644 --- a/src/argos/argos_cafe_fnorm.F +++ b/src/argos/argos_cafe_fnorm.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_fnrm.F b/src/argos/argos_cafe_fnrm.F index a5cc792a16..3ecdb9b591 100644 --- a/src/argos/argos_cafe_fnrm.F +++ b/src/argos/argos_cafe_fnrm.F @@ -52,3 +52,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_fold.F b/src/argos/argos_cafe_fold.F index eb4fdf2e23..e8aedfa069 100644 --- a/src/argos/argos_cafe_fold.F +++ b/src/argos/argos_cafe_fold.F @@ -24,3 +24,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_forpme.F b/src/argos/argos_cafe_forpme.F index 82e2bc1be3..0dbbb47a68 100644 --- a/src/argos/argos_cafe_forpme.F +++ b/src/argos/argos_cafe_forpme.F @@ -112,3 +112,4 @@ c i=i0+1+(ngx-isign(ngx,i0))/2 c return end +c $Id$ diff --git a/src/argos/argos_cafe_fpme.F b/src/argos/argos_cafe_fpme.F index 04a2b9c323..99997d3de9 100644 --- a/src/argos/argos_cafe_fpme.F +++ b/src/argos/argos_cafe_fpme.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_free.F b/src/argos/argos_cafe_free.F index 1d9e49dc8b..cab68ce295 100644 --- a/src/argos/argos_cafe_free.F +++ b/src/argos/argos_cafe_free.F @@ -7,3 +7,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_funcs_dec.fh b/src/argos/argos_cafe_funcs_dec.fh index cab725f09a..3cfa97fd2f 100644 --- a/src/argos/argos_cafe_funcs_dec.fh +++ b/src/argos/argos_cafe_funcs_dec.fh @@ -3,3 +3,4 @@ c $id$ c real*8 erfc,derfc,x c +c $Id$ diff --git a/src/argos/argos_cafe_funcs_sfn.fh b/src/argos/argos_cafe_funcs_sfn.fh index ca0d73e317..3a4da6d1fe 100644 --- a/src/argos/argos_cafe_funcs_sfn.fh +++ b/src/argos/argos_cafe_funcs_sfn.fh @@ -12,3 +12,4 @@ c + x*(9.2705272d-03+x*(1.520143d-04+x*(2.765672d-04+ + x*4.30638d-05))))))**17) c +c $Id$ diff --git a/src/argos/argos_cafe_gauss.F b/src/argos/argos_cafe_gauss.F index ecee5b030f..a5068fad8c 100644 --- a/src/argos/argos_cafe_gauss.F +++ b/src/argos/argos_cafe_gauss.F @@ -17,3 +17,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_gauss1.F b/src/argos/argos_cafe_gauss1.F index 560b2345ad..3e6e39d442 100644 --- a/src/argos/argos_cafe_gauss1.F +++ b/src/argos/argos_cafe_gauss1.F @@ -68,3 +68,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_grid.F b/src/argos/argos_cafe_grid.F index af46736318..c62f2d6b6f 100644 --- a/src/argos/argos_cafe_grid.F +++ b/src/argos/argos_cafe_grid.F @@ -136,3 +136,4 @@ c if(i.gt.maxx) maxx=i c return end +c $Id$ diff --git a/src/argos/argos_cafe_hop.F b/src/argos/argos_cafe_hop.F index 4228910e05..36ccd7aced 100644 --- a/src/argos/argos_cafe_hop.F +++ b/src/argos/argos_cafe_hop.F @@ -146,3 +146,4 @@ c xs(j,3)=0.9d0*xs(j+ndxrel,3)+0.1d0*xs(j,3) c return end +c $Id$ diff --git a/src/argos/argos_cafe_hopinit.F b/src/argos/argos_cafe_hopinit.F index 91c845322b..aad9d43776 100644 --- a/src/argos/argos_cafe_hopinit.F +++ b/src/argos/argos_cafe_hopinit.F @@ -30,3 +30,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_hoplist.F b/src/argos/argos_cafe_hoplist.F index 75b042aa00..d5948799e4 100644 --- a/src/argos/argos_cafe_hoplist.F +++ b/src/argos/argos_cafe_hoplist.F @@ -128,3 +128,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_icopy.F b/src/argos/argos_cafe_icopy.F index 0b2f369e7b..cb843d1b9d 100644 --- a/src/argos/argos_cafe_icopy.F +++ b/src/argos/argos_cafe_icopy.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_index.F b/src/argos/argos_cafe_index.F index ce94532f83..eddc11976a 100644 --- a/src/argos/argos_cafe_index.F +++ b/src/argos/argos_cafe_index.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_init.F b/src/argos/argos_cafe_init.F index a02ae9ac1a..322a88e83a 100644 --- a/src/argos/argos_cafe_init.F +++ b/src/argos/argos_cafe_init.F @@ -147,3 +147,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_inita.F b/src/argos/argos_cafe_inita.F index 3fae3230ea..59f4ca6b36 100644 --- a/src/argos/argos_cafe_inita.F +++ b/src/argos/argos_cafe_inita.F @@ -75,3 +75,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_initb.F b/src/argos/argos_cafe_initb.F index 4715672d94..e685585af3 100644 --- a/src/argos/argos_cafe_initb.F +++ b/src/argos/argos_cafe_initb.F @@ -130,3 +130,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_jcopy.F b/src/argos/argos_cafe_jcopy.F index 74266f0663..ffdaf29289 100644 --- a/src/argos/argos_cafe_jcopy.F +++ b/src/argos/argos_cafe_jcopy.F @@ -19,3 +19,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lalloc.F b/src/argos/argos_cafe_lalloc.F index 042af60da6..134738a766 100644 --- a/src/argos/argos_cafe_lalloc.F +++ b/src/argos/argos_cafe_lalloc.F @@ -17,3 +17,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lam.F b/src/argos/argos_cafe_lam.F index 461be53c47..da81315d5e 100644 --- a/src/argos/argos_cafe_lam.F +++ b/src/argos/argos_cafe_lam.F @@ -126,3 +126,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lambda.F b/src/argos/argos_cafe_lambda.F index a134f7ea8c..8e104dce1b 100644 --- a/src/argos/argos_cafe_lambda.F +++ b/src/argos/argos_cafe_lambda.F @@ -47,3 +47,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lampmf.F b/src/argos/argos_cafe_lampmf.F index 162975a480..7edd00d832 100644 --- a/src/argos/argos_cafe_lampmf.F +++ b/src/argos/argos_cafe_lampmf.F @@ -23,3 +23,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lfree.F b/src/argos/argos_cafe_lfree.F index 83ca218f9b..da9b811f05 100644 --- a/src/argos/argos_cafe_lfree.F +++ b/src/argos/argos_cafe_lfree.F @@ -17,3 +17,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_links.F b/src/argos/argos_cafe_links.F index 3c31120e10..5552a748cf 100644 --- a/src/argos/argos_cafe_links.F +++ b/src/argos/argos_cafe_links.F @@ -12,3 +12,4 @@ c + nums,isgan,isdt,lst) return end +c $Id$ diff --git a/src/argos/argos_cafe_lpfrog.F b/src/argos/argos_cafe_lpfrog.F index 2b0d072651..a6298b591f 100644 --- a/src/argos/argos_cafe_lpfrog.F +++ b/src/argos/argos_cafe_lpfrog.F @@ -80,3 +80,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lpfrog_bc.F b/src/argos/argos_cafe_lpfrog_bc.F index ce0452cf24..bf48b37dab 100644 --- a/src/argos/argos_cafe_lpfrog_bc.F +++ b/src/argos/argos_cafe_lpfrog_bc.F @@ -104,3 +104,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lsb.F b/src/argos/argos_cafe_lsb.F index deed42ead4..e3224c7aff 100644 --- a/src/argos/argos_cafe_lsb.F +++ b/src/argos/argos_cafe_lsb.F @@ -67,3 +67,4 @@ c endif c return end +c $Id$ diff --git a/src/argos/argos_cafe_lsd.F b/src/argos/argos_cafe_lsd.F index 598c8df953..8486e1685f 100644 --- a/src/argos/argos_cafe_lsd.F +++ b/src/argos/argos_cafe_lsd.F @@ -71,3 +71,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lsh.F b/src/argos/argos_cafe_lsh.F index b979812465..ce482c7c26 100644 --- a/src/argos/argos_cafe_lsh.F +++ b/src/argos/argos_cafe_lsh.F @@ -68,3 +68,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lso.F b/src/argos/argos_cafe_lso.F index 26c50db54a..6c1bd9c8a8 100644 --- a/src/argos/argos_cafe_lso.F +++ b/src/argos/argos_cafe_lso.F @@ -71,3 +71,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lss.F b/src/argos/argos_cafe_lss.F index 3a7ff036fd..7dc677d382 100644 --- a/src/argos/argos_cafe_lss.F +++ b/src/argos/argos_cafe_lss.F @@ -471,3 +471,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lst.F b/src/argos/argos_cafe_lst.F index 1997e59529..a0bcfd4ad9 100644 --- a/src/argos/argos_cafe_lst.F +++ b/src/argos/argos_cafe_lst.F @@ -59,3 +59,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lstmul.F b/src/argos/argos_cafe_lstmul.F index 6cac595b0d..5d08fb8318 100644 --- a/src/argos/argos_cafe_lstmul.F +++ b/src/argos/argos_cafe_lstmul.F @@ -136,3 +136,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_lsw.F b/src/argos/argos_cafe_lsw.F index 951bcb145b..35094dd97f 100644 --- a/src/argos/argos_cafe_lsw.F +++ b/src/argos/argos_cafe_lsw.F @@ -234,3 +234,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_m.F b/src/argos/argos_cafe_m.F index a64f4cd5d8..de136392a5 100644 --- a/src/argos/argos_cafe_m.F +++ b/src/argos/argos_cafe_m.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_mass.F b/src/argos/argos_cafe_mass.F index 8216373b6c..5d4686a2d6 100644 --- a/src/argos/argos_cafe_mass.F +++ b/src/argos/argos_cafe_mass.F @@ -12,3 +12,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_mcti.F b/src/argos/argos_cafe_mcti.F index ecc10d734a..8373e01a3a 100644 --- a/src/argos/argos_cafe_mcti.F +++ b/src/argos/argos_cafe_mcti.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_mcti_kin.F b/src/argos/argos_cafe_mcti_kin.F index 2d12aab663..b9338dcc61 100644 --- a/src/argos/argos_cafe_mcti_kin.F +++ b/src/argos/argos_cafe_mcti_kin.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_mcti_w.F b/src/argos/argos_cafe_mcti_w.F index 0d896202d7..b321feb390 100644 --- a/src/argos/argos_cafe_mcti_w.F +++ b/src/argos/argos_cafe_mcti_w.F @@ -24,3 +24,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_mdstep.F b/src/argos/argos_cafe_mdstep.F index 43172a91df..0237ef06dd 100644 --- a/src/argos/argos_cafe_mdstep.F +++ b/src/argos/argos_cafe_mdstep.F @@ -32,3 +32,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_mlist.F b/src/argos/argos_cafe_mlist.F index 5d9209900b..db96e7629c 100644 --- a/src/argos/argos_cafe_mlist.F +++ b/src/argos/argos_cafe_mlist.F @@ -104,3 +104,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_multi.F b/src/argos/argos_cafe_multi.F index a0edde7820..e14234e8b5 100644 --- a/src/argos/argos_cafe_multi.F +++ b/src/argos/argos_cafe_multi.F @@ -38,3 +38,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_ncopy.F b/src/argos/argos_cafe_ncopy.F index a55e43da8b..06b5153f6b 100644 --- a/src/argos/argos_cafe_ncopy.F +++ b/src/argos/argos_cafe_ncopy.F @@ -21,3 +21,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_ndxtrd.F b/src/argos/argos_cafe_ndxtrd.F index 09bccae3a8..eab21290b2 100644 --- a/src/argos/argos_cafe_ndxtrd.F +++ b/src/argos/argos_cafe_ndxtrd.F @@ -20,3 +20,4 @@ c call argos_cafe_index(int_mb(i_itrd(id)),mtt(id)) c return end +c $Id$ diff --git a/src/argos/argos_cafe_ndxxcl.F b/src/argos/argos_cafe_ndxxcl.F index 9832723f97..343b292753 100644 --- a/src/argos/argos_cafe_ndxxcl.F +++ b/src/argos/argos_cafe_ndxxcl.F @@ -20,3 +20,4 @@ c call argos_cafe_index(int_mb(i_ixcl(id)),mxt(id)) c return end +c $Id$ diff --git a/src/argos/argos_cafe_num2nam.F b/src/argos/argos_cafe_num2nam.F index e4b78d9850..c67f82abb2 100644 --- a/src/argos/argos_cafe_num2nam.F +++ b/src/argos/argos_cafe_num2nam.F @@ -26,3 +26,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_num2tag.F b/src/argos/argos_cafe_num2tag.F index 7d8372ed73..12112e7182 100644 --- a/src/argos/argos_cafe_num2tag.F +++ b/src/argos/argos_cafe_num2tag.F @@ -25,3 +25,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_numcon.F b/src/argos/argos_cafe_numcon.F index e44e343988..32328d4a86 100644 --- a/src/argos/argos_cafe_numcon.F +++ b/src/argos/argos_cafe_numcon.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_para.F b/src/argos/argos_cafe_para.F index 65f48b7b14..e2310fb282 100644 --- a/src/argos/argos_cafe_para.F +++ b/src/argos/argos_cafe_para.F @@ -24,3 +24,4 @@ c return end c +c $Id$ diff --git a/src/argos/argos_cafe_parang.F b/src/argos/argos_cafe_parang.F index d75b0278bb..43a91c54e9 100644 --- a/src/argos/argos_cafe_parang.F +++ b/src/argos/argos_cafe_parang.F @@ -19,3 +19,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_parbnd.F b/src/argos/argos_cafe_parbnd.F index 002e1b24ea..75e2734001 100644 --- a/src/argos/argos_cafe_parbnd.F +++ b/src/argos/argos_cafe_parbnd.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_pardif.F b/src/argos/argos_cafe_pardif.F index e47693b494..5872b8d122 100644 --- a/src/argos/argos_cafe_pardif.F +++ b/src/argos/argos_cafe_pardif.F @@ -19,3 +19,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_pardih.F b/src/argos/argos_cafe_pardih.F index d60695ffb0..7f20e458ab 100644 --- a/src/argos/argos_cafe_pardih.F +++ b/src/argos/argos_cafe_pardih.F @@ -19,3 +19,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_parimp.F b/src/argos/argos_cafe_parimp.F index a7c09bd12c..b0f8bdce89 100644 --- a/src/argos/argos_cafe_parimp.F +++ b/src/argos/argos_cafe_parimp.F @@ -19,3 +19,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_parq.F b/src/argos/argos_cafe_parq.F index 0b438bb15b..2fb7a2058f 100644 --- a/src/argos/argos_cafe_parq.F +++ b/src/argos/argos_cafe_parq.F @@ -24,3 +24,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_parseq.F b/src/argos/argos_cafe_parseq.F index 6f60b5ce04..e10e9a9648 100644 --- a/src/argos/argos_cafe_parseq.F +++ b/src/argos/argos_cafe_parseq.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_parv.F b/src/argos/argos_cafe_parv.F index e8139a1172..42846a8bad 100644 --- a/src/argos/argos_cafe_parv.F +++ b/src/argos/argos_cafe_parv.F @@ -30,3 +30,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_parwiq.F b/src/argos/argos_cafe_parwiq.F index a2d1a09a8e..7cc2282416 100644 --- a/src/argos/argos_cafe_parwiq.F +++ b/src/argos/argos_cafe_parwiq.F @@ -13,3 +13,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_pcopy.F b/src/argos/argos_cafe_pcopy.F index 8039c5cffb..a547944f4c 100644 --- a/src/argos/argos_cafe_pcopy.F +++ b/src/argos/argos_cafe_pcopy.F @@ -34,3 +34,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_plist.F b/src/argos/argos_cafe_plist.F index f66da441de..5c09423022 100644 --- a/src/argos/argos_cafe_plist.F +++ b/src/argos/argos_cafe_plist.F @@ -333,3 +333,4 @@ c + (i,ipmf(i,8),upmf(ipmf(i,8)),i=1,numpmf) c return end +c $Id$ diff --git a/src/argos/argos_cafe_pmec.F b/src/argos/argos_cafe_pmec.F index d56667b4ed..95029be840 100644 --- a/src/argos/argos_cafe_pmec.F +++ b/src/argos/argos_cafe_pmec.F @@ -39,3 +39,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_pmecor.F b/src/argos/argos_cafe_pmecor.F index 90342a4777..992ff05f43 100644 --- a/src/argos/argos_cafe_pmecor.F +++ b/src/argos/argos_cafe_pmecor.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_pmelam.F b/src/argos/argos_cafe_pmelam.F index 1871c40184..713c00d36c 100644 --- a/src/argos/argos_cafe_pmelam.F +++ b/src/argos/argos_cafe_pmelam.F @@ -10,3 +10,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_pmeset.F b/src/argos/argos_cafe_pmeset.F index db53235a42..de4cc5c499 100644 --- a/src/argos/argos_cafe_pmeset.F +++ b/src/argos/argos_cafe_pmeset.F @@ -133,3 +133,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_pr_angles.F b/src/argos/argos_cafe_pr_angles.F index 49392bf3d7..a3d3ecf4d8 100644 --- a/src/argos/argos_cafe_pr_angles.F +++ b/src/argos/argos_cafe_pr_angles.F @@ -51,3 +51,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_pr_bonds.F b/src/argos/argos_cafe_pr_bonds.F index 251ec4589b..f95bac61af 100644 --- a/src/argos/argos_cafe_pr_bonds.F +++ b/src/argos/argos_cafe_pr_bonds.F @@ -38,3 +38,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_pr_dihes.F b/src/argos/argos_cafe_pr_dihes.F index fff49ed29c..87e21edfcc 100644 --- a/src/argos/argos_cafe_pr_dihes.F +++ b/src/argos/argos_cafe_pr_dihes.F @@ -32,3 +32,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_pr_imprs.F b/src/argos/argos_cafe_pr_imprs.F index 835a773a35..f5cbc4db7d 100644 --- a/src/argos/argos_cafe_pr_imprs.F +++ b/src/argos/argos_cafe_pr_imprs.F @@ -32,3 +32,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_pr_pmf.F b/src/argos/argos_cafe_pr_pmf.F index f0b54d6574..4195ae69c8 100644 --- a/src/argos/argos_cafe_pr_pmf.F +++ b/src/argos/argos_cafe_pr_pmf.F @@ -20,3 +20,4 @@ c endif return end +c $Id$ diff --git a/src/argos/argos_cafe_print_atypes.F b/src/argos/argos_cafe_print_atypes.F index 77383e9045..fccab9bf15 100644 --- a/src/argos/argos_cafe_print_atypes.F +++ b/src/argos/argos_cafe_print_atypes.F @@ -37,3 +37,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_print_ctypes.F b/src/argos/argos_cafe_print_ctypes.F index ba1d619fa0..dc478d0d09 100644 --- a/src/argos/argos_cafe_print_ctypes.F +++ b/src/argos/argos_cafe_print_ctypes.F @@ -28,3 +28,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_print_d.F b/src/argos/argos_cafe_print_d.F index f0005fef3d..2d1a39a3cc 100644 --- a/src/argos/argos_cafe_print_d.F +++ b/src/argos/argos_cafe_print_d.F @@ -65,3 +65,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_print_deco.F b/src/argos/argos_cafe_print_deco.F index cf5d21bddc..d567ed939f 100644 --- a/src/argos/argos_cafe_print_deco.F +++ b/src/argos/argos_cafe_print_deco.F @@ -12,3 +12,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_print_der.F b/src/argos/argos_cafe_print_der.F index 2301f3a446..10f16507fe 100644 --- a/src/argos/argos_cafe_print_der.F +++ b/src/argos/argos_cafe_print_der.F @@ -32,3 +32,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_print_dera.F b/src/argos/argos_cafe_print_dera.F index bfbfabdb1f..956c9b4f46 100644 --- a/src/argos/argos_cafe_print_dera.F +++ b/src/argos/argos_cafe_print_dera.F @@ -12,3 +12,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_print_distar.F b/src/argos/argos_cafe_print_distar.F index af336bfc96..6b239daf77 100644 --- a/src/argos/argos_cafe_print_distar.F +++ b/src/argos/argos_cafe_print_distar.F @@ -12,3 +12,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_print_dstr.F b/src/argos/argos_cafe_print_dstr.F index 50bad75910..f124f25302 100644 --- a/src/argos/argos_cafe_print_dstr.F +++ b/src/argos/argos_cafe_print_dstr.F @@ -25,3 +25,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_print_energy.F b/src/argos/argos_cafe_print_energy.F index 11075b39e6..40f85f68eb 100644 --- a/src/argos/argos_cafe_print_energy.F +++ b/src/argos/argos_cafe_print_energy.F @@ -33,3 +33,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_print_solute.F b/src/argos/argos_cafe_print_solute.F index c9017fa372..f68ba62eb8 100644 --- a/src/argos/argos_cafe_print_solute.F +++ b/src/argos/argos_cafe_print_solute.F @@ -21,3 +21,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_print_solvent.F b/src/argos/argos_cafe_print_solvent.F index 269b3cee05..c22e2c49d5 100644 --- a/src/argos/argos_cafe_print_solvent.F +++ b/src/argos/argos_cafe_print_solvent.F @@ -10,3 +10,4 @@ c 1000 format(/,' SOLVENT',//) return end +c $Id$ diff --git a/src/argos/argos_cafe_print_top.F b/src/argos/argos_cafe_print_top.F index 23a7528e8a..b39b59d3b0 100644 --- a/src/argos/argos_cafe_print_top.F +++ b/src/argos/argos_cafe_print_top.F @@ -24,3 +24,4 @@ c call argos_cafe_print_solvent(lfnout) c return end +c $Id$ diff --git a/src/argos/argos_cafe_proper.F b/src/argos/argos_cafe_proper.F index ca6dc65ccf..fecbcf9158 100644 --- a/src/argos/argos_cafe_proper.F +++ b/src/argos/argos_cafe_proper.F @@ -62,3 +62,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_quantuma.F b/src/argos/argos_cafe_quantuma.F index d7da270176..4181801388 100644 --- a/src/argos/argos_cafe_quantuma.F +++ b/src/argos/argos_cafe_quantuma.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_rddrs.F b/src/argos/argos_cafe_rddrs.F index ae1e929f2f..c897fa811b 100644 --- a/src/argos/argos_cafe_rddrs.F +++ b/src/argos/argos_cafe_rddrs.F @@ -27,3 +27,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_rdgib.F b/src/argos/argos_cafe_rdgib.F index 3b6b25c03e..ba5ed66191 100644 --- a/src/argos/argos_cafe_rdgib.F +++ b/src/argos/argos_cafe_rdgib.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_rdmri.F b/src/argos/argos_cafe_rdmri.F index bfb4c70538..9584cd96a0 100644 --- a/src/argos/argos_cafe_rdmri.F +++ b/src/argos/argos_cafe_rdmri.F @@ -16,3 +16,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_rdpmf.F b/src/argos/argos_cafe_rdpmf.F index dbfd0d8ce1..b0512030b2 100644 --- a/src/argos/argos_cafe_rdpmf.F +++ b/src/argos/argos_cafe_rdpmf.F @@ -99,3 +99,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_restor.F b/src/argos/argos_cafe_restor.F index e95d02dc92..bb868e29ad 100644 --- a/src/argos/argos_cafe_restor.F +++ b/src/argos/argos_cafe_restor.F @@ -36,3 +36,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_rgib.F b/src/argos/argos_cafe_rgib.F index 7d42026e20..1aab675541 100644 --- a/src/argos/argos_cafe_rgib.F +++ b/src/argos/argos_cafe_rgib.F @@ -27,3 +27,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_rmri.F b/src/argos/argos_cafe_rmri.F index 2bf6651a0b..4b42c0c15b 100644 --- a/src/argos/argos_cafe_rmri.F +++ b/src/argos/argos_cafe_rmri.F @@ -26,3 +26,4 @@ c argos_cafe_rmri=.false. return end +c $Id$ diff --git a/src/argos/argos_cafe_salloc.F b/src/argos/argos_cafe_salloc.F index 25dfd41b5b..2dbe60c012 100644 --- a/src/argos/argos_cafe_salloc.F +++ b/src/argos/argos_cafe_salloc.F @@ -90,3 +90,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_scaleq.F b/src/argos/argos_cafe_scaleq.F index 2c692aaa61..9f4bd9e8c9 100644 --- a/src/argos/argos_cafe_scaleq.F +++ b/src/argos/argos_cafe_scaleq.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_sclq.F b/src/argos/argos_cafe_sclq.F index a1dad041d0..b8357c083e 100644 --- a/src/argos/argos_cafe_sclq.F +++ b/src/argos/argos_cafe_sclq.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_scmf.F b/src/argos/argos_cafe_scmf.F index 40e9acbdef..5c3ab108be 100644 --- a/src/argos/argos_cafe_scmf.F +++ b/src/argos/argos_cafe_scmf.F @@ -62,3 +62,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_scmfor.F b/src/argos/argos_cafe_scmfor.F index bdc5b5059e..2aaf6bad57 100644 --- a/src/argos/argos_cafe_scmfor.F +++ b/src/argos/argos_cafe_scmfor.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_setbox.F b/src/argos/argos_cafe_setbox.F index dedbd2fb27..537d065b6f 100644 --- a/src/argos/argos_cafe_setbox.F +++ b/src/argos/argos_cafe_setbox.F @@ -19,3 +19,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_sfree.F b/src/argos/argos_cafe_sfree.F index 0ee654ff8e..5585244c53 100644 --- a/src/argos/argos_cafe_sfree.F +++ b/src/argos/argos_cafe_sfree.F @@ -86,3 +86,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_shakep.F b/src/argos/argos_cafe_shakep.F index 199eda4f79..f4f025b36d 100644 --- a/src/argos/argos_cafe_shakep.F +++ b/src/argos/argos_cafe_shakep.F @@ -25,3 +25,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_shakes.F b/src/argos/argos_cafe_shakes.F index 2549bb7875..207c429042 100644 --- a/src/argos/argos_cafe_shakes.F +++ b/src/argos/argos_cafe_shakes.F @@ -23,3 +23,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_shkp.F b/src/argos/argos_cafe_shkp.F index 1459b6a711..c5a68b3497 100644 --- a/src/argos/argos_cafe_shkp.F +++ b/src/argos/argos_cafe_shkp.F @@ -129,3 +129,4 @@ c endif c return end +c $Id$ diff --git a/src/argos/argos_cafe_shks.F b/src/argos/argos_cafe_shks.F index be07c3e6c3..85d88aa900 100644 --- a/src/argos/argos_cafe_shks.F +++ b/src/argos/argos_cafe_shks.F @@ -176,3 +176,4 @@ c return end +c $Id$ diff --git a/src/argos/argos_cafe_shkw.F b/src/argos/argos_cafe_shkw.F index b9fff38da7..2c9d6d0752 100644 --- a/src/argos/argos_cafe_shkw.F +++ b/src/argos/argos_cafe_shkw.F @@ -191,3 +191,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_slow.F b/src/argos/argos_cafe_slow.F index 479671abfa..2e797807b1 100644 --- a/src/argos/argos_cafe_slow.F +++ b/src/argos/argos_cafe_slow.F @@ -16,3 +16,4 @@ c call argos_cafe_slowt(vw,numw,vs,nums,int_mb(i_iwa),isat,dbl_mb(i_mas)) c return end +c $Id$ diff --git a/src/argos/argos_cafe_slowr.F b/src/argos/argos_cafe_slowr.F index f4ea3f79ff..a1756a347c 100644 --- a/src/argos/argos_cafe_slowr.F +++ b/src/argos/argos_cafe_slowr.F @@ -189,3 +189,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_slowt.F b/src/argos/argos_cafe_slowt.F index f0a1b9508f..1de4ec1db9 100644 --- a/src/argos/argos_cafe_slowt.F +++ b/src/argos/argos_cafe_slowt.F @@ -43,3 +43,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_topol_init.F b/src/argos/argos_cafe_topol_init.F index 649d87cb1f..0bc39bde91 100644 --- a/src/argos/argos_cafe_topol_init.F +++ b/src/argos/argos_cafe_topol_init.F @@ -32,3 +32,4 @@ c endif c return end +c $Id$ diff --git a/src/argos/argos_cafe_trjhdr.F b/src/argos/argos_cafe_trjhdr.F index cbc1693a52..00b2bb5957 100644 --- a/src/argos/argos_cafe_trjhdr.F +++ b/src/argos/argos_cafe_trjhdr.F @@ -12,3 +12,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_ts.F b/src/argos/argos_cafe_ts.F index ea23101f13..6d9307a3c8 100644 --- a/src/argos/argos_cafe_ts.F +++ b/src/argos/argos_cafe_ts.F @@ -25,3 +25,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_tscale.F b/src/argos/argos_cafe_tscale.F index 8e5cbae641..2899f1f192 100644 --- a/src/argos/argos_cafe_tscale.F +++ b/src/argos/argos_cafe_tscale.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_tw.F b/src/argos/argos_cafe_tw.F index 44a82ddc86..1d41697620 100644 --- a/src/argos/argos_cafe_tw.F +++ b/src/argos/argos_cafe_tw.F @@ -28,3 +28,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_uhop.F b/src/argos/argos_cafe_uhop.F index 6ea06e461f..7145969156 100644 --- a/src/argos/argos_cafe_uhop.F +++ b/src/argos/argos_cafe_uhop.F @@ -252,3 +252,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_veloc.F b/src/argos/argos_cafe_veloc.F index 5dd323fea3..37ebc7d2cb 100644 --- a/src/argos/argos_cafe_veloc.F +++ b/src/argos/argos_cafe_veloc.F @@ -47,3 +47,4 @@ c end +c $Id$ diff --git a/src/argos/argos_cafe_volume.F b/src/argos/argos_cafe_volume.F index 2f718cd877..2bc35565b8 100644 --- a/src/argos/argos_cafe_volume.F +++ b/src/argos/argos_cafe_volume.F @@ -34,3 +34,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_vs.F b/src/argos/argos_cafe_vs.F index 63e5a1148f..1564aa99aa 100644 --- a/src/argos/argos_cafe_vs.F +++ b/src/argos/argos_cafe_vs.F @@ -84,3 +84,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_vscal.F b/src/argos/argos_cafe_vscal.F index f916ba3970..4305e73349 100644 --- a/src/argos/argos_cafe_vscal.F +++ b/src/argos/argos_cafe_vscal.F @@ -91,3 +91,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_vscale.F b/src/argos/argos_cafe_vscale.F index 6fcece6790..55a17bf3ee 100644 --- a/src/argos/argos_cafe_vscale.F +++ b/src/argos/argos_cafe_vscale.F @@ -17,3 +17,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_vw.F b/src/argos/argos_cafe_vw.F index 4dd39abddc..9258c689db 100644 --- a/src/argos/argos_cafe_vw.F +++ b/src/argos/argos_cafe_vw.F @@ -91,3 +91,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_wbox.F b/src/argos/argos_cafe_wbox.F index 3a54add3ed..2b25c239e0 100644 --- a/src/argos/argos_cafe_wbox.F +++ b/src/argos/argos_cafe_wbox.F @@ -41,3 +41,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_wcharge.F b/src/argos/argos_cafe_wcharge.F index 55919392a9..077fd80e03 100644 --- a/src/argos/argos_cafe_wcharge.F +++ b/src/argos/argos_cafe_wcharge.F @@ -14,3 +14,4 @@ c + dbl_mb(i_chg)) return end +c $Id$ diff --git a/src/argos/argos_cafe_wrtgib.F b/src/argos/argos_cafe_wrtgib.F index f853cd0e7f..3209762736 100644 --- a/src/argos/argos_cafe_wrtgib.F +++ b/src/argos/argos_cafe_wrtgib.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_wrtmro.F b/src/argos/argos_cafe_wrtmro.F index 72111889cb..50f3e10f2b 100644 --- a/src/argos/argos_cafe_wrtmro.F +++ b/src/argos/argos_cafe_wrtmro.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_wtgib.F b/src/argos/argos_cafe_wtgib.F index c8bc9af007..ec21a326f4 100644 --- a/src/argos/argos_cafe_wtgib.F +++ b/src/argos/argos_cafe_wtgib.F @@ -25,3 +25,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_wthdr.F b/src/argos/argos_cafe_wthdr.F index f29cc067e8..96a5c4c0b5 100644 --- a/src/argos/argos_cafe_wthdr.F +++ b/src/argos/argos_cafe_wthdr.F @@ -42,3 +42,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cafe_wtmro.F b/src/argos/argos_cafe_wtmro.F index a33586b1b6..d8e22f8d37 100644 --- a/src/argos/argos_cafe_wtmro.F +++ b/src/argos/argos_cafe_wtmro.F @@ -24,3 +24,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_cmopt.F b/src/argos/argos_cmopt.F index c950e03e7a..782186c343 100644 --- a/src/argos/argos_cmopt.F +++ b/src/argos/argos_cmopt.F @@ -13,3 +13,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_congra.F b/src/argos/argos_congra.F index 2d0b8048a4..437016a9ba 100644 --- a/src/argos/argos_congra.F +++ b/src/argos/argos_congra.F @@ -504,3 +504,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_addangle.F b/src/argos/argos_diana_addangle.F index 85e5deb654..45eed715a6 100644 --- a/src/argos/argos_diana_addangle.F +++ b/src/argos/argos_diana_addangle.F @@ -62,3 +62,4 @@ c call md_abort('Failed to read angle',0) return end +c $Id$ diff --git a/src/argos/argos_diana_adddistance.F b/src/argos/argos_diana_adddistance.F index 2ee78d172b..1f5cc39a1f 100644 --- a/src/argos/argos_diana_adddistance.F +++ b/src/argos/argos_diana_adddistance.F @@ -62,3 +62,4 @@ c call md_abort('Failed to read distance',0) return end +c $Id$ diff --git a/src/argos/argos_diana_addorder.F b/src/argos/argos_diana_addorder.F index a65a567c46..f469fd8a08 100644 --- a/src/argos/argos_diana_addorder.F +++ b/src/argos/argos_diana_addorder.F @@ -60,3 +60,4 @@ c call md_abort('Failed to read order parameter',0) return end +c $Id$ diff --git a/src/argos/argos_diana_addtorsion.F b/src/argos/argos_diana_addtorsion.F index a017e067f3..a278f6f235 100644 --- a/src/argos/argos_diana_addtorsion.F +++ b/src/argos/argos_diana_addtorsion.F @@ -62,3 +62,4 @@ c call md_abort('Failed to read torsion',0) return end +c $Id$ diff --git a/src/argos/argos_diana_all.F b/src/argos/argos_diana_all.F index 6b79763b2f..2b9abb41db 100644 --- a/src/argos/argos_diana_all.F +++ b/src/argos/argos_diana_all.F @@ -25,3 +25,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_anahdr.F b/src/argos/argos_diana_anahdr.F index 15b3c5c270..6429a3ecea 100644 --- a/src/argos/argos_diana_anahdr.F +++ b/src/argos/argos_diana_anahdr.F @@ -70,3 +70,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_center_fold.F b/src/argos/argos_diana_center_fold.F index b346d951d2..c55e910cf8 100644 --- a/src/argos/argos_diana_center_fold.F +++ b/src/argos/argos_diana_center_fold.F @@ -107,3 +107,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_chgdst.F b/src/argos/argos_diana_chgdst.F index 4f2aecaefd..acf927b1e8 100644 --- a/src/argos/argos_diana_chgdst.F +++ b/src/argos/argos_diana_chgdst.F @@ -37,3 +37,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_cov.F b/src/argos/argos_diana_cov.F index 385d5d36ce..a557831462 100644 --- a/src/argos/argos_diana_cov.F +++ b/src/argos/argos_diana_cov.F @@ -52,3 +52,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_diehdr.F b/src/argos/argos_diana_diehdr.F index fa16b48147..d5f6a114dd 100644 --- a/src/argos/argos_diana_diehdr.F +++ b/src/argos/argos_diana_diehdr.F @@ -10,3 +10,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_edfinal.F b/src/argos/argos_diana_edfinal.F index 305b368772..33c16350a0 100644 --- a/src/argos/argos_diana_edfinal.F +++ b/src/argos/argos_diana_edfinal.F @@ -25,3 +25,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_edinit.F b/src/argos/argos_diana_edinit.F index 095eb1e6df..0004ee6a26 100644 --- a/src/argos/argos_diana_edinit.F +++ b/src/argos/argos_diana_edinit.F @@ -43,3 +43,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_equiord.F b/src/argos/argos_diana_equiord.F index 52463ac0bf..c56d607f8e 100644 --- a/src/argos/argos_diana_equiord.F +++ b/src/argos/argos_diana_equiord.F @@ -34,3 +34,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_equitors.F b/src/argos/argos_diana_equitors.F index d512fd97ef..6bc576f38b 100644 --- a/src/argos/argos_diana_equitors.F +++ b/src/argos/argos_diana_equitors.F @@ -37,3 +37,4 @@ c 9 continue return end +c $Id$ diff --git a/src/argos/argos_diana_equivalent.F b/src/argos/argos_diana_equivalent.F index ff86f30426..615e00fc02 100644 --- a/src/argos/argos_diana_equivalent.F +++ b/src/argos/argos_diana_equivalent.F @@ -54,3 +54,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_espgrd.F b/src/argos/argos_diana_espgrd.F index 06b3d85bfb..ac89da7ddf 100644 --- a/src/argos/argos_diana_espgrd.F +++ b/src/argos/argos_diana_espgrd.F @@ -136,3 +136,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_esppt.F b/src/argos/argos_diana_esppt.F index 49a843a902..b3155c8409 100644 --- a/src/argos/argos_diana_esppt.F +++ b/src/argos/argos_diana_esppt.F @@ -152,3 +152,4 @@ c write(*,'(a)') 'Error reading pdb file ',filpdb return end +c $Id$ diff --git a/src/argos/argos_diana_evalangl.F b/src/argos/argos_diana_evalangl.F index 05ea4ebaea..c13bde5a0e 100644 --- a/src/argos/argos_diana_evalangl.F +++ b/src/argos/argos_diana_evalangl.F @@ -26,3 +26,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_evaldist.F b/src/argos/argos_diana_evaldist.F index 75ee36c393..7d6c813560 100644 --- a/src/argos/argos_diana_evaldist.F +++ b/src/argos/argos_diana_evaldist.F @@ -25,3 +25,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_evalord.F b/src/argos/argos_diana_evalord.F index db652fc176..ef27228af5 100644 --- a/src/argos/argos_diana_evalord.F +++ b/src/argos/argos_diana_evalord.F @@ -77,3 +77,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_evaltors.F b/src/argos/argos_diana_evaltors.F index 9dfa40110b..7cb7de9391 100644 --- a/src/argos/argos_diana_evaltors.F +++ b/src/argos/argos_diana_evaltors.F @@ -26,3 +26,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_export.F b/src/argos/argos_diana_export.F index 692358a552..7e3caf4f03 100644 --- a/src/argos/argos_diana_export.F +++ b/src/argos/argos_diana_export.F @@ -66,3 +66,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_final.F b/src/argos/argos_diana_final.F index b539c9d5ad..d0ec5e558c 100644 --- a/src/argos/argos_diana_final.F +++ b/src/argos/argos_diana_final.F @@ -42,3 +42,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_getcard.F b/src/argos/argos_diana_getcard.F index 4d08d2dff6..e06aef0102 100644 --- a/src/argos/argos_diana_getcard.F +++ b/src/argos/argos_diana_getcard.F @@ -22,3 +22,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_getcmd.F b/src/argos/argos_diana_getcmd.F index d302310a32..77f9c7e7b7 100644 --- a/src/argos/argos_diana_getcmd.F +++ b/src/argos/argos_diana_getcmd.F @@ -23,3 +23,4 @@ c call md_abort('Error readin command file',0) return end +c $Id$ diff --git a/src/argos/argos_diana_getofffr.F b/src/argos/argos_diana_getofffr.F index 4f0194d6c2..365b3aa2dd 100644 --- a/src/argos/argos_diana_getofffr.F +++ b/src/argos/argos_diana_getofffr.F @@ -22,3 +22,4 @@ c return end +c $Id$ diff --git a/src/argos/argos_diana_getslo.F b/src/argos/argos_diana_getslo.F index f3822c36de..781d57bdd8 100644 --- a/src/argos/argos_diana_getslo.F +++ b/src/argos/argos_diana_getslo.F @@ -27,3 +27,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_getsls.F b/src/argos/argos_diana_getsls.F index 450869d4ae..961729b392 100644 --- a/src/argos/argos_diana_getsls.F +++ b/src/argos/argos_diana_getsls.F @@ -27,3 +27,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_grpcogang.F b/src/argos/argos_diana_grpcogang.F index be9dc34d32..82b44cb6b4 100644 --- a/src/argos/argos_diana_grpcogang.F +++ b/src/argos/argos_diana_grpcogang.F @@ -107,3 +107,4 @@ c return end +c $Id$ diff --git a/src/argos/argos_diana_grpcogdis.F b/src/argos/argos_diana_grpcogdis.F index fc87db95ed..f9c59eff47 100644 --- a/src/argos/argos_diana_grpcogdis.F +++ b/src/argos/argos_diana_grpcogdis.F @@ -77,3 +77,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_grpdis.F b/src/argos/argos_diana_grpdis.F index 8ec608d7e1..74b1f44f44 100644 --- a/src/argos/argos_diana_grpdis.F +++ b/src/argos/argos_diana_grpdis.F @@ -63,3 +63,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_grploc.F b/src/argos/argos_diana_grploc.F index b04e7c23c9..fe8108ed70 100644 --- a/src/argos/argos_diana_grploc.F +++ b/src/argos/argos_diana_grploc.F @@ -89,3 +89,4 @@ c 1001 format(2(i5,a6,' ',a5,':',a5,' '),/,(t25,i5,a6,' ',a5,':',a5,' ')) c return end +c $Id$ diff --git a/src/argos/argos_diana_grpvectors.F b/src/argos/argos_diana_grpvectors.F index bcbc3e2e6c..3388bd21d5 100644 --- a/src/argos/argos_diana_grpvectors.F +++ b/src/argos/argos_diana_grpvectors.F @@ -83,3 +83,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_hbond.F b/src/argos/argos_diana_hbond.F index e2ed61a75f..81ff2f48d6 100644 --- a/src/argos/argos_diana_hbond.F +++ b/src/argos/argos_diana_hbond.F @@ -110,3 +110,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_hbond_header.F b/src/argos/argos_diana_hbond_header.F index 324b763a33..138d24c996 100644 --- a/src/argos/argos_diana_hbond_header.F +++ b/src/argos/argos_diana_hbond_header.F @@ -19,3 +19,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_histo.F b/src/argos/argos_diana_histo.F index b74657ea86..ccf43c3609 100644 --- a/src/argos/argos_diana_histo.F +++ b/src/argos/argos_diana_histo.F @@ -33,3 +33,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_index.F b/src/argos/argos_diana_index.F index d08f665f43..c8d2fc142b 100644 --- a/src/argos/argos_diana_index.F +++ b/src/argos/argos_diana_index.F @@ -79,3 +79,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_initag.F b/src/argos/argos_diana_initag.F index d69b8abc64..59b8d7850b 100644 --- a/src/argos/argos_diana_initag.F +++ b/src/argos/argos_diana_initag.F @@ -25,3 +25,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_jacobi.F b/src/argos/argos_diana_jacobi.F index 354e976586..dce694e8f6 100644 --- a/src/argos/argos_diana_jacobi.F +++ b/src/argos/argos_diana_jacobi.F @@ -102,3 +102,4 @@ c return end +c $Id$ diff --git a/src/argos/argos_diana_listangl.F b/src/argos/argos_diana_listangl.F index 146bd746fb..9a1392bf6f 100644 --- a/src/argos/argos_diana_listangl.F +++ b/src/argos/argos_diana_listangl.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_listdist.F b/src/argos/argos_diana_listdist.F index 5ac4d4767c..a96bcc9611 100644 --- a/src/argos/argos_diana_listdist.F +++ b/src/argos/argos_diana_listdist.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_listord.F b/src/argos/argos_diana_listord.F index 6376f0e06d..d898679389 100644 --- a/src/argos/argos_diana_listord.F +++ b/src/argos/argos_diana_listord.F @@ -20,3 +20,4 @@ c return end +c $Id$ diff --git a/src/argos/argos_diana_listtors.F b/src/argos/argos_diana_listtors.F index dff58821a2..667bf21b67 100644 --- a/src/argos/argos_diana_listtors.F +++ b/src/argos/argos_diana_listtors.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_lochdr.F b/src/argos/argos_diana_lochdr.F index 1afbd9d00b..424ad5e5df 100644 --- a/src/argos/argos_diana_lochdr.F +++ b/src/argos/argos_diana_lochdr.F @@ -40,3 +40,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_order.F b/src/argos/argos_diana_order.F index 3b5b014201..3932760dfd 100644 --- a/src/argos/argos_diana_order.F +++ b/src/argos/argos_diana_order.F @@ -67,3 +67,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_pcovar.F b/src/argos/argos_diana_pcovar.F index 024ae22df7..485fcae154 100644 --- a/src/argos/argos_diana_pcovar.F +++ b/src/argos/argos_diana_pcovar.F @@ -42,3 +42,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_preadframe.F b/src/argos/argos_diana_preadframe.F index 41efaf92e8..9c1779ab26 100644 --- a/src/argos/argos_diana_preadframe.F +++ b/src/argos/argos_diana_preadframe.F @@ -81,3 +81,4 @@ c call md_abort('Error in argos_diana_preadfram',me) return end +c $Id$ diff --git a/src/argos/argos_diana_proj.F b/src/argos/argos_diana_proj.F index cc94831487..66f7a7716f 100644 --- a/src/argos/argos_diana_proj.F +++ b/src/argos/argos_diana_proj.F @@ -89,3 +89,4 @@ c endif c return end +c $Id$ diff --git a/src/argos/argos_diana_project.F b/src/argos/argos_diana_project.F index 7a9b68d25d..873408a58d 100644 --- a/src/argos/argos_diana_project.F +++ b/src/argos/argos_diana_project.F @@ -131,3 +131,4 @@ c call md_abort(' Could not open projection files',0) return end +c $Id$ diff --git a/src/argos/argos_diana_puttrj.F b/src/argos/argos_diana_puttrj.F index 8e7b6202c2..98e8dcf12f 100644 --- a/src/argos/argos_diana_puttrj.F +++ b/src/argos/argos_diana_puttrj.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_rama1.F b/src/argos/argos_diana_rama1.F index 6f31217bed..dc3a3fa34e 100644 --- a/src/argos/argos_diana_rama1.F +++ b/src/argos/argos_diana_rama1.F @@ -37,3 +37,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_rama2.F b/src/argos/argos_diana_rama2.F index 3063af9b98..1599644b44 100644 --- a/src/argos/argos_diana_rama2.F +++ b/src/argos/argos_diana_rama2.F @@ -92,3 +92,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_ramhdr.F b/src/argos/argos_diana_ramhdr.F index 02dfbfdfb0..21ec0dc277 100644 --- a/src/argos/argos_diana_ramhdr.F +++ b/src/argos/argos_diana_ramhdr.F @@ -37,3 +37,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_rdchg.F b/src/argos/argos_diana_rdchg.F index 810b8bae5b..36cc2dcff2 100644 --- a/src/argos/argos_diana_rdchg.F +++ b/src/argos/argos_diana_rdchg.F @@ -72,3 +72,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_rdf.F b/src/argos/argos_diana_rdf.F index 51d9eb391e..cbc6a5a112 100644 --- a/src/argos/argos_diana_rdf.F +++ b/src/argos/argos_diana_rdf.F @@ -32,3 +32,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_rdfhdr.F b/src/argos/argos_diana_rdfhdr.F index e263584036..964f057164 100644 --- a/src/argos/argos_diana_rdfhdr.F +++ b/src/argos/argos_diana_rdfhdr.F @@ -42,3 +42,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_rdfwrt.F b/src/argos/argos_diana_rdfwrt.F index 5d5725de02..b7fc58698f 100644 --- a/src/argos/argos_diana_rdfwrt.F +++ b/src/argos/argos_diana_rdfwrt.F @@ -39,3 +39,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_rdsel.F b/src/argos/argos_diana_rdsel.F index 19fdb65518..23c785a360 100644 --- a/src/argos/argos_diana_rdsel.F +++ b/src/argos/argos_diana_rdsel.F @@ -12,3 +12,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_rdssl.F b/src/argos/argos_diana_rdssl.F index 6e0f269069..f2c76bb38c 100644 --- a/src/argos/argos_diana_rdssl.F +++ b/src/argos/argos_diana_rdssl.F @@ -12,3 +12,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_rdtop.F b/src/argos/argos_diana_rdtop.F index 33c8e9b3e5..c57944e1be 100644 --- a/src/argos/argos_diana_rdtop.F +++ b/src/argos/argos_diana_rdtop.F @@ -170,3 +170,4 @@ c c print*,'ARGOS_DIANA_RDTOP DONE' return end +c $Id$ diff --git a/src/argos/argos_diana_readsel.F b/src/argos/argos_diana_readsel.F index e8ecf5375b..a7f787da12 100644 --- a/src/argos/argos_diana_readsel.F +++ b/src/argos/argos_diana_readsel.F @@ -22,3 +22,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_report.F b/src/argos/argos_diana_report.F index 7139edd06a..e241bb06e8 100644 --- a/src/argos/argos_diana_report.F +++ b/src/argos/argos_diana_report.F @@ -52,3 +52,4 @@ c endif return end +c $Id$ diff --git a/src/argos/argos_diana_report_loc.F b/src/argos/argos_diana_report_loc.F index f9df2646dd..78209938db 100644 --- a/src/argos/argos_diana_report_loc.F +++ b/src/argos/argos_diana_report_loc.F @@ -87,3 +87,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_rotate.F b/src/argos/argos_diana_rotate.F index 5256234043..31d4ae6afb 100644 --- a/src/argos/argos_diana_rotate.F +++ b/src/argos/argos_diana_rotate.F @@ -55,3 +55,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_savsel.F b/src/argos/argos_diana_savsel.F index b1f633c893..afe2f9088b 100644 --- a/src/argos/argos_diana_savsel.F +++ b/src/argos/argos_diana_savsel.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_savssl.F b/src/argos/argos_diana_savssl.F index 7e20c542fe..e80ffba598 100644 --- a/src/argos/argos_diana_savssl.F +++ b/src/argos/argos_diana_savssl.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_selection.F b/src/argos/argos_diana_selection.F index 118356e63c..5d1f8aa9c8 100644 --- a/src/argos/argos_diana_selection.F +++ b/src/argos/argos_diana_selection.F @@ -122,3 +122,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_setiomode.F b/src/argos/argos_diana_setiomode.F index b70717af1f..7e1542da79 100644 --- a/src/argos/argos_diana_setiomode.F +++ b/src/argos/argos_diana_setiomode.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_settag.F b/src/argos/argos_diana_settag.F index 379abaf0b8..5eb4fc8a4a 100644 --- a/src/argos/argos_diana_settag.F +++ b/src/argos/argos_diana_settag.F @@ -114,3 +114,4 @@ c call md_abort('Error in settag',0) return end +c $Id$ diff --git a/src/argos/argos_diana_siztop.F b/src/argos/argos_diana_siztop.F index 02421780ca..75c16cbddd 100644 --- a/src/argos/argos_diana_siztop.F +++ b/src/argos/argos_diana_siztop.F @@ -109,3 +109,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_supimp.F b/src/argos/argos_diana_supimp.F index 66312bae76..bda5520071 100644 --- a/src/argos/argos_diana_supimp.F +++ b/src/argos/argos_diana_supimp.F @@ -24,3 +24,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_test.F b/src/argos/argos_diana_test.F index 194daf9c37..beca444399 100644 --- a/src/argos/argos_diana_test.F +++ b/src/argos/argos_diana_test.F @@ -10,3 +10,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_test2.F b/src/argos/argos_diana_test2.F index 5738795794..f788393bfa 100644 --- a/src/argos/argos_diana_test2.F +++ b/src/argos/argos_diana_test2.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_update.F b/src/argos/argos_diana_update.F index be2ccee28a..2f0e60f990 100644 --- a/src/argos/argos_diana_update.F +++ b/src/argos/argos_diana_update.F @@ -29,3 +29,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_wall.F b/src/argos/argos_diana_wall.F index 085a76cec6..289b61e157 100644 --- a/src/argos/argos_diana_wall.F +++ b/src/argos/argos_diana_wall.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_wcount.F b/src/argos/argos_diana_wcount.F index d0a8d21f99..5e0f119b94 100644 --- a/src/argos/argos_diana_wcount.F +++ b/src/argos/argos_diana_wcount.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_wdefin.F b/src/argos/argos_diana_wdefin.F index b209c21cd3..8452f185b5 100644 --- a/src/argos/argos_diana_wdefin.F +++ b/src/argos/argos_diana_wdefin.F @@ -66,3 +66,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_wrtdat.F b/src/argos/argos_diana_wrtdat.F index 24a90e44b1..c788a9c643 100644 --- a/src/argos/argos_diana_wrtdat.F +++ b/src/argos/argos_diana_wrtdat.F @@ -21,3 +21,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_wrtsel.F b/src/argos/argos_diana_wrtsel.F index acfa25425e..76a06061e9 100644 --- a/src/argos/argos_diana_wrtsel.F +++ b/src/argos/argos_diana_wrtsel.F @@ -22,3 +22,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_wrttrj.F b/src/argos/argos_diana_wrttrj.F index 41eeafa6bd..12f16c1873 100644 --- a/src/argos/argos_diana_wrttrj.F +++ b/src/argos/argos_diana_wrttrj.F @@ -60,3 +60,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_wrtvec.F b/src/argos/argos_diana_wrtvec.F index eedccc522e..fcf507b981 100644 --- a/src/argos/argos_diana_wrtvec.F +++ b/src/argos/argos_diana_wrtvec.F @@ -105,3 +105,4 @@ c argos_diana_wrtvec=.false. return end +c $Id$ diff --git a/src/argos/argos_diana_wselect.F b/src/argos/argos_diana_wselect.F index be206acb10..124e2f08d8 100644 --- a/src/argos/argos_diana_wselect.F +++ b/src/argos/argos_diana_wselect.F @@ -45,3 +45,4 @@ c endif c return end +c $Id$ diff --git a/src/argos/argos_diana_xcollect.F b/src/argos/argos_diana_xcollect.F index 9bb95b3da6..cdeb782ba9 100644 --- a/src/argos/argos_diana_xcollect.F +++ b/src/argos/argos_diana_xcollect.F @@ -35,3 +35,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_diana_xmean.F b/src/argos/argos_diana_xmean.F index bedbf6854d..167687f509 100644 --- a/src/argos/argos_diana_xmean.F +++ b/src/argos/argos_diana_xmean.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_em.F b/src/argos/argos_em.F index da43366d28..7100d82fbe 100644 --- a/src/argos/argos_em.F +++ b/src/argos/argos_em.F @@ -69,3 +69,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_em_fnorm.F b/src/argos/argos_em_fnorm.F index b56092260b..f816ee9e92 100644 --- a/src/argos/argos_em_fnorm.F +++ b/src/argos/argos_em_fnorm.F @@ -19,3 +19,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_eminit.F b/src/argos/argos_eminit.F index 3c5d1c1e4b..c07247f83c 100644 --- a/src/argos/argos_eminit.F +++ b/src/argos/argos_eminit.F @@ -48,3 +48,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_fclass.F b/src/argos/argos_fclass.F index c8877ff205..9326f7c124 100644 --- a/src/argos/argos_fclass.F +++ b/src/argos/argos_fclass.F @@ -169,3 +169,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_fd.F b/src/argos/argos_fd.F index d71e87b0fc..2fb9a5543b 100644 --- a/src/argos/argos_fd.F +++ b/src/argos/argos_fd.F @@ -109,3 +109,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_finit.F b/src/argos/argos_finit.F index 6531cdade3..8a27250478 100644 --- a/src/argos/argos_finit.F +++ b/src/argos/argos_finit.F @@ -96,3 +96,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_fold.F b/src/argos/argos_fold.F index ba4de743b6..faed13bd59 100644 --- a/src/argos/argos_fold.F +++ b/src/argos/argos_fold.F @@ -13,3 +13,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_fopen.F b/src/argos/argos_fopen.F index 56a519d5b7..24dd966662 100644 --- a/src/argos/argos_fopen.F +++ b/src/argos/argos_fopen.F @@ -129,3 +129,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_forces.F b/src/argos/argos_forces.F index ba22b020aa..140e5443c0 100644 --- a/src/argos/argos_forces.F +++ b/src/argos/argos_forces.F @@ -47,3 +47,4 @@ cx call timer_stop(47) c return end +c $Id$ diff --git a/src/argos/argos_guided.F b/src/argos/argos_guided.F index 1e2b2aacb0..e6fbf47267 100644 --- a/src/argos/argos_guided.F +++ b/src/argos/argos_guided.F @@ -32,3 +32,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_hdrtim.F b/src/argos/argos_hdrtim.F index cdca4aabd4..d6b99d243f 100644 --- a/src/argos/argos_hdrtim.F +++ b/src/argos/argos_hdrtim.F @@ -121,3 +121,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_induce_start.F b/src/argos/argos_induce_start.F index 024321b4fd..2e40c54871 100644 --- a/src/argos/argos_induce_start.F +++ b/src/argos/argos_induce_start.F @@ -218,3 +218,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_md.F b/src/argos/argos_md.F index 1147d04a0b..44517e18f1 100644 --- a/src/argos/argos_md.F +++ b/src/argos/argos_md.F @@ -117,3 +117,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_membrane_forces.F b/src/argos/argos_membrane_forces.F index befa7e184d..294ab7dbe9 100644 --- a/src/argos/argos_membrane_forces.F +++ b/src/argos/argos_membrane_forces.F @@ -51,3 +51,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_membrane_init.F b/src/argos/argos_membrane_init.F index 19c16c114f..0822a0cd7c 100644 --- a/src/argos/argos_membrane_init.F +++ b/src/argos/argos_membrane_init.F @@ -47,3 +47,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_newton.F b/src/argos/argos_newton.F index 81864a8067..440e5a5527 100644 --- a/src/argos/argos_newton.F +++ b/src/argos/argos_newton.F @@ -314,3 +314,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_partition.F b/src/argos/argos_partition.F index 374385ebd7..b707b16735 100644 --- a/src/argos/argos_partition.F +++ b/src/argos/argos_partition.F @@ -59,3 +59,4 @@ c return end c +c $Id$ diff --git a/src/argos/argos_partition_end.F b/src/argos/argos_partition_end.F index 49b3a3ed74..c0eea315d5 100644 --- a/src/argos/argos_partition_end.F +++ b/src/argos/argos_partition_end.F @@ -17,3 +17,4 @@ c me = ga_nodeid() return end +c $Id$ diff --git a/src/argos/argos_pme_coeff.F b/src/argos/argos_pme_coeff.F index 473f4baf1d..9195c8156c 100644 --- a/src/argos/argos_pme_coeff.F +++ b/src/argos/argos_pme_coeff.F @@ -27,3 +27,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_dftmod.F b/src/argos/argos_pme_dftmod.F index e4acdb144a..307b4b5065 100644 --- a/src/argos/argos_pme_dftmod.F +++ b/src/argos/argos_pme_dftmod.F @@ -25,3 +25,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_energy.F b/src/argos/argos_pme_energy.F index b2e5074768..e461c69b6b 100644 --- a/src/argos/argos_pme_energy.F +++ b/src/argos/argos_pme_energy.F @@ -47,3 +47,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_fftest.F b/src/argos/argos_pme_fftest.F index aa3dd2c66b..2412e16b31 100644 --- a/src/argos/argos_pme_fftest.F +++ b/src/argos/argos_pme_fftest.F @@ -65,3 +65,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_finish.F b/src/argos/argos_pme_finish.F index c10629cb38..b3be517b6a 100644 --- a/src/argos/argos_pme_finish.F +++ b/src/argos/argos_pme_finish.F @@ -49,3 +49,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_flag.F b/src/argos/argos_pme_flag.F index 4303bdf962..9951930472 100644 --- a/src/argos/argos_pme_flag.F +++ b/src/argos/argos_pme_flag.F @@ -40,3 +40,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_for.F b/src/argos/argos_pme_for.F index b977031296..7e792f33b0 100644 --- a/src/argos/argos_pme_for.F +++ b/src/argos/argos_pme_for.F @@ -52,3 +52,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_forces.F b/src/argos/argos_pme_forces.F index 9f62cb5dc9..292689d3a0 100644 --- a/src/argos/argos_pme_forces.F +++ b/src/argos/argos_pme_forces.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_getgrd.F b/src/argos/argos_pme_getgrd.F index 57971e57e6..bf032c25a3 100644 --- a/src/argos/argos_pme_getgrd.F +++ b/src/argos/argos_pme_getgrd.F @@ -31,3 +31,4 @@ c maxy=ngy c return end +c $Id$ diff --git a/src/argos/argos_pme_grid.F b/src/argos/argos_pme_grid.F index 7f67b4bdc7..f5784ee668 100644 --- a/src/argos/argos_pme_grid.F +++ b/src/argos/argos_pme_grid.F @@ -162,3 +162,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_init.F b/src/argos/argos_pme_init.F index 80b05602c6..9e7ccafb43 100644 --- a/src/argos/argos_pme_init.F +++ b/src/argos/argos_pme_init.F @@ -12,3 +12,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_putgrd.F b/src/argos/argos_pme_putgrd.F index e4fbf17585..3ed5723c6b 100644 --- a/src/argos/argos_pme_putgrd.F +++ b/src/argos/argos_pme_putgrd.F @@ -33,3 +33,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_select.F b/src/argos/argos_pme_select.F index 04d8f099d1..5cc3ea15f3 100644 --- a/src/argos/argos_pme_select.F +++ b/src/argos/argos_pme_select.F @@ -19,3 +19,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_selnod.F b/src/argos/argos_pme_selnod.F index 2eac48e0a5..88985ce18d 100644 --- a/src/argos/argos_pme_selnod.F +++ b/src/argos/argos_pme_selnod.F @@ -131,3 +131,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_splfil.F b/src/argos/argos_pme_splfil.F index ed59da0315..e87edd28b7 100644 --- a/src/argos/argos_pme_splfil.F +++ b/src/argos/argos_pme_splfil.F @@ -34,3 +34,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_sync.F b/src/argos/argos_pme_sync.F index 8868a0ea05..97fb539459 100644 --- a/src/argos/argos_pme_sync.F +++ b/src/argos/argos_pme_sync.F @@ -16,3 +16,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_synop.F b/src/argos/argos_pme_synop.F index 65e8c07c21..537b7404c4 100644 --- a/src/argos/argos_pme_synop.F +++ b/src/argos/argos_pme_synop.F @@ -8,3 +8,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_pme_wait.F b/src/argos/argos_pme_wait.F index a053947399..95f9005850 100644 --- a/src/argos/argos_pme_wait.F +++ b/src/argos/argos_pme_wait.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prep_atom_selection.F b/src/argos/argos_prep_atom_selection.F index d2a16abd17..59a03720b2 100644 --- a/src/argos/argos_prep_atom_selection.F +++ b/src/argos/argos_prep_atom_selection.F @@ -120,3 +120,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prep_collaps.F b/src/argos/argos_prep_collaps.F index 67d94e934b..71110aa466 100644 --- a/src/argos/argos_prep_collaps.F +++ b/src/argos/argos_prep_collaps.F @@ -298,3 +298,4 @@ c return end +c $Id$ diff --git a/src/argos/argos_prep_crop.F b/src/argos/argos_prep_crop.F index c80c87047c..425a589915 100644 --- a/src/argos/argos_prep_crop.F +++ b/src/argos/argos_prep_crop.F @@ -31,3 +31,4 @@ c return end +c $Id$ diff --git a/src/argos/argos_prep_master.F b/src/argos/argos_prep_master.F index c0df8f6397..495120802e 100644 --- a/src/argos/argos_prep_master.F +++ b/src/argos/argos_prep_master.F @@ -66,3 +66,4 @@ c argos_prep_master=.false. return end +c $Id$ diff --git a/src/argos/argos_prep_quick_charge.F b/src/argos/argos_prep_quick_charge.F index 53160dc86a..3172d29b1e 100644 --- a/src/argos/argos_prep_quick_charge.F +++ b/src/argos/argos_prep_quick_charge.F @@ -70,3 +70,4 @@ c call md_abort('Error in argos_prep_quick_charge',0) return end +c $Id$ diff --git a/src/argos/argos_prep_ring.F b/src/argos/argos_prep_ring.F index cb1ce65830..cd43d5c15a 100644 --- a/src/argos/argos_prep_ring.F +++ b/src/argos/argos_prep_ring.F @@ -46,3 +46,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prep_ssize.F b/src/argos/argos_prep_ssize.F index e106cb8631..31d39118b5 100644 --- a/src/argos/argos_prep_ssize.F +++ b/src/argos/argos_prep_ssize.F @@ -26,3 +26,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prep_str_replace.F b/src/argos/argos_prep_str_replace.F index b1d369db9e..1c219e7b2f 100644 --- a/src/argos/argos_prep_str_replace.F +++ b/src/argos/argos_prep_str_replace.F @@ -10,3 +10,4 @@ argos_prep_str_replace=.true. return end +c $Id$ diff --git a/src/argos/argos_prep_wrtnoe.F b/src/argos/argos_prep_wrtnoe.F index b0a743eb30..184f6dcc68 100644 --- a/src/argos/argos_prep_wrtnoe.F +++ b/src/argos/argos_prep_wrtnoe.F @@ -41,3 +41,4 @@ c call md_abort('Could not open filtop to write noe',0) return end +c $Id$ diff --git a/src/argos/argos_prep_wrtpmf.F b/src/argos/argos_prep_wrtpmf.F index db2e9589c7..73253e236a 100644 --- a/src/argos/argos_prep_wrtpmf.F +++ b/src/argos/argos_prep_wrtpmf.F @@ -403,3 +403,4 @@ c call md_abort('Could not read filtop to write pmf',0) return end +c $Id$ diff --git a/src/argos/argos_prep_wtrst.F b/src/argos/argos_prep_wtrst.F index 49f8249896..a6860a885d 100644 --- a/src/argos/argos_prep_wtrst.F +++ b/src/argos/argos_prep_wtrst.F @@ -133,3 +133,4 @@ c argos_prep_wtrst=.false. return end +c $Id$ diff --git a/src/argos/argos_prepare_atom_selection.F b/src/argos/argos_prepare_atom_selection.F index 2ca6e58859..5e03b643cd 100644 --- a/src/argos/argos_prepare_atom_selection.F +++ b/src/argos/argos_prepare_atom_selection.F @@ -120,3 +120,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prepare_collaps.F b/src/argos/argos_prepare_collaps.F index 81a6eeb7b4..3957177333 100644 --- a/src/argos/argos_prepare_collaps.F +++ b/src/argos/argos_prepare_collaps.F @@ -298,3 +298,4 @@ c return end +c $Id$ diff --git a/src/argos/argos_prepare_crop.F b/src/argos/argos_prepare_crop.F index 8942eb6e15..904a0b11cb 100644 --- a/src/argos/argos_prepare_crop.F +++ b/src/argos/argos_prepare_crop.F @@ -31,3 +31,4 @@ c return end +c $Id$ diff --git a/src/argos/argos_prepare_master.F b/src/argos/argos_prepare_master.F index 2e4932051f..ce23ebdd16 100644 --- a/src/argos/argos_prepare_master.F +++ b/src/argos/argos_prepare_master.F @@ -67,3 +67,4 @@ c argos_prepare_master=.false. return end +c $Id$ diff --git a/src/argos/argos_prepare_quick_charge.F b/src/argos/argos_prepare_quick_charge.F index b51205bcc2..8d41e5634f 100644 --- a/src/argos/argos_prepare_quick_charge.F +++ b/src/argos/argos_prepare_quick_charge.F @@ -70,3 +70,4 @@ c call md_abort('Error in argos_prepare_quick_charge',0) return end +c $Id$ diff --git a/src/argos/argos_prepare_ring.F b/src/argos/argos_prepare_ring.F index f18c84bff2..52397e1991 100644 --- a/src/argos/argos_prepare_ring.F +++ b/src/argos/argos_prepare_ring.F @@ -46,3 +46,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prepare_ssize.F b/src/argos/argos_prepare_ssize.F index 13ecbcf8d0..51867910ea 100644 --- a/src/argos/argos_prepare_ssize.F +++ b/src/argos/argos_prepare_ssize.F @@ -26,3 +26,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prepare_wrtnoe.F b/src/argos/argos_prepare_wrtnoe.F index ff20af2271..8a6df03041 100644 --- a/src/argos/argos_prepare_wrtnoe.F +++ b/src/argos/argos_prepare_wrtnoe.F @@ -41,3 +41,4 @@ c call md_abort('Could not open filtop to write noe',0) return end +c $Id$ diff --git a/src/argos/argos_prepare_wrtpmf.F b/src/argos/argos_prepare_wrtpmf.F index 2398efe060..16279de46d 100644 --- a/src/argos/argos_prepare_wrtpmf.F +++ b/src/argos/argos_prepare_wrtpmf.F @@ -403,3 +403,4 @@ c call md_abort('Could not read filtop to write pmf',0) return end +c $Id$ diff --git a/src/argos/argos_prepare_wtrst.F b/src/argos/argos_prepare_wtrst.F index a3f92b964a..9835d731d5 100644 --- a/src/argos/argos_prepare_wtrst.F +++ b/src/argos/argos_prepare_wtrst.F @@ -133,3 +133,4 @@ c argos_prepare_wtrst=.false. return end +c $Id$ diff --git a/src/argos/argos_print.F b/src/argos/argos_print.F index 8d7a8ff6d8..bb58b1fdae 100644 --- a/src/argos/argos_print.F +++ b/src/argos/argos_print.F @@ -290,3 +290,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_dfr.F b/src/argos/argos_prop_dfr.F index 125de4d7b7..cf07ca4bb0 100644 --- a/src/argos/argos_prop_dfr.F +++ b/src/argos/argos_prop_dfr.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_dfr_copy.F b/src/argos/argos_prop_dfr_copy.F index 7b3f05affc..77ee221362 100644 --- a/src/argos/argos_prop_dfr_copy.F +++ b/src/argos/argos_prop_dfr_copy.F @@ -21,3 +21,4 @@ c argos_prop_dfr_copy=nda return end +c $Id$ diff --git a/src/argos/argos_prop_finish.F b/src/argos/argos_prop_finish.F index c4391214a3..a8032e90af 100644 --- a/src/argos/argos_prop_finish.F +++ b/src/argos/argos_prop_finish.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_header.F b/src/argos/argos_prop_header.F index e22385f6cd..0e313a0133 100644 --- a/src/argos/argos_prop_header.F +++ b/src/argos/argos_prop_header.F @@ -8,3 +8,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_init.F b/src/argos/argos_prop_init.F index 75578195fa..1675e1b82e 100644 --- a/src/argos/argos_prop_init.F +++ b/src/argos/argos_prop_init.F @@ -37,3 +37,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_mcti.F b/src/argos/argos_prop_mcti.F index e8daad013c..cbad484ffa 100644 --- a/src/argos/argos_prop_mcti.F +++ b/src/argos/argos_prop_mcti.F @@ -80,3 +80,4 @@ c endif c return end +c $Id$ diff --git a/src/argos/argos_prop_mcti_acc.F b/src/argos/argos_prop_mcti_acc.F index f5f60c138b..46d6bafcbf 100644 --- a/src/argos/argos_prop_mcti_acc.F +++ b/src/argos/argos_prop_mcti_acc.F @@ -51,3 +51,4 @@ c argos_prop_mcti_acc=done return end +c $Id$ diff --git a/src/argos/argos_prop_mcti_r.F b/src/argos/argos_prop_mcti_r.F index a36a2df9e4..12b16ea44c 100644 --- a/src/argos/argos_prop_mcti_r.F +++ b/src/argos/argos_prop_mcti_r.F @@ -27,3 +27,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_mcti_run.F b/src/argos/argos_prop_mcti_run.F index 10f6339bee..f74e4a2ef7 100644 --- a/src/argos/argos_prop_mcti_run.F +++ b/src/argos/argos_prop_mcti_run.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_mcti_s.F b/src/argos/argos_prop_mcti_s.F index 1cf18006ba..460f7df8fc 100644 --- a/src/argos/argos_prop_mcti_s.F +++ b/src/argos/argos_prop_mcti_s.F @@ -251,3 +251,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_mcti_step.F b/src/argos/argos_prop_mcti_step.F index 5c66c5255c..83661eb2b7 100644 --- a/src/argos/argos_prop_mcti_step.F +++ b/src/argos/argos_prop_mcti_step.F @@ -35,3 +35,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_print.F b/src/argos/argos_prop_print.F index c7268b01f1..4a3429e632 100644 --- a/src/argos/argos_prop_print.F +++ b/src/argos/argos_prop_print.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_proper.F b/src/argos/argos_prop_proper.F index 829dcbd2f1..f749d55a7c 100644 --- a/src/argos/argos_prop_proper.F +++ b/src/argos/argos_prop_proper.F @@ -436,3 +436,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_rdmri.F b/src/argos/argos_prop_rdmri.F index 5443bfdc4e..e0f13f5906 100644 --- a/src/argos/argos_prop_rdmri.F +++ b/src/argos/argos_prop_rdmri.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_rdrest.F b/src/argos/argos_prop_rdrest.F index f4dc6fafe3..08cea4774e 100644 --- a/src/argos/argos_prop_rdrest.F +++ b/src/argos/argos_prop_rdrest.F @@ -43,3 +43,4 @@ c + ('Unable to open restart file in argos_prop_rdrest ',me) return end +c $Id$ diff --git a/src/argos/argos_prop_record.F b/src/argos/argos_prop_record.F index e45c639cb4..1a07b73cd5 100644 --- a/src/argos/argos_prop_record.F +++ b/src/argos/argos_prop_record.F @@ -32,3 +32,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_rmri.F b/src/argos/argos_prop_rmri.F index 4472c5507c..8df6ba526a 100644 --- a/src/argos/argos_prop_rmri.F +++ b/src/argos/argos_prop_rmri.F @@ -53,3 +53,4 @@ c argos_prop_rmri=.false. return end +c $Id$ diff --git a/src/argos/argos_prop_setup.F b/src/argos/argos_prop_setup.F index e656d590f7..e085ea13c1 100644 --- a/src/argos/argos_prop_setup.F +++ b/src/argos/argos_prop_setup.F @@ -10,3 +10,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_stat.F b/src/argos/argos_prop_stat.F index e74749aa21..aeee571abd 100644 --- a/src/argos/argos_prop_stat.F +++ b/src/argos/argos_prop_stat.F @@ -106,3 +106,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_wrtmro.F b/src/argos/argos_prop_wrtmro.F index dc52d21a90..e0cb715523 100644 --- a/src/argos/argos_prop_wrtmro.F +++ b/src/argos/argos_prop_wrtmro.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_wtmro.F b/src/argos/argos_prop_wtmro.F index da5c4a4e93..f905dbceea 100644 --- a/src/argos/argos_prop_wtmro.F +++ b/src/argos/argos_prop_wtmro.F @@ -26,3 +26,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_prop_wtrest.F b/src/argos/argos_prop_wtrest.F index eaee19fb6f..ac562c4650 100644 --- a/src/argos/argos_prop_wtrest.F +++ b/src/argos/argos_prop_wtrest.F @@ -26,3 +26,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_rdinp.F b/src/argos/argos_rdinp.F index 35c5c28f76..dd1d723f82 100644 --- a/src/argos/argos_rdinp.F +++ b/src/argos/argos_rdinp.F @@ -1010,3 +1010,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_rdrest.F b/src/argos/argos_rdrest.F index e0730a97d7..97754ff574 100644 --- a/src/argos/argos_rdrest.F +++ b/src/argos/argos_rdrest.F @@ -73,3 +73,4 @@ c call md_abort('Unable to open restart file in argos_rest ',me) return end +c $Id$ diff --git a/src/argos/argos_server.F b/src/argos/argos_server.F index 4291e8f443..18aac828ce 100644 --- a/src/argos/argos_server.F +++ b/src/argos/argos_server.F @@ -47,3 +47,4 @@ c #endif return end +c $Id$ diff --git a/src/argos/argos_shake.F b/src/argos/argos_shake.F index 026b51ea70..75fe646331 100644 --- a/src/argos/argos_shake.F +++ b/src/argos/argos_shake.F @@ -54,3 +54,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_sp.F b/src/argos/argos_sp.F index c590e3d156..d07d6c4a6e 100644 --- a/src/argos/argos_sp.F +++ b/src/argos/argos_sp.F @@ -72,3 +72,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_accfbl.F b/src/argos/argos_space_accfbl.F index 088c47c586..82007a2a87 100644 --- a/src/argos/argos_space_accfbl.F +++ b/src/argos/argos_space_accfbl.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_accpbl.F b/src/argos/argos_space_accpbl.F index e77ae40d1e..81277b2cf4 100644 --- a/src/argos/argos_space_accpbl.F +++ b/src/argos/argos_space_accpbl.F @@ -17,3 +17,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_acfbl.F b/src/argos/argos_space_acfbl.F index e8d353871c..17db1bf534 100644 --- a/src/argos/argos_space_acfbl.F +++ b/src/argos/argos_space_acfbl.F @@ -96,3 +96,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_acpbl.F b/src/argos/argos_space_acpbl.F index 8827f91dcb..44480edb30 100644 --- a/src/argos/argos_space_acpbl.F +++ b/src/argos/argos_space_acpbl.F @@ -98,3 +98,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_alloc.F b/src/argos/argos_space_alloc.F index 91d4e0a75a..1c30092b51 100644 --- a/src/argos/argos_space_alloc.F +++ b/src/argos/argos_space_alloc.F @@ -38,3 +38,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_alloc2.F b/src/argos/argos_space_alloc2.F index 1385bf87e8..7b4e39b9a0 100644 --- a/src/argos/argos_space_alloc2.F +++ b/src/argos/argos_space_alloc2.F @@ -55,3 +55,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_balanc.F b/src/argos/argos_space_balanc.F index 5fad47c198..23b066ad10 100644 --- a/src/argos/argos_space_balanc.F +++ b/src/argos/argos_space_balanc.F @@ -56,3 +56,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_bscale.F b/src/argos/argos_space_bscale.F index a645e42aaa..66afb8c252 100644 --- a/src/argos/argos_space_bscale.F +++ b/src/argos/argos_space_bscale.F @@ -26,3 +26,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_btop.F b/src/argos/argos_space_btop.F index cc746eef0c..76be9519c9 100644 --- a/src/argos/argos_space_btop.F +++ b/src/argos/argos_space_btop.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_cascad.F b/src/argos/argos_space_cascad.F index ffc74375c0..f27f87e0b3 100644 --- a/src/argos/argos_space_cascad.F +++ b/src/argos/argos_space_cascad.F @@ -117,3 +117,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_copyg.F b/src/argos/argos_space_copyg.F index 2889b49ae8..c02f59aa62 100644 --- a/src/argos/argos_space_copyg.F +++ b/src/argos/argos_space_copyg.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_decomp.F b/src/argos/argos_space_decomp.F index 363a0ed08d..a42a192683 100644 --- a/src/argos/argos_space_decomp.F +++ b/src/argos/argos_space_decomp.F @@ -122,3 +122,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_diffbb.F b/src/argos/argos_space_diffbb.F index 2b1d80f486..09018e91e9 100644 --- a/src/argos/argos_space_diffbb.F +++ b/src/argos/argos_space_diffbb.F @@ -127,3 +127,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_dimens.F b/src/argos/argos_space_dimens.F index 334474811e..e3fa70ca6a 100644 --- a/src/argos/argos_space_dimens.F +++ b/src/argos/argos_space_dimens.F @@ -219,3 +219,4 @@ c 9999 call md_abort('Failed to open restart file',0) return end +c $Id$ diff --git a/src/argos/argos_space_dldbal.F b/src/argos/argos_space_dldbal.F index ff2bd3bc13..a496aeebaf 100644 --- a/src/argos/argos_space_dldbal.F +++ b/src/argos/argos_space_dldbal.F @@ -235,3 +235,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_final.F b/src/argos/argos_space_final.F index 0c36029b44..7aa9e71758 100644 --- a/src/argos/argos_space_final.F +++ b/src/argos/argos_space_final.F @@ -52,3 +52,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_finish.F b/src/argos/argos_space_finish.F index dda90e7157..34bede0fda 100644 --- a/src/argos/argos_space_finish.F +++ b/src/argos/argos_space_finish.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_fix.F b/src/argos/argos_space_fix.F index ee247f6320..4f0b0d7b39 100644 --- a/src/argos/argos_space_fix.F +++ b/src/argos/argos_space_fix.F @@ -4,3 +4,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_free.F b/src/argos/argos_space_free.F index eab061c854..80f7e1b92c 100644 --- a/src/argos/argos_space_free.F +++ b/src/argos/argos_space_free.F @@ -45,3 +45,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gagetf.F b/src/argos/argos_space_gagetf.F index cce02bbc58..c977046158 100644 --- a/src/argos/argos_space_gagetf.F +++ b/src/argos/argos_space_gagetf.F @@ -22,3 +22,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gagetixv.F b/src/argos/argos_space_gagetixv.F index 0bb9633ad7..516863adbf 100644 --- a/src/argos/argos_space_gagetixv.F +++ b/src/argos/argos_space_gagetixv.F @@ -51,3 +51,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gagetixvf.F b/src/argos/argos_space_gagetixvf.F index ed411649c8..8d1fd2d4aa 100644 --- a/src/argos/argos_space_gagetixvf.F +++ b/src/argos/argos_space_gagetixvf.F @@ -53,3 +53,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gaputf.F b/src/argos/argos_space_gaputf.F index 1265ef62e5..41ed5f94b9 100644 --- a/src/argos/argos_space_gaputf.F +++ b/src/argos/argos_space_gaputf.F @@ -22,3 +22,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gaputix.F b/src/argos/argos_space_gaputix.F index 9a0b2d96fd..e1d60e438c 100644 --- a/src/argos/argos_space_gaputix.F +++ b/src/argos/argos_space_gaputix.F @@ -46,3 +46,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gaputixv.F b/src/argos/argos_space_gaputixv.F index e88bf7946a..eb5c519870 100644 --- a/src/argos/argos_space_gaputixv.F +++ b/src/argos/argos_space_gaputixv.F @@ -51,3 +51,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_getda.F b/src/argos/argos_space_getda.F index c5b621fade..2083cab618 100644 --- a/src/argos/argos_space_getda.F +++ b/src/argos/argos_space_getda.F @@ -22,3 +22,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gethdl.F b/src/argos/argos_space_gethdl.F index 79b37ecdb2..830d630e3b 100644 --- a/src/argos/argos_space_gethdl.F +++ b/src/argos/argos_space_gethdl.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_getixv.F b/src/argos/argos_space_getixv.F index a53eef6973..4ab874664e 100644 --- a/src/argos/argos_space_getixv.F +++ b/src/argos/argos_space_getixv.F @@ -22,3 +22,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_getp.F b/src/argos/argos_space_getp.F index 6230f29ff8..d05e8993da 100644 --- a/src/argos/argos_space_getp.F +++ b/src/argos/argos_space_getp.F @@ -44,3 +44,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gettp.F b/src/argos/argos_space_gettp.F index 8880147fe0..8f4bdf18bd 100644 --- a/src/argos/argos_space_gettp.F +++ b/src/argos/argos_space_gettp.F @@ -12,3 +12,4 @@ c return end c +c $Id$ diff --git a/src/argos/argos_space_getxbl.F b/src/argos/argos_space_getxbl.F index fbb77b33f1..f01c68c051 100644 --- a/src/argos/argos_space_getxbl.F +++ b/src/argos/argos_space_getxbl.F @@ -23,3 +23,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_getxpbl.F b/src/argos/argos_space_getxpbl.F index 64e2ed4489..9760f0c70c 100644 --- a/src/argos/argos_space_getxpbl.F +++ b/src/argos/argos_space_getxpbl.F @@ -24,3 +24,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_getxscr.F b/src/argos/argos_space_getxscr.F index cadc07c00e..edb839c8c0 100644 --- a/src/argos/argos_space_getxscr.F +++ b/src/argos/argos_space_getxscr.F @@ -16,3 +16,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gtda.F b/src/argos/argos_space_gtda.F index 6db4e42372..297b03e8fc 100644 --- a/src/argos/argos_space_gtda.F +++ b/src/argos/argos_space_gtda.F @@ -36,3 +36,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gthdl.F b/src/argos/argos_space_gthdl.F index 1775e7bf7f..4dbdfc89c8 100644 --- a/src/argos/argos_space_gthdl.F +++ b/src/argos/argos_space_gthdl.F @@ -42,3 +42,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gtlocal.F b/src/argos/argos_space_gtlocal.F index 9dde69ef95..699de74a79 100644 --- a/src/argos/argos_space_gtlocal.F +++ b/src/argos/argos_space_gtlocal.F @@ -13,3 +13,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_gtxpbl.F b/src/argos/argos_space_gtxpbl.F index 53f8d21253..98be820645 100644 --- a/src/argos/argos_space_gtxpbl.F +++ b/src/argos/argos_space_gtxpbl.F @@ -171,3 +171,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_ibbl_prefetch.F b/src/argos/argos_space_ibbl_prefetch.F index 2de13103b9..fd1b6a5536 100644 --- a/src/argos/argos_space_ibbl_prefetch.F +++ b/src/argos/argos_space_ibbl_prefetch.F @@ -130,3 +130,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_initf.F b/src/argos/argos_space_initf.F index af21e81b28..6aeaacb70e 100644 --- a/src/argos/argos_space_initf.F +++ b/src/argos/argos_space_initf.F @@ -61,3 +61,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_initip.F b/src/argos/argos_space_initip.F index f16451ac66..98c8d2f7b6 100644 --- a/src/argos/argos_space_initip.F +++ b/src/argos/argos_space_initip.F @@ -63,3 +63,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_latoms.F b/src/argos/argos_space_latoms.F index 1e8f9883ae..596b30e637 100644 --- a/src/argos/argos_space_latoms.F +++ b/src/argos/argos_space_latoms.F @@ -39,3 +39,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_lbbl_ind.F b/src/argos/argos_space_lbbl_ind.F index 18aeed4e2f..d56651d1ad 100644 --- a/src/argos/argos_space_lbbl_ind.F +++ b/src/argos/argos_space_lbbl_ind.F @@ -148,3 +148,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_lbbl_indices.F b/src/argos/argos_space_lbbl_indices.F index 6fd45e200d..abfb0a8db2 100644 --- a/src/argos/argos_space_lbbl_indices.F +++ b/src/argos/argos_space_lbbl_indices.F @@ -10,3 +10,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_lbbl_prefetch.F b/src/argos/argos_space_lbbl_prefetch.F index 17a35e4069..78869bb323 100644 --- a/src/argos/argos_space_lbbl_prefetch.F +++ b/src/argos/argos_space_lbbl_prefetch.F @@ -135,3 +135,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_listbb.F b/src/argos/argos_space_listbb.F index 52417f4bba..de58f11e8d 100644 --- a/src/argos/argos_space_listbb.F +++ b/src/argos/argos_space_listbb.F @@ -205,3 +205,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_local.F b/src/argos/argos_space_local.F index d515d1678b..6bb88603e2 100644 --- a/src/argos/argos_space_local.F +++ b/src/argos/argos_space_local.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_nbaccfbl.F b/src/argos/argos_space_nbaccfbl.F index 66a65a5746..9a8a5802c4 100644 --- a/src/argos/argos_space_nbaccfbl.F +++ b/src/argos/argos_space_nbaccfbl.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_nbacfbl.F b/src/argos/argos_space_nbacfbl.F index f692d80f3a..b1bb00132f 100644 --- a/src/argos/argos_space_nbacfbl.F +++ b/src/argos/argos_space_nbacfbl.F @@ -130,3 +130,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_nbbl.F b/src/argos/argos_space_nbbl.F index 32a69dbab1..b8d382a71d 100644 --- a/src/argos/argos_space_nbbl.F +++ b/src/argos/argos_space_nbbl.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_nbwait.F b/src/argos/argos_space_nbwait.F index 1d432c6d58..06ff15a758 100644 --- a/src/argos/argos_space_nbwait.F +++ b/src/argos/argos_space_nbwait.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_nbwait2.F b/src/argos/argos_space_nbwait2.F index dd5ddfd771..6420238595 100644 --- a/src/argos/argos_space_nbwait2.F +++ b/src/argos/argos_space_nbwait2.F @@ -79,3 +79,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_nbwait3.F b/src/argos/argos_space_nbwait3.F index f5d33af14c..62ea13226d 100644 --- a/src/argos/argos_space_nbwait3.F +++ b/src/argos/argos_space_nbwait3.F @@ -43,3 +43,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_nbwaitf.F b/src/argos/argos_space_nbwaitf.F index 267adec9ad..ffa6ccfd4d 100644 --- a/src/argos/argos_space_nbwaitf.F +++ b/src/argos/argos_space_nbwaitf.F @@ -10,3 +10,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_nrnode.F b/src/argos/argos_space_nrnode.F index 0ba49066c0..0113665252 100644 --- a/src/argos/argos_space_nrnode.F +++ b/src/argos/argos_space_nrnode.F @@ -63,3 +63,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_numbb.F b/src/argos/argos_space_numbb.F index 730ad05080..732c09f2bf 100644 --- a/src/argos/argos_space_numbb.F +++ b/src/argos/argos_space_numbb.F @@ -355,3 +355,4 @@ c call md_abort('lbbl increased beyond allocated memory',me) c return end +c $Id$ diff --git a/src/argos/argos_space_owner.F b/src/argos/argos_space_owner.F index 406678e7b6..529dcfed18 100644 --- a/src/argos/argos_space_owner.F +++ b/src/argos/argos_space_owner.F @@ -21,3 +21,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_owners.F b/src/argos/argos_space_owners.F index e104796c3b..db74c802de 100644 --- a/src/argos/argos_space_owners.F +++ b/src/argos/argos_space_owners.F @@ -145,3 +145,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_ownerw.F b/src/argos/argos_space_ownerw.F index 080ecb9b34..254a076cfb 100644 --- a/src/argos/argos_space_ownerw.F +++ b/src/argos/argos_space_ownerw.F @@ -73,3 +73,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_pack.F b/src/argos/argos_space_pack.F index 53fc0423b4..a28702572f 100644 --- a/src/argos/argos_space_pack.F +++ b/src/argos/argos_space_pack.F @@ -26,3 +26,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_pack_finish.F b/src/argos/argos_space_pack_finish.F index ad53753a9f..ce2392552e 100644 --- a/src/argos/argos_space_pack_finish.F +++ b/src/argos/argos_space_pack_finish.F @@ -16,3 +16,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_pack_ga.F b/src/argos/argos_space_pack_ga.F index 2f7640604c..7b42dac481 100644 --- a/src/argos/argos_space_pack_ga.F +++ b/src/argos/argos_space_pack_ga.F @@ -29,3 +29,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_pack_init.F b/src/argos/argos_space_pack_init.F index 44918abaad..7fffb677ff 100644 --- a/src/argos/argos_space_pack_init.F +++ b/src/argos/argos_space_pack_init.F @@ -136,3 +136,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_packw.F b/src/argos/argos_space_packw.F index bd6d887e33..cacff3d592 100644 --- a/src/argos/argos_space_packw.F +++ b/src/argos/argos_space_packw.F @@ -26,3 +26,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_prefetch.F b/src/argos/argos_space_prefetch.F index 3127fbe7f9..cb79d3fd55 100644 --- a/src/argos/argos_space_prefetch.F +++ b/src/argos/argos_space_prefetch.F @@ -29,3 +29,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_prefetch_all.F b/src/argos/argos_space_prefetch_all.F index 6287214164..d5c39f817e 100644 --- a/src/argos/argos_space_prefetch_all.F +++ b/src/argos/argos_space_prefetch_all.F @@ -22,3 +22,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_prefetch_next.F b/src/argos/argos_space_prefetch_next.F index 4d255bef6c..427ee4e3f3 100644 --- a/src/argos/argos_space_prefetch_next.F +++ b/src/argos/argos_space_prefetch_next.F @@ -27,3 +27,4 @@ c return end +c $Id$ diff --git a/src/argos/argos_space_prefetch_p.F b/src/argos/argos_space_prefetch_p.F index 5cd9bd4924..afb46abf38 100644 --- a/src/argos/argos_space_prefetch_p.F +++ b/src/argos/argos_space_prefetch_p.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_print.F b/src/argos/argos_space_print.F index 04e13f01d9..b38a5757d2 100644 --- a/src/argos/argos_space_print.F +++ b/src/argos/argos_space_print.F @@ -52,3 +52,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_printf.F b/src/argos/argos_space_printf.F index 64b78cdb26..60745e22e6 100644 --- a/src/argos/argos_space_printf.F +++ b/src/argos/argos_space_printf.F @@ -47,3 +47,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_prt_s.F b/src/argos/argos_space_prt_s.F index ba9571af85..128c81f538 100644 --- a/src/argos/argos_space_prt_s.F +++ b/src/argos/argos_space_prt_s.F @@ -165,3 +165,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_prtcnt.F b/src/argos/argos_space_prtcnt.F index 04d1615908..1faebec6ac 100644 --- a/src/argos/argos_space_prtcnt.F +++ b/src/argos/argos_space_prtcnt.F @@ -34,3 +34,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_putix.F b/src/argos/argos_space_putix.F index 90743219b2..e199325ca6 100644 --- a/src/argos/argos_space_putix.F +++ b/src/argos/argos_space_putix.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_putp.F b/src/argos/argos_space_putp.F index 5445efa393..3a96927d91 100644 --- a/src/argos/argos_space_putp.F +++ b/src/argos/argos_space_putp.F @@ -27,3 +27,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_qatoms.F b/src/argos/argos_space_qatoms.F index 14c60c258b..bb9386d1f0 100644 --- a/src/argos/argos_space_qatoms.F +++ b/src/argos/argos_space_qatoms.F @@ -20,3 +20,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_rdmri.F b/src/argos/argos_space_rdmri.F index 8967565e20..aabd253efd 100644 --- a/src/argos/argos_space_rdmri.F +++ b/src/argos/argos_space_rdmri.F @@ -24,3 +24,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_rdrest.F b/src/argos/argos_space_rdrest.F index f4b4f4c482..616eb261f2 100644 --- a/src/argos/argos_space_rdrest.F +++ b/src/argos/argos_space_rdrest.F @@ -24,3 +24,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_rdrst.F b/src/argos/argos_space_rdrst.F index 608b71aaf7..adf6151c21 100644 --- a/src/argos/argos_space_rdrst.F +++ b/src/argos/argos_space_rdrst.F @@ -578,3 +578,4 @@ c 9999 call md_abort('Error opening restart file',0) return end +c $Id$ diff --git a/src/argos/argos_space_rdtrj.F b/src/argos/argos_space_rdtrj.F index 6dcb7aebf0..ffabfdcad8 100644 --- a/src/argos/argos_space_rdtrj.F +++ b/src/argos/argos_space_rdtrj.F @@ -66,3 +66,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_resize.F b/src/argos/argos_space_resize.F index 303754bda6..f5d4b1a266 100644 --- a/src/argos/argos_space_resize.F +++ b/src/argos/argos_space_resize.F @@ -104,3 +104,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_rmri.F b/src/argos/argos_space_rmri.F index d12f41d52b..51d9d5535f 100644 --- a/src/argos/argos_space_rmri.F +++ b/src/argos/argos_space_rmri.F @@ -115,3 +115,4 @@ c argos_space_rmri=.false. return end +c $Id$ diff --git a/src/argos/argos_space_rrest.F b/src/argos/argos_space_rrest.F index 50fa3dd822..7c36577fb0 100644 --- a/src/argos/argos_space_rrest.F +++ b/src/argos/argos_space_rrest.F @@ -99,3 +99,4 @@ c argos_space_rrest=.false. return end +c $Id$ diff --git a/src/argos/argos_space_rtrj.F b/src/argos/argos_space_rtrj.F index f24d9b2317..d751880cdf 100644 --- a/src/argos/argos_space_rtrj.F +++ b/src/argos/argos_space_rtrj.F @@ -309,3 +309,4 @@ c c end c +c $Id$ diff --git a/src/argos/argos_space_skip.F b/src/argos/argos_space_skip.F index 3562f407e7..17d325b3c1 100644 --- a/src/argos/argos_space_skip.F +++ b/src/argos/argos_space_skip.F @@ -28,3 +28,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_travel.F b/src/argos/argos_space_travel.F index 83c56973bc..14c515f0f9 100644 --- a/src/argos/argos_space_travel.F +++ b/src/argos/argos_space_travel.F @@ -58,3 +58,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_trvl.F b/src/argos/argos_space_trvl.F index b27954452f..fba4f866c1 100644 --- a/src/argos/argos_space_trvl.F +++ b/src/argos/argos_space_trvl.F @@ -897,3 +897,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_unpack.F b/src/argos/argos_space_unpack.F index 4d327049a8..ba1c748ca9 100644 --- a/src/argos/argos_space_unpack.F +++ b/src/argos/argos_space_unpack.F @@ -24,3 +24,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_unpackw.F b/src/argos/argos_space_unpackw.F index 8f9448f2c9..316e3b6731 100644 --- a/src/argos/argos_space_unpackw.F +++ b/src/argos/argos_space_unpackw.F @@ -24,3 +24,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_upd_i.F b/src/argos/argos_space_upd_i.F index ad956fea23..8199fbe259 100644 --- a/src/argos/argos_space_upd_i.F +++ b/src/argos/argos_space_upd_i.F @@ -36,3 +36,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_update.F b/src/argos/argos_space_update.F index baa5cd7730..2551805f20 100644 --- a/src/argos/argos_space_update.F +++ b/src/argos/argos_space_update.F @@ -35,3 +35,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_update_i.F b/src/argos/argos_space_update_i.F index 143f809523..345b1eccf3 100644 --- a/src/argos/argos_space_update_i.F +++ b/src/argos/argos_space_update_i.F @@ -15,3 +15,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_wrest.F b/src/argos/argos_space_wrest.F index efecf641f6..43c3c55c0b 100644 --- a/src/argos/argos_space_wrest.F +++ b/src/argos/argos_space_wrest.F @@ -55,3 +55,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_wrtbxsz.F b/src/argos/argos_space_wrtbxsz.F index 155e81f45f..ea1e253f02 100644 --- a/src/argos/argos_space_wrtbxsz.F +++ b/src/argos/argos_space_wrtbxsz.F @@ -16,3 +16,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_wrtmro.F b/src/argos/argos_space_wrtmro.F index e26cbb767c..a00e5bc3e7 100644 --- a/src/argos/argos_space_wrtmro.F +++ b/src/argos/argos_space_wrtmro.F @@ -22,3 +22,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_wrtrst.F b/src/argos/argos_space_wrtrst.F index 1edb8c6296..651904a1be 100644 --- a/src/argos/argos_space_wrtrst.F +++ b/src/argos/argos_space_wrtrst.F @@ -58,3 +58,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_wrttrj.F b/src/argos/argos_space_wrttrj.F index 2354d059c1..e1d2a286d0 100644 --- a/src/argos/argos_space_wrttrj.F +++ b/src/argos/argos_space_wrttrj.F @@ -54,3 +54,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_wtmro.F b/src/argos/argos_space_wtmro.F index d6b9caff5d..ac55bc6d2b 100644 --- a/src/argos/argos_space_wtmro.F +++ b/src/argos/argos_space_wtmro.F @@ -78,3 +78,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_wtrest.F b/src/argos/argos_space_wtrest.F index 8276a8b899..45f385db5f 100644 --- a/src/argos/argos_space_wtrest.F +++ b/src/argos/argos_space_wtrest.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_space_wtrst.F b/src/argos/argos_space_wtrst.F index c1c06183fe..1d30a12037 100644 --- a/src/argos/argos_space_wtrst.F +++ b/src/argos/argos_space_wtrst.F @@ -256,3 +256,4 @@ c call md_abort('Failed to open restart file',me) return end +c $Id$ diff --git a/src/argos/argos_space_wttrj.F b/src/argos/argos_space_wttrj.F index 47cc4cab3a..b741699926 100644 --- a/src/argos/argos_space_wttrj.F +++ b/src/argos/argos_space_wttrj.F @@ -323,3 +323,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_spi.F b/src/argos/argos_spi.F index c9b81c7500..358bab418a 100644 --- a/src/argos/argos_spi.F +++ b/src/argos/argos_spi.F @@ -99,3 +99,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_stdesc.F b/src/argos/argos_stdesc.F index c46bf82adf..0e74c475c9 100644 --- a/src/argos/argos_stdesc.F +++ b/src/argos/argos_stdesc.F @@ -280,3 +280,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_test.F b/src/argos/argos_test.F index 71f7184f80..4d336daad9 100644 --- a/src/argos/argos_test.F +++ b/src/argos/argos_test.F @@ -30,3 +30,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_ti.F b/src/argos/argos_ti.F index 5f2a094bba..e88c5258ed 100644 --- a/src/argos/argos_ti.F +++ b/src/argos/argos_ti.F @@ -324,3 +324,4 @@ c call md_abort('Failed to open file mro',0) return end +c $Id$ diff --git a/src/argos/argos_timer_init.F b/src/argos/argos_timer_init.F index 144fddadf8..5a634223ca 100644 --- a/src/argos/argos_timer_init.F +++ b/src/argos/argos_timer_init.F @@ -12,3 +12,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_timing.F b/src/argos/argos_timing.F index b767e5c91d..7dfbc46be8 100644 --- a/src/argos/argos_timing.F +++ b/src/argos/argos_timing.F @@ -28,3 +28,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_wrtime.F b/src/argos/argos_wrtime.F index fc7d7afe34..c3ecc21b97 100644 --- a/src/argos/argos_wrtime.F +++ b/src/argos/argos_wrtime.F @@ -36,3 +36,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_wrtrst.F b/src/argos/argos_wrtrst.F index 46e4ca8849..38070902d2 100644 --- a/src/argos/argos_wrtrst.F +++ b/src/argos/argos_wrtrst.F @@ -74,3 +74,4 @@ c call md_abort('Unable to open restart for writing',me) return end +c $Id$ diff --git a/src/argos/argos_wtrest.F b/src/argos/argos_wtrest.F index 604f17ff2d..909d016a9f 100644 --- a/src/argos/argos_wtrest.F +++ b/src/argos/argos_wtrest.F @@ -52,3 +52,4 @@ c c return end +c $Id$ diff --git a/src/argos/argos_zinit.F b/src/argos/argos_zinit.F index fe13d33dd6..162da689e3 100644 --- a/src/argos/argos_zinit.F +++ b/src/argos/argos_zinit.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/argos/str_replace.F b/src/argos/str_replace.F index ec50486e19..23060a5135 100644 --- a/src/argos/str_replace.F +++ b/src/argos/str_replace.F @@ -10,3 +10,4 @@ str_replace=.true. return end +c $Id$ diff --git a/src/blas/double/izamax.f b/src/blas/double/izamax.f index ec14f827d7..9eead1c841 100644 --- a/src/blas/double/izamax.f +++ b/src/blas/double/izamax.f @@ -39,3 +39,4 @@ c 30 continue return end +c $Id$ diff --git a/src/bq/bq.fh b/src/bq/bq.fh index 4718e47874..e1cd692412 100644 --- a/src/bq/bq.fh +++ b/src/bq/bq.fh @@ -62,3 +62,4 @@ logical bq_get_handle external bq_get_handle +c $Id$ diff --git a/src/cafe/cf_f.F b/src/cafe/cf_f.F index d5ccc66d66..914edf27d3 100644 --- a/src/cafe/cf_f.F +++ b/src/cafe/cf_f.F @@ -1,2 +1,3 @@ #define CAFE_FORCES #include "cf_f.fh" +c $Id$ diff --git a/src/cafe/cf_funcs_dec.fh b/src/cafe/cf_funcs_dec.fh index cab725f09a..3cfa97fd2f 100644 --- a/src/cafe/cf_funcs_dec.fh +++ b/src/cafe/cf_funcs_dec.fh @@ -3,3 +3,4 @@ c $id$ c real*8 erfc,derfc,x c +c $Id$ diff --git a/src/cafe/cf_funcs_sfn.fh b/src/cafe/cf_funcs_sfn.fh index ca0d73e317..3a4da6d1fe 100644 --- a/src/cafe/cf_funcs_sfn.fh +++ b/src/cafe/cf_funcs_sfn.fh @@ -12,3 +12,4 @@ c + x*(9.2705272d-03+x*(1.520143d-04+x*(2.765672d-04+ + x*4.30638d-05))))))**17) c +c $Id$ diff --git a/src/cafe/cf_uhop.F b/src/cafe/cf_uhop.F index c9b93d3afc..1629c85995 100644 --- a/src/cafe/cf_uhop.F +++ b/src/cafe/cf_uhop.F @@ -251,3 +251,4 @@ c c return end +c $Id$ diff --git a/src/cca/include/NWChemWrap.fh b/src/cca/include/NWChemWrap.fh index 2cd9555eb6..5f53b3c6cb 100644 --- a/src/cca/include/NWChemWrap.fh +++ b/src/cca/include/NWChemWrap.fh @@ -18,3 +18,4 @@ void nwchem_taskhessian_(double* hess); } #endif +c $Id$ diff --git a/src/ccca/ccca_utils.F b/src/ccca/ccca_utils.F index fa2a6eb82b..2c45f51936 100644 --- a/src/ccca/ccca_utils.F +++ b/src/ccca/ccca_utils.F @@ -1473,3 +1473,4 @@ c ------ c 20 return end +c $Id$ diff --git a/src/ccca/task_ccca.F b/src/ccca/task_ccca.F index e6e83754dc..b21498ac6b 100644 --- a/src/ccca/task_ccca.F +++ b/src/ccca/task_ccca.F @@ -145,3 +145,4 @@ c nwchem freezes after ccca: print end of run flag return end +c $Id$ diff --git a/src/cckohn/bessel/cckohn_spline.F b/src/cckohn/bessel/cckohn_spline.F index 9f83b80f95..521ed3ba43 100644 --- a/src/cckohn/bessel/cckohn_spline.F +++ b/src/cckohn/bessel/cckohn_spline.F @@ -22,3 +22,4 @@ c 12 continue return end +c $Id$ diff --git a/src/cckohn/bessel/gg.F b/src/cckohn/bessel/gg.F index 3b31539396..29a7b715ce 100644 --- a/src/cckohn/bessel/gg.F +++ b/src/cckohn/bessel/gg.F @@ -23,3 +23,4 @@ c 1 (b*b-1)*cs(iklo+1))*rd26 return end +c $Id$ diff --git a/src/cckohn/bessel/outward.F b/src/cckohn/bessel/outward.F index b801704c5a..135c765f3b 100644 --- a/src/cckohn/bessel/outward.F +++ b/src/cckohn/bessel/outward.F @@ -47,3 +47,4 @@ c write(*,*)"k1,k2,k3",k1,k2,k3 23 continue return end +c $Id$ diff --git a/src/cckohn/bessel/sjymec.F b/src/cckohn/bessel/sjymec.F index 2c1a1ff07d..8d312d5c2d 100644 --- a/src/cckohn/bessel/sjymec.F +++ b/src/cckohn/bessel/sjymec.F @@ -123,3 +123,4 @@ c c return end +c $Id$ diff --git a/src/cckohn/bessel/splinec.F b/src/cckohn/bessel/splinec.F index f9d956eccd..f21fb5dae4 100644 --- a/src/cckohn/bessel/splinec.F +++ b/src/cckohn/bessel/splinec.F @@ -20,3 +20,4 @@ 12 continue return end +c $Id$ diff --git a/src/cckohn/bessel/ubesplg.F b/src/cckohn/bessel/ubesplg.F index fa2c7240d4..0e713b52f7 100644 --- a/src/cckohn/bessel/ubesplg.F +++ b/src/cckohn/bessel/ubesplg.F @@ -190,3 +190,4 @@ c write(8)((csl(i,k),i=1,np),k=0,lmax) write(6,*)' BessplG Finished ' return end +c $Id$ diff --git a/src/cckohn/bessel/zero.F b/src/cckohn/bessel/zero.F index 95a6cb3bdb..930baa8729 100644 --- a/src/cckohn/bessel/zero.F +++ b/src/cckohn/bessel/zero.F @@ -4,3 +4,4 @@ zero=0. return end +c $Id$ diff --git a/src/cckohn/bforthog.F b/src/cckohn/bforthog.F index f22ddc8d83..c3d56e2f10 100644 --- a/src/cckohn/bforthog.F +++ b/src/cckohn/bforthog.F @@ -147,3 +147,4 @@ c101 format(1x,i3,6e12.5,/,(4x,6e12.5)) endif return end +c $Id$ diff --git a/src/cckohn/cckohn.fh b/src/cckohn/cckohn.fh index 8b13789179..7387ff680d 100644 --- a/src/cckohn/cckohn.fh +++ b/src/cckohn/cckohn.fh @@ -1 +1,2 @@ +c $Id$ diff --git a/src/cckohn/cknew.F b/src/cckohn/cknew.F index 7819c6b20b..8d6905e729 100644 --- a/src/cckohn/cknew.F +++ b/src/cckohn/cknew.F @@ -993,3 +993,4 @@ c & BASIS_ERR) return end +c $Id$ diff --git a/src/cckohn/denom.F b/src/cckohn/denom.F index 9578727623..b8c0713cf3 100644 --- a/src/cckohn/denom.F +++ b/src/cckohn/denom.F @@ -236,3 +236,4 @@ c end +c $Id$ diff --git a/src/cckohn/fforth1.F b/src/cckohn/fforth1.F index fbe4e7c9b3..9f749798db 100644 --- a/src/cckohn/fforth1.F +++ b/src/cckohn/fforth1.F @@ -61,3 +61,4 @@ c endif return end +c $Id$ diff --git a/src/cckohn/fforth2.F b/src/cckohn/fforth2.F index fddc499368..b44094878c 100644 --- a/src/cckohn/fforth2.F +++ b/src/cckohn/fforth2.F @@ -140,3 +140,4 @@ c endif return end +c $Id$ diff --git a/src/cckohn/hbftrans.F b/src/cckohn/hbftrans.F index 3aee0f890e..55de4ca40e 100644 --- a/src/cckohn/hbftrans.F +++ b/src/cckohn/hbftrans.F @@ -61,3 +61,4 @@ c endif return end +c $Id$ diff --git a/src/cckohn/obftrans.F b/src/cckohn/obftrans.F index 4045f618c1..e5613063cd 100644 --- a/src/cckohn/obftrans.F +++ b/src/cckohn/obftrans.F @@ -53,3 +53,4 @@ c endif return end +c $Id$ diff --git a/src/cckohn/top.F b/src/cckohn/top.F index e25e4a5a7c..466106b257 100644 --- a/src/cckohn/top.F +++ b/src/cckohn/top.F @@ -134,3 +134,4 @@ c endif return end +c $Id$ diff --git a/src/ccsd/ccsd_tengy_bgp2.F b/src/ccsd/ccsd_tengy_bgp2.F index 76e704f230..9b7616c98b 100644 --- a/src/ccsd/ccsd_tengy_bgp2.F +++ b/src/ccsd/ccsd_tengy_bgp2.F @@ -197,3 +197,4 @@ c! ediv is symmetric => ediv( b,c ) = ediv( c,b ) return end +c $Id$ diff --git a/src/ccsd/f_memset.c b/src/ccsd/f_memset.c index 3c49f7837b..68121c34fe 100644 --- a/src/ccsd/f_memset.c +++ b/src/ccsd/f_memset.c @@ -7,3 +7,4 @@ void f_memzero_(void* address, int* length) return; } +/* $Id$ */ diff --git a/src/chelp/grid/chelp_atom_rad.F b/src/chelp/grid/chelp_atom_rad.F index c57d2aa8d2..ac27ef62ad 100644 --- a/src/chelp/grid/chelp_atom_rad.F +++ b/src/chelp/grid/chelp_atom_rad.F @@ -126,3 +126,4 @@ c end if end function +c $Id$ diff --git a/src/chelp/grid/chelp_grid.F b/src/chelp/grid/chelp_grid.F index ea6176fe75..f4e38c5412 100644 --- a/src/chelp/grid/chelp_grid.F +++ b/src/chelp/grid/chelp_grid.F @@ -284,3 +284,4 @@ c return end +c $Id$ diff --git a/src/chelp/grid/chelp_grid_data.F b/src/chelp/grid/chelp_grid_data.F index 26b7735038..00e0051f53 100644 --- a/src/chelp/grid/chelp_grid_data.F +++ b/src/chelp/grid/chelp_grid_data.F @@ -45,3 +45,4 @@ c return end +c $Id$ diff --git a/src/chelp/task_chelp.F b/src/chelp/task_chelp.F index 96d06598de..3e3264fe0f 100644 --- a/src/chelp/task_chelp.F +++ b/src/chelp/task_chelp.F @@ -13,3 +13,4 @@ c ----------- return end +c $Id$ diff --git a/src/cons/cons.F b/src/cons/cons.F index 3e27b0c1fc..c5bd39a03e 100644 --- a/src/cons/cons.F +++ b/src/cons/cons.F @@ -806,3 +806,4 @@ c return end c +c $Id$ diff --git a/src/cons/cons.fh b/src/cons/cons.fh index cdaeee125c..37c4a325f4 100644 --- a/src/cons/cons.fh +++ b/src/cons/cons.fh @@ -62,3 +62,4 @@ external cons_get_i_hdihed_r +c $Id$ diff --git a/src/cons/cons_springs.F b/src/cons/cons_springs.F index 62bdc64808..78bb41506b 100644 --- a/src/cons/cons_springs.F +++ b/src/cons/cons_springs.F @@ -658,3 +658,4 @@ c call cons_set_hdihed_n(0) end if end +c $Id$ diff --git a/src/dangchang/dc_energy.F b/src/dangchang/dc_energy.F index 51b26078fb..e700ecc66c 100644 --- a/src/dangchang/dc_energy.F +++ b/src/dangchang/dc_energy.F @@ -554,3 +554,4 @@ C23456789012345678901234567890123456789012345678901234567890123456789012 C*********************************************************************** C End of SUBROUTINE DC_DIPOLEMOM(MX,MY,MZ,DCDIP) C*********************************************************************** +c $Id$ diff --git a/src/dangchang/dc_initialize.F b/src/dangchang/dc_initialize.F index f9f19e9009..6c48574555 100644 --- a/src/dangchang/dc_initialize.F +++ b/src/dangchang/dc_initialize.F @@ -137,3 +137,4 @@ C R(2,4,3) = 0.73380992084296937 C INITIAL UU = -0.14686911198510338 kcal/mole END +c $Id$ diff --git a/src/dangchang/dc_setgeom.F b/src/dangchang/dc_setgeom.F index 7fdfa87c73..14169e5405 100644 --- a/src/dangchang/dc_setgeom.F +++ b/src/dangchang/dc_setgeom.F @@ -251,3 +251,4 @@ C write(6,*) 'atn is ',atn END DO END !SUBROUTINE TAGCHECK +c $Id$ diff --git a/src/ddscf/ga_get2eri.F b/src/ddscf/ga_get2eri.F index c7b70339fa..f970ad89ea 100644 --- a/src/ddscf/ga_get2eri.F +++ b/src/ddscf/ga_get2eri.F @@ -231,3 +231,4 @@ c enddo return end +c $Id$ diff --git a/src/ddscf/print_1eints.F b/src/ddscf/print_1eints.F index 3cf7e11d53..9da71ac667 100644 --- a/src/ddscf/print_1eints.F +++ b/src/ddscf/print_1eints.F @@ -598,3 +598,4 @@ c end +c $Id$ diff --git a/src/ddscf/rohf_scat.F b/src/ddscf/rohf_scat.F index 3fc1c0d343..9703a88d38 100644 --- a/src/ddscf/rohf_scat.F +++ b/src/ddscf/rohf_scat.F @@ -654,3 +654,4 @@ c +c $Id$ diff --git a/src/ddscf/uhf_jkfac.F b/src/ddscf/uhf_jkfac.F index b3d93aca66..b4539bc249 100644 --- a/src/ddscf/uhf_jkfac.F +++ b/src/ddscf/uhf_jkfac.F @@ -14,3 +14,4 @@ c c return end +c $Id$ diff --git a/src/develop/cuccsdtP.fh b/src/develop/cuccsdtP.fh index 9c3705d7f1..18822aa2c4 100644 --- a/src/develop/cuccsdtP.fh +++ b/src/develop/cuccsdtP.fh @@ -88,3 +88,4 @@ c T(no_sym(msym,spin1),dim(kblock),dim(ablock),dim(bblock)) c +c $Id$ diff --git a/src/develop/jantest.F b/src/develop/jantest.F index bb580df45d..37ec536258 100644 --- a/src/develop/jantest.F +++ b/src/develop/jantest.F @@ -2742,3 +2742,4 @@ c return end +c $Id$ diff --git a/src/diana/dia_chgdst.F b/src/diana/dia_chgdst.F index fa1e2f81d1..7d4c50d99d 100644 --- a/src/diana/dia_chgdst.F +++ b/src/diana/dia_chgdst.F @@ -37,3 +37,4 @@ c c return end +c $Id$ diff --git a/src/diana/dia_esppt.F b/src/diana/dia_esppt.F index c4c38857eb..2b97937be1 100644 --- a/src/diana/dia_esppt.F +++ b/src/diana/dia_esppt.F @@ -152,3 +152,4 @@ c write(*,'(a)') 'Error reading pdb file ',filpdb return end +c $Id$ diff --git a/src/diana/dia_index.F b/src/diana/dia_index.F index 8598a21860..e585b78f16 100644 --- a/src/diana/dia_index.F +++ b/src/diana/dia_index.F @@ -79,3 +79,4 @@ c c return end +c $Id$ diff --git a/src/diana/dia_rdtop.F b/src/diana/dia_rdtop.F index f9cbd11ccf..daee9693b3 100644 --- a/src/diana/dia_rdtop.F +++ b/src/diana/dia_rdtop.F @@ -295,3 +295,4 @@ c c return end +c $Id$ diff --git a/src/dplot/ao_rdm_read.F b/src/dplot/ao_rdm_read.F index cc2d7bce4a..d0482c3f41 100644 --- a/src/dplot/ao_rdm_read.F +++ b/src/dplot/ao_rdm_read.F @@ -139,3 +139,4 @@ c goto 10 c end +c $Id$ diff --git a/src/dplot/dplot_defgrid.F b/src/dplot/dplot_defgrid.F index 1fa7a0c3f4..cff183bba2 100644 --- a/src/dplot/dplot_defgrid.F +++ b/src/dplot/dplot_defgrid.F @@ -47,3 +47,4 @@ c End Do return end +c $Id$ diff --git a/src/dplot/dplot_dump.F b/src/dplot/dplot_dump.F index ced610bed9..84cad498f9 100644 --- a/src/dplot/dplot_dump.F +++ b/src/dplot/dplot_dump.F @@ -110,3 +110,4 @@ c End If return end +c $Id$ diff --git a/src/drdy/rsp.F b/src/drdy/rsp.F index 4ce089b561..51811895c8 100644 --- a/src/drdy/rsp.F +++ b/src/drdy/rsp.F @@ -568,3 +568,4 @@ C RETURN C ********** LAST CARD OF TRED3 ********** END +c $Id$ diff --git a/src/driver/lbfgs.F b/src/driver/lbfgs.F index 4acd28d9e3..f38c0ca46e 100644 --- a/src/driver/lbfgs.F +++ b/src/driver/lbfgs.F @@ -1072,3 +1072,4 @@ C LAST LINE OF SUBROUTINE MCSTEP. C END +c $Id$ diff --git a/src/driver/lbfgs_driver.F b/src/driver/lbfgs_driver.F index a4148cb56a..9df0f08ffd 100644 --- a/src/driver/lbfgs_driver.F +++ b/src/driver/lbfgs_driver.F @@ -146,3 +146,4 @@ c stp1=1.0 c c ** last line of simple driver (sdrive) ** +c $Id$ diff --git a/src/etrans/et_dens_prod.F b/src/etrans/et_dens_prod.F index 13968626b8..6f5256faa2 100644 --- a/src/etrans/et_dens_prod.F +++ b/src/etrans/et_dens_prod.F @@ -139,3 +139,4 @@ c end +c $Id$ diff --git a/src/etrans/et_fock.F b/src/etrans/et_fock.F index 28e0b77d98..78e6cf9f5d 100644 --- a/src/etrans/et_fock.F +++ b/src/etrans/et_fock.F @@ -224,3 +224,4 @@ c end +c $Id$ diff --git a/src/etrans/et_movecs_read.F b/src/etrans/et_movecs_read.F index 2158a89583..6b826721fd 100644 --- a/src/etrans/et_movecs_read.F +++ b/src/etrans/et_movecs_read.F @@ -135,3 +135,4 @@ c goto 10 c end +c $Id$ diff --git a/src/etrans/et_omega2_mult.F b/src/etrans/et_omega2_mult.F index c16d19e2b9..3fa8023fc2 100644 --- a/src/etrans/et_omega2_mult.F +++ b/src/etrans/et_omega2_mult.F @@ -62,3 +62,4 @@ c end +c $Id$ diff --git a/src/hessian/analytic/hess_energyinit.F b/src/hessian/analytic/hess_energyinit.F index ec1a2d7d1d..2d0ab7c654 100644 --- a/src/hessian/analytic/hess_energyinit.F +++ b/src/hessian/analytic/hess_energyinit.F @@ -168,3 +168,4 @@ c c return end +c $Id$ diff --git a/src/hessian/analytic/print_dens_bit.F b/src/hessian/analytic/print_dens_bit.F index 984a40da59..6169fa902d 100644 --- a/src/hessian/analytic/print_dens_bit.F +++ b/src/hessian/analytic/print_dens_bit.F @@ -19,3 +19,4 @@ c c return end +c $Id$ diff --git a/src/hessian/analytic/shell_fock_build_cam.F b/src/hessian/analytic/shell_fock_build_cam.F index 465015e3a5..6010d558a6 100644 --- a/src/hessian/analytic/shell_fock_build_cam.F +++ b/src/hessian/analytic/shell_fock_build_cam.F @@ -1,6 +1,6 @@ c#define NBACC 1 c -c $Id: shell_fock_build.F,v 1.39 2008-12-30 22:16:41 bert Exp $ +c $Id$ c subroutine shell_fock_build_cam(geom,basis, nder, ndens, $ jfac, kfac, tol2e, g_dens, g_fock, osym) diff --git a/src/hessian/analytic/shell_fock_build_cam_multiple.F b/src/hessian/analytic/shell_fock_build_cam_multiple.F index 57bb14cd11..da0645c560 100644 --- a/src/hessian/analytic/shell_fock_build_cam_multiple.F +++ b/src/hessian/analytic/shell_fock_build_cam_multiple.F @@ -160,3 +160,4 @@ c == deallocate == c return end +c $Id$ diff --git a/src/hessian/analytic/shell_fock_build_cam_single.F b/src/hessian/analytic/shell_fock_build_cam_single.F index 1b19c421f0..9ad6fe0da8 100644 --- a/src/hessian/analytic/shell_fock_build_cam_single.F +++ b/src/hessian/analytic/shell_fock_build_cam_single.F @@ -124,3 +124,4 @@ c c return end +c $Id$ diff --git a/src/hessian/analytic/shell_fock_buildjk.F b/src/hessian/analytic/shell_fock_buildjk.F index 83419c33f4..fa88b305b7 100644 --- a/src/hessian/analytic/shell_fock_buildjk.F +++ b/src/hessian/analytic/shell_fock_buildjk.F @@ -214,3 +214,4 @@ c c return end +c $Id$ diff --git a/src/hessian/analytic/shell_fock_buildxc.F b/src/hessian/analytic/shell_fock_buildxc.F index 5d7b4e169c..d8d90be85d 100644 --- a/src/hessian/analytic/shell_fock_buildxc.F +++ b/src/hessian/analytic/shell_fock_buildxc.F @@ -53,3 +53,4 @@ c c return end +c $Id$ diff --git a/src/inp/inp.fh b/src/inp/inp.fh index ae7aa1c0da..ee398a4103 100644 --- a/src/inp/inp.fh +++ b/src/inp/inp.fh @@ -9,3 +9,4 @@ $ inp_line, inp_eof, inp_a_trunc, inp_irange, inp_ilist, $ inp_strtok, inp_read_physical_line, inp_contains, $ inp_ilist_size +c $Id$ diff --git a/src/input/mem_what.fh b/src/input/mem_what.fh index 70b25e8362..4f5655cbf9 100644 --- a/src/input/mem_what.fh +++ b/src/input/mem_what.fh @@ -7,3 +7,4 @@ c parameter(MEM_STACK = -32002) parameter(MEM_GLOBAL = -32003) c +c $Id$ diff --git a/src/lapack/double/dgels.F b/src/lapack/double/dgels.F index a7d6519fa8..a07b7db2b9 100644 --- a/src/lapack/double/dgels.F +++ b/src/lapack/double/dgels.F @@ -401,3 +401,4 @@ * End of DGELS * END +c $Id$ diff --git a/src/lapack/double/dlaebz.f b/src/lapack/double/dlaebz.f index c2c06c66e3..75eb699085 100644 --- a/src/lapack/double/dlaebz.f +++ b/src/lapack/double/dlaebz.f @@ -550,3 +550,4 @@ CIBM PREFER SCALAR * End of DLAEBZ * END +c $Id$ diff --git a/src/lapack/double/dlaed0.f b/src/lapack/double/dlaed0.f index 6259d61d35..e786447431 100644 --- a/src/lapack/double/dlaed0.f +++ b/src/lapack/double/dlaed0.f @@ -348,3 +348,4 @@ * End of DLAED0 * END +c $Id$ diff --git a/src/lapack/double/dlaed1.f b/src/lapack/double/dlaed1.f index 674ee80c54..3710a109c0 100644 --- a/src/lapack/double/dlaed1.f +++ b/src/lapack/double/dlaed1.f @@ -194,3 +194,4 @@ * End of DLAED1 * END +c $Id$ diff --git a/src/lapack/double/dlaed2.f b/src/lapack/double/dlaed2.f index 17e13505ec..f593d99e6d 100644 --- a/src/lapack/double/dlaed2.f +++ b/src/lapack/double/dlaed2.f @@ -433,3 +433,4 @@ * End of DLAED2 * END +c $Id$ diff --git a/src/lapack/double/dlaed3.f b/src/lapack/double/dlaed3.f index 5f14ab958c..c25ef6c042 100644 --- a/src/lapack/double/dlaed3.f +++ b/src/lapack/double/dlaed3.f @@ -263,3 +263,4 @@ * End of DLAED3 * END +c $Id$ diff --git a/src/lapack/double/dlaed4.f b/src/lapack/double/dlaed4.f index b82cb11463..a7e461afb7 100644 --- a/src/lapack/double/dlaed4.f +++ b/src/lapack/double/dlaed4.f @@ -844,3 +844,4 @@ * End of DLAED4 * END +c $Id$ diff --git a/src/lapack/double/dlaed5.f b/src/lapack/double/dlaed5.f index 8b8f9447ba..b766aa574b 100644 --- a/src/lapack/double/dlaed5.f +++ b/src/lapack/double/dlaed5.f @@ -123,3 +123,4 @@ * End OF DLAED5 * END +c $Id$ diff --git a/src/lapack/double/dlaed6.f b/src/lapack/double/dlaed6.f index 8beb171a26..3d74e48b09 100644 --- a/src/lapack/double/dlaed6.f +++ b/src/lapack/double/dlaed6.f @@ -297,3 +297,4 @@ * End of DLAED6 * END +c $Id$ diff --git a/src/lapack/double/dlaed7.f b/src/lapack/double/dlaed7.f index cfa84b6098..a12dacf73e 100644 --- a/src/lapack/double/dlaed7.f +++ b/src/lapack/double/dlaed7.f @@ -286,3 +286,4 @@ * End of DLAED7 * END +c $Id$ diff --git a/src/lapack/double/dlaed8.f b/src/lapack/double/dlaed8.f index 58404b8f54..0fed1ebb84 100644 --- a/src/lapack/double/dlaed8.f +++ b/src/lapack/double/dlaed8.f @@ -398,3 +398,4 @@ * End of DLAED8 * END +c $Id$ diff --git a/src/lapack/double/dlaed9.f b/src/lapack/double/dlaed9.f index e18630f332..d6fe0aace9 100644 --- a/src/lapack/double/dlaed9.f +++ b/src/lapack/double/dlaed9.f @@ -204,3 +204,4 @@ * End of DLAED9 * END +c $Id$ diff --git a/src/lapack/double/dlaeda.f b/src/lapack/double/dlaeda.f index 96bcbb8678..b9e97f2d86 100644 --- a/src/lapack/double/dlaeda.f +++ b/src/lapack/double/dlaeda.f @@ -216,3 +216,4 @@ * End of DLAEDA * END +c $Id$ diff --git a/src/lapack/double/dlamrg.f b/src/lapack/double/dlamrg.f index ac52dd4bea..e78ddcd39a 100644 --- a/src/lapack/double/dlamrg.f +++ b/src/lapack/double/dlamrg.f @@ -102,3 +102,4 @@ * End of DLAMRG * END +c $Id$ diff --git a/src/lapack/double/dstedc.f b/src/lapack/double/dstedc.f index e83f640ad6..067d2c5416 100644 --- a/src/lapack/double/dstedc.f +++ b/src/lapack/double/dstedc.f @@ -395,3 +395,4 @@ * End of DSTEDC * END +c $Id$ diff --git a/src/lapack/double/dtrtrs.f b/src/lapack/double/dtrtrs.f index c1b4c5c4c5..b451c9eee9 100644 --- a/src/lapack/double/dtrtrs.f +++ b/src/lapack/double/dtrtrs.f @@ -146,3 +146,4 @@ * End of DTRTRS * END +c $Id$ diff --git a/src/lapack/single/slaebz.f b/src/lapack/single/slaebz.f index 3617e93858..9ef839b390 100644 --- a/src/lapack/single/slaebz.f +++ b/src/lapack/single/slaebz.f @@ -550,3 +550,4 @@ CIBM PREFER SCALAR * End of SLAEBZ * END +c $Id$ diff --git a/src/lapack/single/slaed0.f b/src/lapack/single/slaed0.f index 8fc44a5102..283f2f0fba 100644 --- a/src/lapack/single/slaed0.f +++ b/src/lapack/single/slaed0.f @@ -348,3 +348,4 @@ * End of SLAED0 * END +c $Id$ diff --git a/src/lapack/single/slaed1.f b/src/lapack/single/slaed1.f index b1f8254599..7c8b0ee6bd 100644 --- a/src/lapack/single/slaed1.f +++ b/src/lapack/single/slaed1.f @@ -194,3 +194,4 @@ * End of SLAED1 * END +c $Id$ diff --git a/src/lapack/single/slaed2.f b/src/lapack/single/slaed2.f index c31de35409..419f194f2f 100644 --- a/src/lapack/single/slaed2.f +++ b/src/lapack/single/slaed2.f @@ -433,3 +433,4 @@ * End of SLAED2 * END +c $Id$ diff --git a/src/lapack/single/slaed3.f b/src/lapack/single/slaed3.f index 011f1a6444..c5243cc523 100644 --- a/src/lapack/single/slaed3.f +++ b/src/lapack/single/slaed3.f @@ -263,3 +263,4 @@ * End of SLAED3 * END +c $Id$ diff --git a/src/lapack/single/slaed4.f b/src/lapack/single/slaed4.f index d091585e23..f74544c503 100644 --- a/src/lapack/single/slaed4.f +++ b/src/lapack/single/slaed4.f @@ -844,3 +844,4 @@ * End of SLAED4 * END +c $Id$ diff --git a/src/lapack/single/slaed5.f b/src/lapack/single/slaed5.f index b929341323..842b896b6e 100644 --- a/src/lapack/single/slaed5.f +++ b/src/lapack/single/slaed5.f @@ -123,3 +123,4 @@ * End OF SLAED5 * END +c $Id$ diff --git a/src/lapack/single/slaed6.f b/src/lapack/single/slaed6.f index d3ec924501..3f12a121ab 100644 --- a/src/lapack/single/slaed6.f +++ b/src/lapack/single/slaed6.f @@ -297,3 +297,4 @@ * End of SLAED6 * END +c $Id$ diff --git a/src/lapack/single/slaed7.f b/src/lapack/single/slaed7.f index 5678348f1b..715fc55a57 100644 --- a/src/lapack/single/slaed7.f +++ b/src/lapack/single/slaed7.f @@ -286,3 +286,4 @@ * End of SLAED7 * END +c $Id$ diff --git a/src/lapack/single/slaed8.f b/src/lapack/single/slaed8.f index 05571eb058..1cbdb066e4 100644 --- a/src/lapack/single/slaed8.f +++ b/src/lapack/single/slaed8.f @@ -398,3 +398,4 @@ * End of SLAED8 * END +c $Id$ diff --git a/src/lapack/single/slaed9.f b/src/lapack/single/slaed9.f index cdac9dc00a..d69c96f7b7 100644 --- a/src/lapack/single/slaed9.f +++ b/src/lapack/single/slaed9.f @@ -204,3 +204,4 @@ * End of SLAED9 * END +c $Id$ diff --git a/src/lapack/single/slaeda.f b/src/lapack/single/slaeda.f index 33933ff825..67a52ad79b 100644 --- a/src/lapack/single/slaeda.f +++ b/src/lapack/single/slaeda.f @@ -216,3 +216,4 @@ * End of SLAEDA * END +c $Id$ diff --git a/src/lapack/single/slamrg.f b/src/lapack/single/slamrg.f index 402189a113..d1114e78de 100644 --- a/src/lapack/single/slamrg.f +++ b/src/lapack/single/slamrg.f @@ -102,3 +102,4 @@ * End of SLAMRG * END +c $Id$ diff --git a/src/lapack/single/slasq6.f b/src/lapack/single/slasq6.f index 251adb5eed..4038ec025f 100644 --- a/src/lapack/single/slasq6.f +++ b/src/lapack/single/slasq6.f @@ -1118,3 +1118,4 @@ * End of LSAME * END +c $Id$ diff --git a/src/lapack/single/sposv.f b/src/lapack/single/sposv.f index cd06e2f296..13e21a1ca2 100644 --- a/src/lapack/single/sposv.f +++ b/src/lapack/single/sposv.f @@ -120,3 +120,4 @@ * End of SPOSV * END +c $Id$ diff --git a/src/lapack/single/spotrs.f b/src/lapack/single/spotrs.f index 4c1fc3665d..4536542b29 100644 --- a/src/lapack/single/spotrs.f +++ b/src/lapack/single/spotrs.f @@ -131,3 +131,4 @@ * End of SPOTRS * END +c $Id$ diff --git a/src/lapack/single/sstedc.f b/src/lapack/single/sstedc.f index 5d60e9da17..6bff5fc1cc 100644 --- a/src/lapack/single/sstedc.f +++ b/src/lapack/single/sstedc.f @@ -395,3 +395,4 @@ * End of SSTEDC * END +c $Id$ diff --git a/src/lapack/single/strtrs.f b/src/lapack/single/strtrs.f index 9be345ccfb..2edce4ce06 100644 --- a/src/lapack/single/strtrs.f +++ b/src/lapack/single/strtrs.f @@ -146,3 +146,4 @@ * End of STRTRS * END +c $Id$ diff --git a/src/leps/const_data.fh b/src/leps/const_data.fh index b81ceb3a28..3dc3555247 100644 --- a/src/leps/const_data.fh +++ b/src/leps/const_data.fh @@ -8,3 +8,4 @@ parameter(sqrpi = 1.772453850905516d0) parameter(JToHartree = 2.2937128d+17) parameter(tolg =1.0D-08) +c $Id$ diff --git a/src/leps/crossing.F b/src/leps/crossing.F index ae878881b8..8db265ef2c 100644 --- a/src/leps/crossing.F +++ b/src/leps/crossing.F @@ -177,3 +177,4 @@ c 7 continue 9000 format(A,3(L4),4(I4)) return end +c $Id$ diff --git a/src/leps/gasdev.F b/src/leps/gasdev.F index ecc3111877..43eb02f23a 100644 --- a/src/leps/gasdev.F +++ b/src/leps/gasdev.F @@ -72,3 +72,4 @@ c END ccccccc +c $Id$ diff --git a/src/leps/leps_energy.F b/src/leps/leps_energy.F index 631284c6e2..902fcc1adf 100644 --- a/src/leps/leps_energy.F +++ b/src/leps/leps_energy.F @@ -264,3 +264,4 @@ c leps_energy1=eleps return END +c $Id$ diff --git a/src/leps/leps_gradient.F b/src/leps/leps_gradient.F index 87032f4624..994e702b4e 100644 --- a/src/leps/leps_gradient.F +++ b/src/leps/leps_gradient.F @@ -353,3 +353,4 @@ c write (*,*) 'test - grad', 0.0+0.0+0.0 return end +c $Id$ diff --git a/src/leps/mc_data.F b/src/leps/mc_data.F index 5d8d3cdccb..7d05e02914 100644 --- a/src/leps/mc_data.F +++ b/src/leps/mc_data.F @@ -663,3 +663,4 @@ c write(*,*) 'In mc_data_allocatte: i_sc: ',i_sc & call errquit('memory deallocation:in_acc',0,RTDB_ERR) end +c $Id$ diff --git a/src/leps/mc_driver.F b/src/leps/mc_driver.F index 0ac1401d3b..e50ab6b940 100644 --- a/src/leps/mc_driver.F +++ b/src/leps/mc_driver.F @@ -336,3 +336,4 @@ c endif END +c $Id$ diff --git a/src/leps/mc_init.F b/src/leps/mc_init.F index 8d2e687b8c..11fc5ce382 100644 --- a/src/leps/mc_init.F +++ b/src/leps/mc_init.F @@ -294,3 +294,4 @@ C ---- end of setting end C_CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +c $Id$ diff --git a/src/leps/mc_main.F b/src/leps/mc_main.F index 55d9d253b8..9dfa5bd720 100644 --- a/src/leps/mc_main.F +++ b/src/leps/mc_main.F @@ -890,3 +890,4 @@ C ******** End reading restart file ********** end +c $Id$ diff --git a/src/leps/md_data.F b/src/leps/md_data.F index 9dbe72e4db..c6e61b7c29 100644 --- a/src/leps/md_data.F +++ b/src/leps/md_data.F @@ -316,3 +316,4 @@ C load geometry into the geom object from database md_data_set_temp=.true. end +c $Id$ diff --git a/src/leps/md_driver.F b/src/leps/md_driver.F index 437c1bbcfb..f35d56eb50 100644 --- a/src/leps/md_driver.F +++ b/src/leps/md_driver.F @@ -634,3 +634,4 @@ c write (*,*) 'Long string : ', str read(12,*) n,nsteps,step,dt,mass,c,v,a,b,d,t end +c $Id$ diff --git a/src/leps/md_set.F b/src/leps/md_set.F index 3da34f7863..cc3368b570 100644 --- a/src/leps/md_set.F +++ b/src/leps/md_set.F @@ -79,3 +79,4 @@ c write(*,*) 'OUt of MD_set' +c $Id$ diff --git a/src/leps/mymc_input.F b/src/leps/mymc_input.F index 12ebff027d..13a257c9e4 100644 --- a/src/leps/mymc_input.F +++ b/src/leps/mymc_input.F @@ -123,3 +123,4 @@ c write(*,*) 'End of mymc_input.' end +c $Id$ diff --git a/src/leps/mymd_input.F b/src/leps/mymd_input.F index f01ba87cd0..2ae6181a4d 100644 --- a/src/leps/mymd_input.F +++ b/src/leps/mymd_input.F @@ -72,3 +72,4 @@ c ---------------- endif c write(*,*) 'End of mymd_input.' end +c $Id$ diff --git a/src/leps/pred-corr.F b/src/leps/pred-corr.F index 292f62cbb1..c46433c113 100644 --- a/src/leps/pred-corr.F +++ b/src/leps/pred-corr.F @@ -155,3 +155,4 @@ c ******************************************************************* +c $Id$ diff --git a/src/leps/subgr.fh b/src/leps/subgr.fh index 1faa551a1b..c326b88f2f 100644 --- a/src/leps/subgr.fh +++ b/src/leps/subgr.fh @@ -4,3 +4,4 @@ external util_sgroup_mygroup external util_sgroup_zero_group +c $Id$ diff --git a/src/leps/urand.F b/src/leps/urand.F index 9215f3d53a..a6220bbdc9 100644 --- a/src/leps/urand.F +++ b/src/leps/urand.F @@ -135,3 +135,4 @@ c return END +c $Id$ diff --git a/src/moints/sifs1.F b/src/moints/sifs1.F index f10d9484a4..4d1e2a5364 100644 --- a/src/moints/sifs1.F +++ b/src/moints/sifs1.F @@ -3341,3 +3341,4 @@ c *mdc*endif return end +c $Id$ diff --git a/src/ncc/ncc_util.F b/src/ncc/ncc_util.F index 623c5c2240..c203a1ad6c 100644 --- a/src/ncc/ncc_util.F +++ b/src/ncc/ncc_util.F @@ -122,3 +122,4 @@ c enddo enddo end +c $Id$ diff --git a/src/nwdft/coulomb/dft_get2eri.F b/src/nwdft/coulomb/dft_get2eri.F index fc8d2cb19f..c1eb846576 100644 --- a/src/nwdft/coulomb/dft_get2eri.F +++ b/src/nwdft/coulomb/dft_get2eri.F @@ -11,3 +11,4 @@ c c return end +c $Id$ diff --git a/src/nwdft/grid/grid_cube.fh b/src/nwdft/grid/grid_cube.fh index 4bf680d8ad..2944e8a827 100644 --- a/src/nwdft/grid/grid_cube.fh +++ b/src/nwdft/grid/grid_cube.fh @@ -2,3 +2,4 @@ integer shft,nsub4 logical sub4 common /grspher/ shft,sub4,l_cube,nsub4 +c $Id$ diff --git a/src/nwdft/grid/grid_finpts.F b/src/nwdft/grid/grid_finpts.F index 9cd3c830be..569eb86ee9 100644 --- a/src/nwdft/grid/grid_finpts.F +++ b/src/nwdft/grid/grid_finpts.F @@ -59,3 +59,4 @@ c return end +c $Id$ diff --git a/src/nwdft/grid/grid_init.F b/src/nwdft/grid/grid_init.F index 638209c5fa..b446a7094e 100644 --- a/src/nwdft/grid/grid_init.F +++ b/src/nwdft/grid/grid_init.F @@ -60,3 +60,4 @@ c dosympts=dosympts.and.leb return end +c $Id$ diff --git a/src/nwdft/grid/grid_quad.fh b/src/nwdft/grid/grid_quad.fh index 97effc75be..8ac42ffacb 100644 --- a/src/nwdft/grid/grid_quad.fh +++ b/src/nwdft/grid/grid_quad.fh @@ -45,3 +45,4 @@ c integer nmat ! [in] logical do_scf, do_cpks_l, do_cpks_r, do_nmrks_r double precision tmat(*) +c $Id$ diff --git a/src/nwdft/grid/grid_sic.fh b/src/nwdft/grid/grid_sic.fh index 3685bbbaae..b72559d368 100644 --- a/src/nwdft/grid/grid_sic.fh +++ b/src/nwdft/grid/grid_sic.fh @@ -5,3 +5,4 @@ c integer i_vect1, l_vect1, ldelrho_sig, idelrho_sig c cc Jorge Garza/End +c $Id$ diff --git a/src/nwdft/grid/grid_ylm.F b/src/nwdft/grid/grid_ylm.F index 9b54339b2b..c17ba1aefe 100644 --- a/src/nwdft/grid/grid_ylm.F +++ b/src/nwdft/grid/grid_ylm.F @@ -279,3 +279,4 @@ c return end +c $Id$ diff --git a/src/nwdft/include/steric.fh b/src/nwdft/include/steric.fh index 1ae2fa3fa5..b9a004ce3a 100644 --- a/src/nwdft/include/steric.fh +++ b/src/nwdft/include/steric.fh @@ -3,3 +3,4 @@ c Steric energy quantities and flags c logical lsteric common/steric/lsteric +c $Id$ diff --git a/src/nwdft/input_dft/occup_input.F b/src/nwdft/input_dft/occup_input.F index 56333b8e61..c8fcddf9b3 100644 --- a/src/nwdft/input_dft/occup_input.F +++ b/src/nwdft/input_dft/occup_input.F @@ -1,5 +1,5 @@ subroutine occup_input(rtdb) -C $Id: occ_input.F 2011-02-01 FA $ +C $Id$ C Adapted from geom_input c Occupations format: c occupations [nfocc_in] diff --git a/src/nwdft/lr_tddft/tddft_bdtensor.F b/src/nwdft/lr_tddft/tddft_bdtensor.F index a76ee6eba6..97a0be7797 100644 --- a/src/nwdft/lr_tddft/tddft_bdtensor.F +++ b/src/nwdft/lr_tddft/tddft_bdtensor.F @@ -387,3 +387,4 @@ c step 5: calculate the Graham-Raab formula c ================================================================= end +c $Id$ diff --git a/src/nwdft/scf_dft/dft_dump_info.F b/src/nwdft/scf_dft/dft_dump_info.F index 9f65937f43..3e99fb655c 100644 --- a/src/nwdft/scf_dft/dft_dump_info.F +++ b/src/nwdft/scf_dft/dft_dump_info.F @@ -112,3 +112,4 @@ c c return end +c $Id$ diff --git a/src/nwdft/scf_dft/dft_fant.F b/src/nwdft/scf_dft/dft_fant.F index f3fc0344df..97f50fd42e 100644 --- a/src/nwdft/scf_dft/dft_fant.F +++ b/src/nwdft/scf_dft/dft_fant.F @@ -50,3 +50,4 @@ c c return end +c $Id$ diff --git a/src/nwdft/scf_dft/dft_fdist_init.F b/src/nwdft/scf_dft/dft_fdist_init.F index d1a3f3b57f..d96be4b873 100644 --- a/src/nwdft/scf_dft/dft_fdist_init.F +++ b/src/nwdft/scf_dft/dft_fdist_init.F @@ -30,3 +30,4 @@ c xcrhogen monitor_rhocomp2 = getdist( 'comp rhogen mult2') c end +c $Id$ diff --git a/src/nwdft/scf_dft/dft_pstat.F b/src/nwdft/scf_dft/dft_pstat.F index 1bf4308507..d029449cf0 100644 --- a/src/nwdft/scf_dft/dft_pstat.F +++ b/src/nwdft/scf_dft/dft_pstat.F @@ -108,3 +108,4 @@ c endif c end +c $Id$ diff --git a/src/nwdft/scf_dft/dft_scaleMO.F b/src/nwdft/scf_dft/dft_scaleMO.F index 29c217763c..bcf8f28173 100644 --- a/src/nwdft/scf_dft/dft_scaleMO.F +++ b/src/nwdft/scf_dft/dft_scaleMO.F @@ -211,3 +211,4 @@ c ----- Free memory endif ! --- END-fracc-occ-routine return end +c $Id$ diff --git a/src/nwdft/scf_dft/dft_scfutil.F b/src/nwdft/scf_dft/dft_scfutil.F index 81a85766f5..f3c888d4d3 100644 --- a/src/nwdft/scf_dft/dft_scfutil.F +++ b/src/nwdft/scf_dft/dft_scfutil.F @@ -123,3 +123,4 @@ c c return end +c $Id$ diff --git a/src/nwdft/scf_dft_cg/GNUmakefile b/src/nwdft/scf_dft_cg/GNUmakefile index 2bd2f5b238..5f6267a584 100644 --- a/src/nwdft/scf_dft_cg/GNUmakefile +++ b/src/nwdft/scf_dft_cg/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.34 2006-06-07 15:57:32 edo Exp $ +#$Id$ LIBRARY = libnwdft.a diff --git a/src/nwdft/scf_dft_cg/dft_cg_answer.F b/src/nwdft/scf_dft_cg/dft_cg_answer.F index bb76f81dae..dcae2f4fd5 100644 --- a/src/nwdft/scf_dft_cg/dft_cg_answer.F +++ b/src/nwdft/scf_dft_cg/dft_cg_answer.F @@ -51,3 +51,4 @@ c & call errquit('dft_scf: movec_write failed', 0, DISK_ERR) c end +c $Id$ diff --git a/src/nwdft/scf_dft_cg/dft_cg_guess.F b/src/nwdft/scf_dft_cg/dft_cg_guess.F index 88215e5b60..4d4a5c248b 100644 --- a/src/nwdft/scf_dft_cg/dft_cg_guess.F +++ b/src/nwdft/scf_dft_cg/dft_cg_guess.F @@ -28,3 +28,4 @@ c endif c end +c $Id$ diff --git a/src/nwdft/scf_dft_cg/dft_cg_info.F b/src/nwdft/scf_dft_cg/dft_cg_info.F index 26fc83078f..1b0529c083 100644 --- a/src/nwdft/scf_dft_cg/dft_cg_info.F +++ b/src/nwdft/scf_dft_cg/dft_cg_info.F @@ -382,3 +382,4 @@ c endif c end +c $Id$ diff --git a/src/nwdft/scf_dft_cg/dft_cg_solve.F b/src/nwdft/scf_dft_cg/dft_cg_solve.F index e36d36c55e..5b694a2e70 100644 --- a/src/nwdft/scf_dft_cg/dft_cg_solve.F +++ b/src/nwdft/scf_dft_cg/dft_cg_solve.F @@ -2,7 +2,7 @@ c c == Main DFT quasi-Newton-Raphson driver == logical function dft_cg_solve(rtdb) c -c $Id: dft_main0d.F,v 1.92 2009-01-17 00:44:02 niri Exp $ +c $Id$ c implicit none c diff --git a/src/nwdft/scf_dft_cg/dft_cscf.F b/src/nwdft/scf_dft_cg/dft_cscf.F index 3bf5fd114e..37c42011d2 100644 --- a/src/nwdft/scf_dft_cg/dft_cscf.F +++ b/src/nwdft/scf_dft_cg/dft_cscf.F @@ -166,3 +166,4 @@ c movecs_in = dft_movecs_in movecs_out = dft_movecs_out end +c $Id$ diff --git a/src/nwdft/scf_dft_cg/dft_get_conv_info.F b/src/nwdft/scf_dft_cg/dft_get_conv_info.F index 58aa47ddab..567d0c2775 100644 --- a/src/nwdft/scf_dft_cg/dft_get_conv_info.F +++ b/src/nwdft/scf_dft_cg/dft_get_conv_info.F @@ -1,5 +1,5 @@ subroutine dft_get_conv_info(rtdb) -C$Id: scf_get_info.F,v 1.61 2004-09-08 23:56:39 edo Exp $ +C$Id$ implicit none #include "mafdecls.fh" #include "global.fh" diff --git a/src/nwdft/scf_dft_cg/dft_roks_energy.F b/src/nwdft/scf_dft_cg/dft_roks_energy.F index 3dbac6be95..9d88d4f67d 100644 --- a/src/nwdft/scf_dft_cg/dft_roks_energy.F +++ b/src/nwdft/scf_dft_cg/dft_roks_energy.F @@ -11,7 +11,7 @@ #include "rtdb.fh" #include "cosmo.fh" c -c $Id: rohf_wrap.F,v 1.22 2006-11-16 18:22:55 jochen Exp $ +c $Id$ c integer rtdb diff --git a/src/nwdft/scf_dft_cg/dft_roks_fock.F b/src/nwdft/scf_dft_cg/dft_roks_fock.F index a872738235..53d2df4ce4 100644 --- a/src/nwdft/scf_dft_cg/dft_roks_fock.F +++ b/src/nwdft/scf_dft_cg/dft_roks_fock.F @@ -3,7 +3,7 @@ $ eone, etwo, Exc, g_fcv, g_fpv, $ g_fcp, nExc, oskel, iter) * -* $Id: rohf_fock.F,v 1.23 2009-01-16 05:32:29 niri Exp $ +* $Id$ * implicit none #include "errquit.fh" diff --git a/src/nwdft/scf_dft_cg/dft_roks_hessv.F b/src/nwdft/scf_dft_cg/dft_roks_hessv.F index 192fae6680..91e149403a 100644 --- a/src/nwdft/scf_dft_cg/dft_roks_hessv.F +++ b/src/nwdft/scf_dft_cg/dft_roks_hessv.F @@ -4,7 +4,7 @@ #include "crohf.fh" #include "cscf.fh" c -c $Id: rohf_wrap.F,v 1.22 2006-11-16 18:22:55 jochen Exp $ +c $Id$ c integer g_x, g_ax double precision acc diff --git a/src/nwdft/scf_dft_cg/dft_roks_hessv_2e.F b/src/nwdft/scf_dft_cg/dft_roks_hessv_2e.F index c99334ca23..48fd5941e1 100644 --- a/src/nwdft/scf_dft_cg/dft_roks_hessv_2e.F +++ b/src/nwdft/scf_dft_cg/dft_roks_hessv_2e.F @@ -1,6 +1,6 @@ subroutine dft_roks_hessv_2e( basis, geom, nbf, nmo, nclosed, $ nopen, g_movec, oskel, g_x, acc, g_ax ) -C $Id: rohf_h2e.F,v 1.9 2003-10-17 22:54:33 carlfahl Exp $ +C $Id$ implicit none #include "errquit.fh" #include "mafdecls.fh" diff --git a/src/nwdft/scf_dft_cg/dft_roks_hessv_xx.F b/src/nwdft/scf_dft_cg/dft_roks_hessv_xx.F index 9582fead6f..ebad7a0d1d 100644 --- a/src/nwdft/scf_dft_cg/dft_roks_hessv_xx.F +++ b/src/nwdft/scf_dft_cg/dft_roks_hessv_xx.F @@ -3,7 +3,7 @@ $ pflg, $ g_movecs, oskel, g_fcv, g_fpv, g_fcp, $ acc, lshift, g_x, g_ax ) -C $Id: rohf_hxx.F,v 1.6 2003-10-17 22:54:33 carlfahl Exp $ +C $Id$ implicit none #include "errquit.fh" #include "global.fh" diff --git a/src/nwdft/scf_dft_cg/dft_roks_nr_solve.F b/src/nwdft/scf_dft_cg/dft_roks_nr_solve.F index b9763abe6e..8e123971f1 100644 --- a/src/nwdft/scf_dft_cg/dft_roks_nr_solve.F +++ b/src/nwdft/scf_dft_cg/dft_roks_nr_solve.F @@ -1,6 +1,6 @@ logical function dft_roks_nr_solve(rtdb, energy, eone, etwo, exc, + enrep, nexc) -c $Id: rohf_nr_sol.F,v 1.30 2003-10-17 22:54:33 carlfahl Exp $ +c $Id$ implicit none #include "errquit.fh" #include "mafdecls.fh" diff --git a/src/nwdft/scf_dft_cg/dft_roks_search_precond.F b/src/nwdft/scf_dft_cg/dft_roks_search_precond.F index f85c796cad..7914cf3bfa 100644 --- a/src/nwdft/scf_dft_cg/dft_roks_search_precond.F +++ b/src/nwdft/scf_dft_cg/dft_roks_search_precond.F @@ -1,6 +1,6 @@ subroutine dft_roks_search_precond(rtdb, g_grad, g_work) * -* $Id: rohf_precon.F,v 1.12 1998-08-26 16:24:56 d3g681 Exp $ +* $Id$ * implicit none #include "crohf.fh" diff --git a/src/nwdft/scf_dft_cg/dft_roks_step_energy.F b/src/nwdft/scf_dft_cg/dft_roks_step_energy.F index 9e04c077b6..0473a4b78e 100644 --- a/src/nwdft/scf_dft_cg/dft_roks_step_energy.F +++ b/src/nwdft/scf_dft_cg/dft_roks_step_energy.F @@ -1,7 +1,7 @@ subroutine dft_roks_step_energy(rtdb, step, g_search, $ eone, etwo, exc, enrep, energy, g_grad, nexc) * -* $Id: rohf_step.F,v 1.6 2003-10-17 22:54:33 carlfahl Exp $ +* $Id$ * implicit none #include "errquit.fh" diff --git a/src/nwdft/scf_dft_cg/dft_uks_energy.F b/src/nwdft/scf_dft_cg/dft_uks_energy.F index 158978ec01..1239fb1eb5 100644 --- a/src/nwdft/scf_dft_cg/dft_uks_energy.F +++ b/src/nwdft/scf_dft_cg/dft_uks_energy.F @@ -13,7 +13,7 @@ #include "bgj.fh" #include "case.fh" c -c $Id: uhf.F,v 1.69 2009-01-16 05:32:29 niri Exp $ +c $Id$ c integer g_vecs(2) double precision energy diff --git a/src/nwdft/scf_dft_cg/dft_uks_hessv.F b/src/nwdft/scf_dft_cg/dft_uks_hessv.F index 09300d79ed..ed015d2003 100644 --- a/src/nwdft/scf_dft_cg/dft_uks_hessv.F +++ b/src/nwdft/scf_dft_cg/dft_uks_hessv.F @@ -1,6 +1,6 @@ subroutine dft_uks_hessv(acc, g_x, g_ax) * -* $Id: uhf_hessv.F,v 1.10 2003-10-17 22:54:33 carlfahl Exp $ +* $Id$ * implicit none #include "errquit.fh" diff --git a/src/nwdft/scf_dft_cg/dft_uks_hessv_2e.F b/src/nwdft/scf_dft_cg/dft_uks_hessv_2e.F index 61c6551ada..47c9818aad 100644 --- a/src/nwdft/scf_dft_cg/dft_uks_hessv_2e.F +++ b/src/nwdft/scf_dft_cg/dft_uks_hessv_2e.F @@ -360,3 +360,4 @@ c enddo c end +c $Id$ diff --git a/src/nwdft/scf_dft_cg/dft_uks_nr_solve.F b/src/nwdft/scf_dft_cg/dft_uks_nr_solve.F index aa8562ab87..c25b23754f 100644 --- a/src/nwdft/scf_dft_cg/dft_uks_nr_solve.F +++ b/src/nwdft/scf_dft_cg/dft_uks_nr_solve.F @@ -1,6 +1,6 @@ logical function dft_uks_nr_solve(rtdb, energy, eone, etwo, exc, + enrep, nexc) -C $Id: uhf.F,v 1.69 2009-01-16 05:32:29 niri Exp $ +C $Id$ implicit none #include "errquit.fh" #include "mafdecls.fh" diff --git a/src/nwdft/scf_dft_cg/dft_uks_search_precond.F b/src/nwdft/scf_dft_cg/dft_uks_search_precond.F index 0fbffc2e6f..4754819ae6 100644 --- a/src/nwdft/scf_dft_cg/dft_uks_search_precond.F +++ b/src/nwdft/scf_dft_cg/dft_uks_search_precond.F @@ -145,3 +145,4 @@ c endif c end +c $Id$ diff --git a/src/nwdft/scf_dft_cg/dft_uks_step_energy.F b/src/nwdft/scf_dft_cg/dft_uks_step_energy.F index c9465a14ec..0cc1125dcd 100644 --- a/src/nwdft/scf_dft_cg/dft_uks_step_energy.F +++ b/src/nwdft/scf_dft_cg/dft_uks_step_energy.F @@ -49,3 +49,4 @@ c if (oscfps) call pstat_off(ps_search) c end +c $Id$ diff --git a/src/nwdft/so_dft/consts.fh b/src/nwdft/so_dft/consts.fh index ae09920491..c945637d7a 100644 --- a/src/nwdft/so_dft/consts.fh +++ b/src/nwdft/so_dft/consts.fh @@ -3,3 +3,4 @@ c Some constant definitions c double precision zero, onem, one, mone parameter(zero = 0.d0, one = 1.d0, mone=-1.0d0, onem = -one) +c $Id$ diff --git a/src/nwdft/so_dft/dft_scaleMO_so.F b/src/nwdft/so_dft/dft_scaleMO_so.F index a09b48f89d..c2261480e5 100644 --- a/src/nwdft/so_dft/dft_scaleMO_so.F +++ b/src/nwdft/so_dft/dft_scaleMO_so.F @@ -190,3 +190,4 @@ c ----- Free memory endif ! --- END-fracc-occ-routine return end +c $Id$ diff --git a/src/nwdft/so_dft/dft_scf_utils_so.F b/src/nwdft/so_dft/dft_scf_utils_so.F index 8c4e7a7448..5292b835a5 100644 --- a/src/nwdft/so_dft/dft_scf_utils_so.F +++ b/src/nwdft/so_dft/dft_scf_utils_so.F @@ -370,3 +370,4 @@ c Imag part c return end +c $Id$ diff --git a/src/nwdft/util/dft_frozemb.F b/src/nwdft/util/dft_frozemb.F index 7c902b3861..13b1b774a0 100644 --- a/src/nwdft/util/dft_frozemb.F +++ b/src/nwdft/util/dft_frozemb.F @@ -209,3 +209,4 @@ c stop c return end +c $Id$ diff --git a/src/nwdft/util/dft_pstrace.F b/src/nwdft/util/dft_pstrace.F index 646c60be02..c6f884defa 100644 --- a/src/nwdft/util/dft_pstrace.F +++ b/src/nwdft/util/dft_pstrace.F @@ -88,3 +88,4 @@ c call int_terminate() return end +c $Id$ diff --git a/src/nwdft/xc/hse08fx.F b/src/nwdft/xc/hse08fx.F index 689e17547e..18c900e331 100644 --- a/src/nwdft/xc/hse08fx.F +++ b/src/nwdft/xc/hse08fx.F @@ -1112,3 +1112,4 @@ c Compile source again for the 2nd derivative case c #include "hse08fx.F" #endif +c $Id$ diff --git a/src/nwdft/xc/steric_energy.F b/src/nwdft/xc/steric_energy.F index cae1e95788..48799067a1 100644 --- a/src/nwdft/xc/steric_energy.F +++ b/src/nwdft/xc/steric_energy.F @@ -109,3 +109,4 @@ c return end +c $Id$ diff --git a/src/nwdft/xc/xc.fh b/src/nwdft/xc/xc.fh index 54ff7c2908..06ca3bdc17 100644 --- a/src/nwdft/xc/xc.fh +++ b/src/nwdft/xc/xc.fh @@ -3,3 +3,4 @@ c Common for xc parameters c integer numfunc parameter(numfunc=51) +c $Id$ diff --git a/src/nwdft/xc/xc_chkdispauto.F b/src/nwdft/xc/xc_chkdispauto.F index f24bb0c177..1169b2ad03 100644 --- a/src/nwdft/xc/xc_chkdispauto.F +++ b/src/nwdft/xc/xc_chkdispauto.F @@ -21,3 +21,4 @@ c c return end +c $Id$ diff --git a/src/nwdft/xc/xc_exact_pot.F b/src/nwdft/xc/xc_exact_pot.F index 2b07733a5c..da9d5dfece 100644 --- a/src/nwdft/xc/xc_exact_pot.F +++ b/src/nwdft/xc/xc_exact_pot.F @@ -258,3 +258,4 @@ c +c $Id$ diff --git a/src/nwdft/xc/xc_hfexch.F b/src/nwdft/xc/xc_hfexch.F index bc700e03a2..305e76415b 100644 --- a/src/nwdft/xc/xc_hfexch.F +++ b/src/nwdft/xc/xc_hfexch.F @@ -18,3 +18,4 @@ c c return end +c $Id$ diff --git a/src/nwdft/xc/xc_oep.F b/src/nwdft/xc/xc_oep.F index 99fe06f6bf..f1093cb5b9 100644 --- a/src/nwdft/xc/xc_oep.F +++ b/src/nwdft/xc/xc_oep.F @@ -79,3 +79,4 @@ end do return end +c $Id$ diff --git a/src/nwdft/xc/xc_params.fh b/src/nwdft/xc/xc_params.fh index 4e8eebef4c..859d885cf7 100644 --- a/src/nwdft/xc/xc_params.fh +++ b/src/nwdft/xc/xc_params.fh @@ -3,3 +3,4 @@ c xc params c double precision pi parameter(pi = 3.14159265358979323846d0) +c $Id$ diff --git a/src/nwdft/xc/xc_rodaes_erf.F b/src/nwdft/xc/xc_rodaes_erf.F index 79a43887f3..e88eae518a 100644 --- a/src/nwdft/xc/xc_rodaes_erf.F +++ b/src/nwdft/xc/xc_rodaes_erf.F @@ -420,3 +420,4 @@ c end c #endif +c $Id$ diff --git a/src/nwdft/xc/xc_xwpbe.F b/src/nwdft/xc/xc_xwpbe.F index 279a3a45bb..2e1abad610 100644 --- a/src/nwdft/xc/xc_xwpbe.F +++ b/src/nwdft/xc/xc_xwpbe.F @@ -381,3 +381,4 @@ c Compile source again for the 2nd derivative case c #include "xc_xwpbe.F" #endif +c $Id$ diff --git a/src/nwdft/zora/Incomplete_Gamma_TOMS_654.F b/src/nwdft/zora/Incomplete_Gamma_TOMS_654.F index 05beed1be4..4c5b0329a3 100644 --- a/src/nwdft/zora/Incomplete_Gamma_TOMS_654.F +++ b/src/nwdft/zora/Incomplete_Gamma_TOMS_654.F @@ -1352,3 +1352,4 @@ C RCOMP = RT2PIN*SQRT(A)*EXP(T1) RETURN END +c $Id$ diff --git a/src/nwdft/zora/calc_EFG.F b/src/nwdft/zora/calc_EFG.F index 3a14ad59df..da3248887d 100644 --- a/src/nwdft/zora/calc_EFG.F +++ b/src/nwdft/zora/calc_EFG.F @@ -95,3 +95,4 @@ c ----- off diagonal --- END enddo ! end-loo-k return end +c $Id$ diff --git a/src/nwdft/zora/calc_zora_EFGZ4_SO.F b/src/nwdft/zora/calc_zora_EFGZ4_SO.F index 928c6c81e5..de98063ef5 100644 --- a/src/nwdft/zora/calc_zora_EFGZ4_SO.F +++ b/src/nwdft/zora/calc_zora_EFGZ4_SO.F @@ -167,3 +167,4 @@ c ----- off diagonal --- END enddo ! end-loo-k return end +c $Id$ diff --git a/src/nwdft/zora/calc_zora_EFGZ4_SR.F b/src/nwdft/zora/calc_zora_EFGZ4_SR.F index 4e9ed77879..037771ac38 100644 --- a/src/nwdft/zora/calc_zora_EFGZ4_SR.F +++ b/src/nwdft/zora/calc_zora_EFGZ4_SR.F @@ -127,3 +127,4 @@ c ----- off diagonal --- END enddo ! end-loo-k return end +c $Id$ diff --git a/src/nwdft/zora/calc_zora_EPR.F b/src/nwdft/zora/calc_zora_EPR.F index 742a0f894b..4cdcb1dd8f 100644 --- a/src/nwdft/zora/calc_zora_EPR.F +++ b/src/nwdft/zora/calc_zora_EPR.F @@ -391,3 +391,4 @@ c ---- full matrix calc -------- END return end +c $Id$ diff --git a/src/nwdft/zora/calc_zora_HFine.F b/src/nwdft/zora/calc_zora_HFine.F index c927820976..bc4d6f6352 100644 --- a/src/nwdft/zora/calc_zora_HFine.F +++ b/src/nwdft/zora/calc_zora_HFine.F @@ -884,3 +884,4 @@ c This routine is used in gridNuclearPotential() enddo ! end-loop-i return end +c $Id$ diff --git a/src/nwdft/zora/calc_zora_NMRCS_SR.F b/src/nwdft/zora/calc_zora_NMRCS_SR.F index 7f24b1d16f..e80962fe9b 100644 --- a/src/nwdft/zora/calc_zora_NMRCS_SR.F +++ b/src/nwdft/zora/calc_zora_NMRCS_SR.F @@ -729,3 +729,4 @@ c == loop over the grid points == end do ! end-grid return end +c $Id$ diff --git a/src/nwdft/zora/calc_zora_sf.F b/src/nwdft/zora/calc_zora_sf.F index d451184535..f2ba9ce40b 100644 --- a/src/nwdft/zora/calc_zora_sf.F +++ b/src/nwdft/zora/calc_zora_sf.F @@ -108,3 +108,4 @@ c 1 format('(sf,scl)(',i5,',',i5,')=(',f15.8,',',f15.8,')') enddo return end +c $Id$ diff --git a/src/nwdft/zora/calc_zora_sf_FA.F b/src/nwdft/zora/calc_zora_sf_FA.F index 7bb9a776da..0a6d4612ca 100644 --- a/src/nwdft/zora/calc_zora_sf_FA.F +++ b/src/nwdft/zora/calc_zora_sf_FA.F @@ -172,3 +172,4 @@ c ----- off diagonal --- END enddo ! end-loo-k return end +c $Id$ diff --git a/src/nwdft/zora/calc_zora_so.F b/src/nwdft/zora/calc_zora_so.F index 9a27a78dcb..3384e57fe0 100644 --- a/src/nwdft/zora/calc_zora_so.F +++ b/src/nwdft/zora/calc_zora_so.F @@ -131,3 +131,4 @@ c c return end +c $Id$ diff --git a/src/nwdft/zora/calc_zora_so_FA.F b/src/nwdft/zora/calc_zora_so_FA.F index 7464b6174c..877755ae7f 100644 --- a/src/nwdft/zora/calc_zora_so_FA.F +++ b/src/nwdft/zora/calc_zora_so_FA.F @@ -179,3 +179,4 @@ c ----- off diagonal --- END enddo ! end-loo-k return end +c $Id$ diff --git a/src/nwdft/zora/dft_zora_EPR-NMR_tools.F b/src/nwdft/zora/dft_zora_EPR-NMR_tools.F index 53a1f872b5..efafbbf63f 100644 --- a/src/nwdft/zora/dft_zora_EPR-NMR_tools.F +++ b/src/nwdft/zora/dft_zora_EPR-NMR_tools.F @@ -1186,3 +1186,4 @@ c Broadcast status to other nodes goto 10 end c =========== READ/WRITE CPHF (g_rhs) data ==========END +c $Id$ diff --git a/src/nwdft/zora/dft_zora_EPR.F b/src/nwdft/zora/dft_zora_EPR.F index 436deac0c7..7f6030ca7f 100644 --- a/src/nwdft/zora/dft_zora_EPR.F +++ b/src/nwdft/zora/dft_zora_EPR.F @@ -1256,3 +1256,4 @@ c -------------- for g-shift NLMO analysis ------------- END write(*,*) "+++++++++++++++++++++++++++++++++++++" return end +c $Id$ diff --git a/src/nwdft/zora/dft_zora_Hyperfine.F b/src/nwdft/zora/dft_zora_Hyperfine.F index 1c3bd0b5b1..3bba46da2e 100644 --- a/src/nwdft/zora/dft_zora_Hyperfine.F +++ b/src/nwdft/zora/dft_zora_Hyperfine.F @@ -1538,3 +1538,4 @@ c---- GA output: g_AtNr return end +c $Id$ diff --git a/src/nwdft/zora/dft_zora_NMR.F b/src/nwdft/zora/dft_zora_NMR.F index cf252a5848..1c70584606 100644 --- a/src/nwdft/zora/dft_zora_NMR.F +++ b/src/nwdft/zora/dft_zora_NMR.F @@ -1521,3 +1521,4 @@ c -------- routines for shieldings NLMO analysis ---- END write(*,*) "+++++++++++++++++++++++++++++++++++" return end +c $Id$ diff --git a/src/nwdft/zora/dft_zora_rhos.F b/src/nwdft/zora/dft_zora_rhos.F index 224fe3016a..2929012f9f 100644 --- a/src/nwdft/zora/dft_zora_rhos.F +++ b/src/nwdft/zora/dft_zora_rhos.F @@ -1225,3 +1225,4 @@ c======================================================= write(*,*) "+++++++++++++++++++++++++++++++++" return end +c $Id$ diff --git a/src/nwdft/zora/dft_zora_utils_so.F b/src/nwdft/zora/dft_zora_utils_so.F index e5b78d1f01..b5ad4ae989 100644 --- a/src/nwdft/zora/dft_zora_utils_so.F +++ b/src/nwdft/zora/dft_zora_utils_so.F @@ -566,3 +566,4 @@ c goto 10 c end +c $Id$ diff --git a/src/nwdft/zora/gridNuclearPotential.F b/src/nwdft/zora/gridNuclearPotential.F index eaccd40660..0f17918126 100644 --- a/src/nwdft/zora/gridNuclearPotential.F +++ b/src/nwdft/zora/gridNuclearPotential.F @@ -165,3 +165,4 @@ c == distance from the grid points to the atom centers == end do ! end-loop-igrid return end +c $Id$ diff --git a/src/nwdft/zora/gridQpqPotential.F b/src/nwdft/zora/gridQpqPotential.F index 06b65e9ac3..e931fa8ca0 100644 --- a/src/nwdft/zora/gridQpqPotential.F +++ b/src/nwdft/zora/gridQpqPotential.F @@ -122,3 +122,4 @@ c == distance from the grid points to given xyz_EFGcoords() == endif return end +c $Id$ diff --git a/src/nwdft/zora/grid_zoracorr.F b/src/nwdft/zora/grid_zoracorr.F index 8fe7669642..b5f42a3ee7 100644 --- a/src/nwdft/zora/grid_zoracorr.F +++ b/src/nwdft/zora/grid_zoracorr.F @@ -111,3 +111,4 @@ c == fill array == c return end +c $Id$ diff --git a/src/nwdft/zora/grid_zoracorr_FA.F b/src/nwdft/zora/grid_zoracorr_FA.F index 93a72a9c0c..45885bf0eb 100644 --- a/src/nwdft/zora/grid_zoracorr_FA.F +++ b/src/nwdft/zora/grid_zoracorr_FA.F @@ -303,3 +303,4 @@ c == distance from the grid points to given xyz_EFGcoords() == end c =============== Fredy Aquino's routines ======= END c +c $Id$ diff --git a/src/nwdft/zora/merf.F b/src/nwdft/zora/merf.F index bab250d94f..1401e4d721 100644 --- a/src/nwdft/zora/merf.F +++ b/src/nwdft/zora/merf.F @@ -149,3 +149,4 @@ ! 150 return end +c $Id$ diff --git a/src/nwdft/zora/zora_getv_HFine.F b/src/nwdft/zora/zora_getv_HFine.F index 7de3c9ac3b..af41a2a785 100644 --- a/src/nwdft/zora/zora_getv_HFine.F +++ b/src/nwdft/zora/zora_getv_HFine.F @@ -8,7 +8,7 @@ & g_fcsd, ! out : FC+SD (v,u) term & nexc) c -C$Id: zora_getv_EPR.F,v 1.3 2010-11-01 FA Exp $ +C$Id$ c Adapted from zora_getv_so implicit none @@ -290,7 +290,7 @@ c ++++++++++++++++++++++++++++++++ & g_fcsd, ! out : FC+SD (v,u) term & nexc) c -C$Id: zora_getv_EPR.F,v 1.3 2010-11-01 FA Exp $ +C$Id$ c Adapted from zora_getv_so implicit none @@ -614,7 +614,7 @@ c ----- free memory ----------- END & Knucl, ! in: = .true. if K_ZORA(V=Nuclear pot. only) & nexc) c -C$Id: zora_getv_NMRCS_SR.F,v 1.3 2010-11-04 FA Exp $ +C$Id$ c Adapted from zora_getv_sf implicit none diff --git a/src/nwdft/zora/zora_tabcd.F b/src/nwdft/zora/zora_tabcd.F index 745c602ae1..eff437f453 100644 --- a/src/nwdft/zora/zora_tabcd.F +++ b/src/nwdft/zora/zora_tabcd.F @@ -519,3 +519,4 @@ c Monitoring return end +c $Id$ diff --git a/src/nwdft/zora/zora_tabcd_EFG.F b/src/nwdft/zora/zora_tabcd_EFG.F index 181b8aa08f..50aa180ef6 100644 --- a/src/nwdft/zora/zora_tabcd_EFG.F +++ b/src/nwdft/zora/zora_tabcd_EFG.F @@ -419,3 +419,4 @@ c Monitoring return end +c $Id$ diff --git a/src/nwpw/band/cell_optimize/band_cell_optimize.F b/src/nwpw/band/cell_optimize/band_cell_optimize.F index f6af8d82f7..4416622973 100644 --- a/src/nwpw/band/cell_optimize/band_cell_optimize.F +++ b/src/nwpw/band/cell_optimize/band_cell_optimize.F @@ -110,3 +110,4 @@ end +c $Id$ diff --git a/src/nwpw/band/kbpp/Spherical_band.F b/src/nwpw/band/kbpp/Spherical_band.F index dc855cb1bd..1b23e4a9de 100644 --- a/src/nwpw/band/kbpp/Spherical_band.F +++ b/src/nwpw/band/kbpp/Spherical_band.F @@ -414,3 +414,4 @@ ccccccccccccccccccccccccccccccccccccccccccccccccccc sphharm=dcmplx(0.0d0,0.0d0) return end +c $Id$ diff --git a/src/nwpw/band/kbpp/cpsp_formatter_auto.F b/src/nwpw/band/kbpp/cpsp_formatter_auto.F index 9572a3829e..3664930ffe 100644 --- a/src/nwpw/band/kbpp/cpsp_formatter_auto.F +++ b/src/nwpw/band/kbpp/cpsp_formatter_auto.F @@ -122,3 +122,4 @@ c call flush(6) end +c $Id$ diff --git a/src/nwpw/band/lib/cpsp/c_semicore_force.F b/src/nwpw/band/lib/cpsp/c_semicore_force.F index 2ad64e2cc0..90faef3a89 100644 --- a/src/nwpw/band/lib/cpsp/c_semicore_force.F +++ b/src/nwpw/band/lib/cpsp/c_semicore_force.F @@ -171,3 +171,4 @@ c call C3dB_r_SMul(1,0.5d0,dcpl_mb(vxcG(1)),dcpl_mb(vxcG(1))) end +c $Id$ diff --git a/src/nwpw/band/lib/cpsp/c_semicore_force_a.F b/src/nwpw/band/lib/cpsp/c_semicore_force_a.F index f72b974157..717fa55f54 100644 --- a/src/nwpw/band/lib/cpsp/c_semicore_force_a.F +++ b/src/nwpw/band/lib/cpsp/c_semicore_force_a.F @@ -115,3 +115,4 @@ c logocal semicore(0:nkatmx) end +c $Id$ diff --git a/src/nwpw/band/lib/cpsp/c_semicore_force_b.F b/src/nwpw/band/lib/cpsp/c_semicore_force_b.F index f472ee980d..0c0bbd9418 100644 --- a/src/nwpw/band/lib/cpsp/c_semicore_force_b.F +++ b/src/nwpw/band/lib/cpsp/c_semicore_force_b.F @@ -141,3 +141,4 @@ c logocal semicore(0:nkatmx) end +c $Id$ diff --git a/src/nwpw/band/lib/cpsp/cpsp_projector.F b/src/nwpw/band/lib/cpsp/cpsp_projector.F index e72187923c..b039f69862 100644 --- a/src/nwpw/band/lib/cpsp/cpsp_projector.F +++ b/src/nwpw/band/lib/cpsp/cpsp_projector.F @@ -172,3 +172,4 @@ c end if cpsp_projector_get_ptr = indx + ((nb-1)*nprj + (n-1))*nsize return end +c $Id$ diff --git a/src/nwpw/band/lib/psi/c_check.F b/src/nwpw/band/lib/psi/c_check.F index cfc4c75f82..20d6944fc2 100644 --- a/src/nwpw/band/lib/psi/c_check.F +++ b/src/nwpw/band/lib/psi/c_check.F @@ -88,3 +88,4 @@ ccccccccc c_index_name = name return end +c $Id$ diff --git a/src/nwpw/band/lib/psi/cpsi_spin2.F b/src/nwpw/band/lib/psi/cpsi_spin2.F index ec14101b33..a2472a9003 100644 --- a/src/nwpw/band/lib/psi/cpsi_spin2.F +++ b/src/nwpw/band/lib/psi/cpsi_spin2.F @@ -83,3 +83,4 @@ ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc return end +c $Id$ diff --git a/src/nwpw/band/minimizer/c_cgsd_energy_stress.F b/src/nwpw/band/minimizer/c_cgsd_energy_stress.F index 388d3828ac..695259e937 100644 --- a/src/nwpw/band/minimizer/c_cgsd_energy_stress.F +++ b/src/nwpw/band/minimizer/c_cgsd_energy_stress.F @@ -122,3 +122,4 @@ c *** call dscal(9,-1.0d0,stress,1) 1811 FORMAT(5X,A14,F11.5) end +c $Id$ diff --git a/src/nwpw/band/structure/band_fft_structure.F b/src/nwpw/band/structure/band_fft_structure.F index ab3b591f31..4d059cf7db 100644 --- a/src/nwpw/band/structure/band_fft_structure.F +++ b/src/nwpw/band/structure/band_fft_structure.F @@ -343,3 +343,4 @@ c > /' =<',3f8.3,'>') return end +c $Id$ diff --git a/src/nwpw/band/structure/band_interpolate_structure.F b/src/nwpw/band/structure/band_interpolate_structure.F index 0f059cede5..f25be54f58 100644 --- a/src/nwpw/band/structure/band_interpolate_structure.F +++ b/src/nwpw/band/structure/band_interpolate_structure.F @@ -450,3 +450,4 @@ c vandermonde(i,20) = 1.0d0 return end +c $Id$ diff --git a/src/nwpw/band/structure/band_kp_structure.F b/src/nwpw/band/structure/band_kp_structure.F index ee24b5c968..2bd1a946e7 100644 --- a/src/nwpw/band/structure/band_kp_structure.F +++ b/src/nwpw/band/structure/band_kp_structure.F @@ -342,3 +342,4 @@ c > /' =<',3f8.3,'>') return end +c $Id$ diff --git a/src/nwpw/libraryps/pspw_old/Cr b/src/nwpw/libraryps/pspw_old/Cr index 15a4a77cfc..412423fe76 100644 --- a/src/nwpw/libraryps/pspw_old/Cr +++ b/src/nwpw/libraryps/pspw_old/Cr @@ -1,5 +1,5 @@ # -# $Id: Cr,v 1.3 2008-01-22 20:02:55 bylaska Exp $ +# $Id$ # Comment: Cr pseudopotential parameters Comment: Fitted 12-27-04 diff --git a/src/nwpw/nwpwlib/C3dB/C3dB-tcgmsg.F b/src/nwpw/nwpwlib/C3dB/C3dB-tcgmsg.F index 3e73d9fc93..d777eea141 100644 --- a/src/nwpw/nwpwlib/C3dB/C3dB-tcgmsg.F +++ b/src/nwpw/nwpwlib/C3dB/C3dB-tcgmsg.F @@ -1828,3 +1828,4 @@ c implicit none end +c $Id$ diff --git a/src/nwpw/nwpwlib/D1dB/D1dB-mpi.F b/src/nwpw/nwpwlib/D1dB/D1dB-mpi.F index fa23443066..a6c9d66768 100644 --- a/src/nwpw/nwpwlib/D1dB/D1dB-mpi.F +++ b/src/nwpw/nwpwlib/D1dB/D1dB-mpi.F @@ -793,3 +793,4 @@ cccccc !Level = (log(dble(np_j))/log(2.0d0)) return end +c $Id$ diff --git a/src/nwpw/nwpwlib/D1dB/D1dB-tcgmsg.F b/src/nwpw/nwpwlib/D1dB/D1dB-tcgmsg.F index 3f976e347c..6b983bd676 100644 --- a/src/nwpw/nwpwlib/D1dB/D1dB-tcgmsg.F +++ b/src/nwpw/nwpwlib/D1dB/D1dB-tcgmsg.F @@ -339,3 +339,4 @@ c call errquit(' D1dB_Reduce_step:not implemented!',0,0) return end +c $Id$ diff --git a/src/nwpw/nwpwlib/D3dB/fftw3.fh b/src/nwpw/nwpwlib/D3dB/fftw3.fh index 03bacdf56a..7d3d3769cb 100644 --- a/src/nwpw/nwpwlib/D3dB/fftw3.fh +++ b/src/nwpw/nwpwlib/D3dB/fftw3.fh @@ -70,3 +70,4 @@ PARAMETER (FFTW_ALLOW_PRUNING=1048576) INTEGER FFTW_WISDOM_ONLY PARAMETER (FFTW_WISDOM_ONLY=2097152) +c $Id$ diff --git a/src/nwpw/nwpwlib/D3dB/hcurve.c b/src/nwpw/nwpwlib/D3dB/hcurve.c index 63cb41b66c..e5f9bbb7c8 100644 --- a/src/nwpw/nwpwlib/D3dB/hcurve.c +++ b/src/nwpw/nwpwlib/D3dB/hcurve.c @@ -211,3 +211,4 @@ Integer map[]; free(bfel); } +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/D3dB/hcurve.h b/src/nwpw/nwpwlib/D3dB/hcurve.h index 2e59ef6310..5ff49b3644 100644 --- a/src/nwpw/nwpwlib/D3dB/hcurve.h +++ b/src/nwpw/nwpwlib/D3dB/hcurve.h @@ -8,3 +8,4 @@ extern void hcurve_map(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/D3dB/hilbert.h b/src/nwpw/nwpwlib/D3dB/hilbert.h index 1f2a51faf6..f0a383eb38 100644 --- a/src/nwpw/nwpwlib/D3dB/hilbert.h +++ b/src/nwpw/nwpwlib/D3dB/hilbert.h @@ -8,3 +8,4 @@ extern void hilbert2d_map(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/D3dB/olist.h b/src/nwpw/nwpwlib/D3dB/olist.h index 9cf9a58d71..9bee3df39d 100644 --- a/src/nwpw/nwpwlib/D3dB/olist.h +++ b/src/nwpw/nwpwlib/D3dB/olist.h @@ -17,3 +17,4 @@ extern void destroy_olist(); extern void print_olist(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/K1dB/K1dB-mpi.F b/src/nwpw/nwpwlib/K1dB/K1dB-mpi.F index ed980be41b..8e3083dde4 100644 --- a/src/nwpw/nwpwlib/K1dB/K1dB-mpi.F +++ b/src/nwpw/nwpwlib/K1dB/K1dB-mpi.F @@ -289,3 +289,4 @@ c implicit none end +c $Id$ diff --git a/src/nwpw/nwpwlib/K1dB/K1dB-tcgmsg.F b/src/nwpw/nwpwlib/K1dB/K1dB-tcgmsg.F index e95d3d5364..51055e6b94 100644 --- a/src/nwpw/nwpwlib/K1dB/K1dB-tcgmsg.F +++ b/src/nwpw/nwpwlib/K1dB/K1dB-tcgmsg.F @@ -181,3 +181,4 @@ c implicit none end +c $Id$ diff --git a/src/nwpw/nwpwlib/MetaDynamics/metadynamics.F b/src/nwpw/nwpwlib/MetaDynamics/metadynamics.F index 1059c32f00..06ddb72903 100644 --- a/src/nwpw/nwpwlib/MetaDynamics/metadynamics.F +++ b/src/nwpw/nwpwlib/MetaDynamics/metadynamics.F @@ -1596,3 +1596,4 @@ c close(53) return end +c $Id$ diff --git a/src/nwpw/nwpwlib/MetaDynamics/metadynamics.fh b/src/nwpw/nwpwlib/MetaDynamics/metadynamics.fh index 2b7326b533..c0aff090a2 100644 --- a/src/nwpw/nwpwlib/MetaDynamics/metadynamics.fh +++ b/src/nwpw/nwpwlib/MetaDynamics/metadynamics.fh @@ -60,3 +60,4 @@ > cnxmeta_gs,cnmeta_gs, > metafound_gs +c $Id$ diff --git a/src/nwpw/nwpwlib/MetaDynamics/metadynamics_input.F b/src/nwpw/nwpwlib/MetaDynamics/metadynamics_input.F index 92a8ff1bbd..0b42d0fbe0 100644 --- a/src/nwpw/nwpwlib/MetaDynamics/metadynamics_input.F +++ b/src/nwpw/nwpwlib/MetaDynamics/metadynamics_input.F @@ -529,3 +529,4 @@ c return end +c $Id$ diff --git a/src/nwpw/nwpwlib/ion/fcoord.f b/src/nwpw/nwpwlib/ion/fcoord.f index 29407dc9cd..cbfe8fab8d 100644 --- a/src/nwpw/nwpwlib/ion/fcoord.f +++ b/src/nwpw/nwpwlib/ion/fcoord.f @@ -128,3 +128,4 @@ c **** local variables **** end +c $Id$ diff --git a/src/nwpw/nwpwlib/ion/ion.fh b/src/nwpw/nwpwlib/ion/ion.fh index 5bc551a1ea..692b158588 100644 --- a/src/nwpw/nwpwlib/ion/ion.fh +++ b/src/nwpw/nwpwlib/ion/ion.fh @@ -24,3 +24,4 @@ > sym_inversion, !true if inversion symmetry > periodic !true if periodic +c $Id$ diff --git a/src/nwpw/nwpwlib/ion/ion_FixIon.F b/src/nwpw/nwpwlib/ion/ion_FixIon.F index 03a7ad2b88..7eabd46020 100644 --- a/src/nwpw/nwpwlib/ion/ion_FixIon.F +++ b/src/nwpw/nwpwlib/ion/ion_FixIon.F @@ -908,3 +908,4 @@ +c $Id$ diff --git a/src/nwpw/nwpwlib/ion/katm_list.F b/src/nwpw/nwpwlib/ion/katm_list.F index 4a602ba024..6e18cbdb67 100644 --- a/src/nwpw/nwpwlib/ion/katm_list.F +++ b/src/nwpw/nwpwlib/ion/katm_list.F @@ -106,3 +106,4 @@ +c $Id$ diff --git a/src/nwpw/nwpwlib/ion/shake/molecular_constraint.F b/src/nwpw/nwpwlib/ion/shake/molecular_constraint.F index cd5ef3798c..83893d67a5 100644 --- a/src/nwpw/nwpwlib/ion/shake/molecular_constraint.F +++ b/src/nwpw/nwpwlib/ion/shake/molecular_constraint.F @@ -178,3 +178,4 @@ C ** END ITERATIVE LOOP ** RETURN END +c $Id$ diff --git a/src/nwpw/nwpwlib/ion/shake/pspw_atom.c b/src/nwpw/nwpwlib/ion/shake/pspw_atom.c index cb87b5b8cb..14d974c86e 100644 --- a/src/nwpw/nwpwlib/ion/shake/pspw_atom.c +++ b/src/nwpw/nwpwlib/ion/shake/pspw_atom.c @@ -115,3 +115,4 @@ void pspw_atom_end(Atom_List_Type atom) } } +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/ion/shake/pspw_atom.h b/src/nwpw/nwpwlib/ion/shake/pspw_atom.h index 51b47e0b27..3f8497f863 100644 --- a/src/nwpw/nwpwlib/ion/shake/pspw_atom.h +++ b/src/nwpw/nwpwlib/ion/shake/pspw_atom.h @@ -24,3 +24,4 @@ extern int pspw_atom(Atom_List_Type atom, int indx); extern void pspw_atom_end(Atom_List_Type atom); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/ion/shake/pspw_bond.c b/src/nwpw/nwpwlib/ion/shake/pspw_bond.c index 88a02cebe9..20d927d4d1 100644 --- a/src/nwpw/nwpwlib/ion/shake/pspw_bond.c +++ b/src/nwpw/nwpwlib/ion/shake/pspw_bond.c @@ -115,3 +115,4 @@ void pspw_bond_end(Bond_List_Type bond) } } +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/ion/shake/pspw_bond.h b/src/nwpw/nwpwlib/ion/shake/pspw_bond.h index 63abf12603..7480de5e62 100644 --- a/src/nwpw/nwpwlib/ion/shake/pspw_bond.h +++ b/src/nwpw/nwpwlib/ion/shake/pspw_bond.h @@ -23,3 +23,4 @@ extern double pspw_bond(Bond_List_Type bond, int indx); extern void pspw_bond_end(Bond_List_Type bond); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/ion/shake/pspw_molecule.c b/src/nwpw/nwpwlib/ion/shake/pspw_molecule.c index 1ffaad0f64..b6c5475122 100644 --- a/src/nwpw/nwpwlib/ion/shake/pspw_molecule.c +++ b/src/nwpw/nwpwlib/ion/shake/pspw_molecule.c @@ -317,3 +317,4 @@ void FATR pspw_molecule_read_ fclose(fp); free(file); } +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/ion/shake/pspw_molecule.h b/src/nwpw/nwpwlib/ion/shake/pspw_molecule.h index f1f637f74b..b680d41856 100644 --- a/src/nwpw/nwpwlib/ion/shake/pspw_molecule.h +++ b/src/nwpw/nwpwlib/ion/shake/pspw_molecule.h @@ -37,3 +37,4 @@ extern void pspw_molecule_end(); */ #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/ion/shake/shake_chain.F b/src/nwpw/nwpwlib/ion/shake/shake_chain.F index 14f39ff784..7ed730cba8 100644 --- a/src/nwpw/nwpwlib/ion/shake/shake_chain.F +++ b/src/nwpw/nwpwlib/ion/shake/shake_chain.F @@ -187,3 +187,4 @@ C ** END ITERATIVE LOOP ** RETURN END +c $Id$ diff --git a/src/nwpw/nwpwlib/ion/shake/shake_chain2.F b/src/nwpw/nwpwlib/ion/shake/shake_chain2.F index db5602038c..d16dead2b9 100644 --- a/src/nwpw/nwpwlib/ion/shake/shake_chain2.F +++ b/src/nwpw/nwpwlib/ion/shake/shake_chain2.F @@ -133,3 +133,4 @@ c end do RETURN END +c $Id$ diff --git a/src/nwpw/nwpwlib/ion/shake/shake_chain3.F b/src/nwpw/nwpwlib/ion/shake/shake_chain3.F index a373a79ebd..2b37b87ad7 100644 --- a/src/nwpw/nwpwlib/ion/shake/shake_chain3.F +++ b/src/nwpw/nwpwlib/ion/shake/shake_chain3.F @@ -136,3 +136,4 @@ C ** END ITERATIVE LOOP ** RETURN END +c $Id$ diff --git a/src/nwpw/nwpwlib/ion/shake/test.c b/src/nwpw/nwpwlib/ion/shake/test.c index 349944e6a6..0ffb34e953 100644 --- a/src/nwpw/nwpwlib/ion/shake/test.c +++ b/src/nwpw/nwpwlib/ion/shake/test.c @@ -31,3 +31,4 @@ main() pspw_molecule_end(); } +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/atom.h b/src/nwpw/nwpwlib/pseudopotential/atom.h index 488ca25aa2..20f5a87b42 100644 --- a/src/nwpw/nwpwlib/pseudopotential/atom.h +++ b/src/nwpw/nwpwlib/pseudopotential/atom.h @@ -46,3 +46,4 @@ extern char *name_Atom(void); extern char *spin_Name(int i); extern int isRelativistic_Atom(void); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/becke_exchange.c b/src/nwpw/nwpwlib/pseudopotential/becke_exchange.c index 22397084f8..ee6271a37b 100644 --- a/src/nwpw/nwpwlib/pseudopotential/becke_exchange.c +++ b/src/nwpw/nwpwlib/pseudopotential/becke_exchange.c @@ -253,3 +253,4 @@ Vx[], }/* R_BLYP_Exchange */ +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/becke_exchange.h b/src/nwpw/nwpwlib/pseudopotential/becke_exchange.h index eac3373540..d36a6430ff 100644 --- a/src/nwpw/nwpwlib/pseudopotential/becke_exchange.h +++ b/src/nwpw/nwpwlib/pseudopotential/becke_exchange.h @@ -3,3 +3,4 @@ extern void R_Becke_Exchange(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/dirac.c b/src/nwpw/nwpwlib/pseudopotential/dirac.c index 3a0497132c..8933fa2ac8 100644 --- a/src/nwpw/nwpwlib/pseudopotential/dirac.c +++ b/src/nwpw/nwpwlib/pseudopotential/dirac.c @@ -633,3 +633,4 @@ R_Dirac_FixedLogDeriv (int n, int l, int s2, double Z, const double *v, int matc return; } +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/dirac.h b/src/nwpw/nwpwlib/pseudopotential/dirac.h index fb3f702efe..ec034db943 100644 --- a/src/nwpw/nwpwlib/pseudopotential/dirac.h +++ b/src/nwpw/nwpwlib/pseudopotential/dirac.h @@ -9,3 +9,4 @@ extern void R_Dirac_FixedLogDeriv(int n, int l, int s2, double Z, const double * int match, double u_logderiv, double *Eig, double *u, double *uprime); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/generate_rho_semicore.c b/src/nwpw/nwpwlib/pseudopotential/generate_rho_semicore.c index 0786717386..99cfc06ec7 100644 --- a/src/nwpw/nwpwlib/pseudopotential/generate_rho_semicore.c +++ b/src/nwpw/nwpwlib/pseudopotential/generate_rho_semicore.c @@ -156,3 +156,4 @@ rho_semicore[]; } /* generate_rho_semicore */ +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/generate_rho_semicore.h b/src/nwpw/nwpwlib/pseudopotential/generate_rho_semicore.h index 0ea91ef2c1..d554fb899b 100644 --- a/src/nwpw/nwpwlib/pseudopotential/generate_rho_semicore.h +++ b/src/nwpw/nwpwlib/pseudopotential/generate_rho_semicore.h @@ -3,3 +3,4 @@ extern void generate_rho_semicore(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/lyp_correlation.c b/src/nwpw/nwpwlib/pseudopotential/lyp_correlation.c index 90c082b784..cc819ebdd1 100644 --- a/src/nwpw/nwpwlib/pseudopotential/lyp_correlation.c +++ b/src/nwpw/nwpwlib/pseudopotential/lyp_correlation.c @@ -188,3 +188,4 @@ Vc[], // printf("gerg\n"); } /* R_BLYP_Correlation */ +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/lyp_correlation.h b/src/nwpw/nwpwlib/pseudopotential/lyp_correlation.h index ab94ce5575..155f7e9c82 100644 --- a/src/nwpw/nwpwlib/pseudopotential/lyp_correlation.h +++ b/src/nwpw/nwpwlib/pseudopotential/lyp_correlation.h @@ -3,3 +3,4 @@ extern void R_LYP_Correlation(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/lyp_correlation2.c b/src/nwpw/nwpwlib/pseudopotential/lyp_correlation2.c index 84071f5e36..5c45551a98 100644 --- a/src/nwpw/nwpwlib/pseudopotential/lyp_correlation2.c +++ b/src/nwpw/nwpwlib/pseudopotential/lyp_correlation2.c @@ -197,3 +197,4 @@ Vc[], } /* R_BLYP_Correlation */ +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/pbe_correlation.c b/src/nwpw/nwpwlib/pseudopotential/pbe_correlation.c index 196daee553..aaf9c63738 100644 --- a/src/nwpw/nwpwlib/pseudopotential/pbe_correlation.c +++ b/src/nwpw/nwpwlib/pseudopotential/pbe_correlation.c @@ -216,3 +216,4 @@ Vc_out[], dealloc_LogGrid(dadrho); } /* R_PBE_Correlation */ +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/pbe_correlation.h b/src/nwpw/nwpwlib/pseudopotential/pbe_correlation.h index f1bdab0d33..bb1fbc779f 100644 --- a/src/nwpw/nwpwlib/pseudopotential/pbe_correlation.h +++ b/src/nwpw/nwpwlib/pseudopotential/pbe_correlation.h @@ -3,3 +3,4 @@ extern void R_PBE96_Correlation(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/pbe_exchange.c b/src/nwpw/nwpwlib/pseudopotential/pbe_exchange.c index a737bad2c6..3436d4cdde 100644 --- a/src/nwpw/nwpwlib/pseudopotential/pbe_exchange.c +++ b/src/nwpw/nwpwlib/pseudopotential/pbe_exchange.c @@ -158,3 +158,4 @@ Vx[], dealloc_LogGrid(dadrho); } /* R_PBE_Exchange */ +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/pbe_exchange.h b/src/nwpw/nwpwlib/pseudopotential/pbe_exchange.h index c4a243b1da..39354e2d52 100644 --- a/src/nwpw/nwpwlib/pseudopotential/pbe_exchange.h +++ b/src/nwpw/nwpwlib/pseudopotential/pbe_exchange.h @@ -3,3 +3,4 @@ extern void R_PBE96_Exchange(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/perdew_wang.c b/src/nwpw/nwpwlib/pseudopotential/perdew_wang.c index 82f7756ce6..0bef91cfd9 100644 --- a/src/nwpw/nwpwlib/pseudopotential/perdew_wang.c +++ b/src/nwpw/nwpwlib/pseudopotential/perdew_wang.c @@ -125,3 +125,4 @@ Vc_out[], dealloc_LogGrid(tmp); } /* R_PBE_Correlation */ +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/perdew_wang.h b/src/nwpw/nwpwlib/pseudopotential/perdew_wang.h index 012c1099eb..61c3ec954a 100644 --- a/src/nwpw/nwpwlib/pseudopotential/perdew_wang.h +++ b/src/nwpw/nwpwlib/pseudopotential/perdew_wang.h @@ -3,3 +3,4 @@ extern void R_Perdew_Wang(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/psp.h b/src/nwpw/nwpwlib/pseudopotential/psp.h index 8545d57c66..c224825382 100644 --- a/src/nwpw/nwpwlib/pseudopotential/psp.h +++ b/src/nwpw/nwpwlib/pseudopotential/psp.h @@ -48,3 +48,4 @@ extern char *comment_Psp(); extern void set_Solver_Psp(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/rappe.c b/src/nwpw/nwpwlib/pseudopotential/rappe.c index 99bc1325c2..89c0420925 100644 --- a/src/nwpw/nwpwlib/pseudopotential/rappe.c +++ b/src/nwpw/nwpwlib/pseudopotential/rappe.c @@ -373,3 +373,4 @@ double *pc_psp; } /* solve_Rappe */ +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/revpbe_correlation.h b/src/nwpw/nwpwlib/pseudopotential/revpbe_correlation.h index e7a91e7350..fc22cba840 100644 --- a/src/nwpw/nwpwlib/pseudopotential/revpbe_correlation.h +++ b/src/nwpw/nwpwlib/pseudopotential/revpbe_correlation.h @@ -3,3 +3,4 @@ extern void R_revPBE_Correlation(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/revpbe_exchange.c b/src/nwpw/nwpwlib/pseudopotential/revpbe_exchange.c index 4e93de3bc7..06baa16794 100644 --- a/src/nwpw/nwpwlib/pseudopotential/revpbe_exchange.c +++ b/src/nwpw/nwpwlib/pseudopotential/revpbe_exchange.c @@ -159,3 +159,4 @@ Vx[], dealloc_LogGrid(dadrho); } /* R_revPBE_Exchange */ +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/revpbe_exchange.h b/src/nwpw/nwpwlib/pseudopotential/revpbe_exchange.h index 50f13ab494..5258a8e74f 100644 --- a/src/nwpw/nwpwlib/pseudopotential/revpbe_exchange.h +++ b/src/nwpw/nwpwlib/pseudopotential/revpbe_exchange.h @@ -3,3 +3,4 @@ extern void R_revPBE_Exchange(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/rhamann.c b/src/nwpw/nwpwlib/pseudopotential/rhamann.c index bbe38d414f..7a837c61d4 100644 --- a/src/nwpw/nwpwlib/pseudopotential/rhamann.c +++ b/src/nwpw/nwpwlib/pseudopotential/rhamann.c @@ -447,3 +447,4 @@ solve_RelHamann (int num_psp, dealloc_LogGrid (Fcut); dealloc_LogGrid (f); } +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/rhamann.h b/src/nwpw/nwpwlib/pseudopotential/rhamann.h index 34236f5ab5..eeba8fca3c 100644 --- a/src/nwpw/nwpwlib/pseudopotential/rhamann.h +++ b/src/nwpw/nwpwlib/pseudopotential/rhamann.h @@ -16,3 +16,4 @@ extern void solve_RelHamann (int num_psp, int *n_psp, int *l_psp, double *pc_psp); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/rpsp.h b/src/nwpw/nwpwlib/pseudopotential/rpsp.h index 27173e6316..dbf932f04b 100644 --- a/src/nwpw/nwpwlib/pseudopotential/rpsp.h +++ b/src/nwpw/nwpwlib/pseudopotential/rpsp.h @@ -37,3 +37,4 @@ extern double Zion_RelPsp(void); extern int state_RelPsp(int nt, int lt, int st); extern char *comment_RelPsp(void); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/rtroullier.c b/src/nwpw/nwpwlib/pseudopotential/rtroullier.c index adf56072ce..44433a475a 100644 --- a/src/nwpw/nwpwlib/pseudopotential/rtroullier.c +++ b/src/nwpw/nwpwlib/pseudopotential/rtroullier.c @@ -378,3 +378,4 @@ solve_RelTroullier (int num_psp, dealloc_LogGrid (rho_total); } /* solve_Troullier */ +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/vanderbilt.c b/src/nwpw/nwpwlib/pseudopotential/vanderbilt.c index ded016f0d8..aa1f8885e3 100644 --- a/src/nwpw/nwpwlib/pseudopotential/vanderbilt.c +++ b/src/nwpw/nwpwlib/pseudopotential/vanderbilt.c @@ -533,3 +533,4 @@ double *pc_psp; +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/vanderbilt.h b/src/nwpw/nwpwlib/pseudopotential/vanderbilt.h index 8c0b4bc900..1aebbf7b67 100644 --- a/src/nwpw/nwpwlib/pseudopotential/vanderbilt.h +++ b/src/nwpw/nwpwlib/pseudopotential/vanderbilt.h @@ -9,3 +9,4 @@ void Suggested_Param_Vanderbilt(); void solve_Vanderbilt(); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/xpansion2.c b/src/nwpw/nwpwlib/pseudopotential/xpansion2.c index 32fbf501d7..433e9b153e 100644 --- a/src/nwpw/nwpwlib/pseudopotential/xpansion2.c +++ b/src/nwpw/nwpwlib/pseudopotential/xpansion2.c @@ -420,3 +420,4 @@ int init_xpansion2(int l_in, return get_c0_c10_xpansion2(); } /*init_xpansion2 */ +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/xpansion2.h b/src/nwpw/nwpwlib/pseudopotential/xpansion2.h index a170e3d935..73a195baef 100644 --- a/src/nwpw/nwpwlib/pseudopotential/xpansion2.h +++ b/src/nwpw/nwpwlib/pseudopotential/xpansion2.h @@ -11,3 +11,4 @@ extern int init_xpansion2(int,int,double, double*, double*, double*); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/pseudopotential/zora.h b/src/nwpw/nwpwlib/pseudopotential/zora.h index ea7c2111be..f675e25123 100644 --- a/src/nwpw/nwpwlib/pseudopotential/zora.h +++ b/src/nwpw/nwpwlib/pseudopotential/zora.h @@ -6,3 +6,4 @@ extern void R_ZORA (int n, int l, int s2, double Z, const double *v, extern void R_ZORA_Fixed_E (int n, int l, int s2, double Z, const double *v, int match, double E, double *u, double *uprime); #endif +/* $Id$ */ diff --git a/src/nwpw/nwpwlib/utilities/getfilling.F b/src/nwpw/nwpwlib/utilities/getfilling.F index 99e95e6f3f..56759e41cb 100644 --- a/src/nwpw/nwpwlib/utilities/getfilling.F +++ b/src/nwpw/nwpwlib/utilities/getfilling.F @@ -91,3 +91,4 @@ return end +c $Id$ diff --git a/src/nwpw/nwpwlib/utilities/is_sORd.F b/src/nwpw/nwpwlib/utilities/is_sORd.F index d58ac1c2cb..bff6e35ac3 100644 --- a/src/nwpw/nwpwlib/utilities/is_sORd.F +++ b/src/nwpw/nwpwlib/utilities/is_sORd.F @@ -31,3 +31,4 @@ end +c $Id$ diff --git a/src/nwpw/nwpwlib/utilities/nwpw_gaunt.F b/src/nwpw/nwpwlib/utilities/nwpw_gaunt.F index 26b049b105..b30da97f17 100644 --- a/src/nwpw/nwpwlib/utilities/nwpw_gaunt.F +++ b/src/nwpw/nwpwlib/utilities/nwpw_gaunt.F @@ -643,3 +643,4 @@ c! ************************************************* return end +c $Id$ diff --git a/src/nwpw/nwpwlib/utilities/print_elapsed_time.F b/src/nwpw/nwpwlib/utilities/print_elapsed_time.F index 5947aea612..1de372316e 100644 --- a/src/nwpw/nwpwlib/utilities/print_elapsed_time.F +++ b/src/nwpw/nwpwlib/utilities/print_elapsed_time.F @@ -21,3 +21,4 @@ 1800 format(//' Elapsed time of simulation was',F8.3,A) end +c $Id$ diff --git a/src/nwpw/ofpw/cpsd/chi_lmbda.f b/src/nwpw/ofpw/cpsd/chi_lmbda.f index 124976df69..35b51ac81e 100644 --- a/src/nwpw/ofpw/cpsd/chi_lmbda.f +++ b/src/nwpw/ofpw/cpsd/chi_lmbda.f @@ -123,3 +123,4 @@ c call dcopy(n*ne(ms),tmp(sa1),1,lmbda(sl(ms)),1) return end +c $Id$ diff --git a/src/nwpw/paw/cell_optimize/paw_cell_optimize.F b/src/nwpw/paw/cell_optimize/paw_cell_optimize.F index e3752caa22..87b3e2160a 100644 --- a/src/nwpw/paw/cell_optimize/paw_cell_optimize.F +++ b/src/nwpw/paw/cell_optimize/paw_cell_optimize.F @@ -110,3 +110,4 @@ end +c $Id$ diff --git a/src/nwpw/paw/makefile.h b/src/nwpw/paw/makefile.h index 31594090fc..6bb5edc02c 100644 --- a/src/nwpw/paw/makefile.h +++ b/src/nwpw/paw/makefile.h @@ -6,3 +6,4 @@ .f90.o : $(FC) $(F90FLAGS) $(LIB_INCLUDES) -I$(TOPDIR)/src/include -c $< +# $Id$ diff --git a/src/nwpw/paw/paw_basis/paw_basis.fh b/src/nwpw/paw/paw_basis/paw_basis.fh index 9e2c4af185..e325259d34 100644 --- a/src/nwpw/paw/paw_basis/paw_basis.fh +++ b/src/nwpw/paw/paw_basis/paw_basis.fh @@ -138,3 +138,4 @@ c double precision dabsmax c external dabsamx +c $Id$ diff --git a/src/nwpw/paw/paw_comp_charge/paw_comp_charge.fh b/src/nwpw/paw/paw_comp_charge/paw_comp_charge.fh index e69de29bb2..8180552471 100644 --- a/src/nwpw/paw/paw_comp_charge/paw_comp_charge.fh +++ b/src/nwpw/paw/paw_comp_charge/paw_comp_charge.fh @@ -0,0 +1 @@ +c $Id$ diff --git a/src/nwpw/paw/paw_special_functions/paw_gamma_function.F b/src/nwpw/paw/paw_special_functions/paw_gamma_function.F index f021a14421..779b8daee4 100644 --- a/src/nwpw/paw/paw_special_functions/paw_gamma_function.F +++ b/src/nwpw/paw/paw_special_functions/paw_gamma_function.F @@ -197,3 +197,4 @@ +c $Id$ diff --git a/src/nwpw/paw/paw_special_functions/paw_hypergeom1F1.F b/src/nwpw/paw/paw_special_functions/paw_hypergeom1F1.F index b5754bcfaa..51d6c5169c 100644 --- a/src/nwpw/paw/paw_special_functions/paw_hypergeom1F1.F +++ b/src/nwpw/paw/paw_special_functions/paw_hypergeom1F1.F @@ -147,3 +147,4 @@ +c $Id$ diff --git a/src/nwpw/paw/paw_utils/bessel_transform.fh b/src/nwpw/paw/paw_utils/bessel_transform.fh index f558238327..4cb242c06a 100644 --- a/src/nwpw/paw/paw_utils/bessel_transform.fh +++ b/src/nwpw/paw/paw_utils/bessel_transform.fh @@ -1,2 +1,3 @@ real*8 spher_bessel_transform,spher_bessel0_transform external spher_bessel_transform,spher_bessel0_transform +c $Id$ diff --git a/src/nwpw/paw/paw_utils/double_factorial.f b/src/nwpw/paw/paw_utils/double_factorial.f index 1af17128f9..13045b99f7 100644 --- a/src/nwpw/paw/paw_utils/double_factorial.f +++ b/src/nwpw/paw/paw_utils/double_factorial.f @@ -13,3 +13,4 @@ end if end +c $Id$ diff --git a/src/nwpw/paw/paw_utils/paw_params.fh b/src/nwpw/paw/paw_utils/paw_params.fh index adaf832cb4..eabe9574d7 100644 --- a/src/nwpw/paw/paw_utils/paw_params.fh +++ b/src/nwpw/paw/paw_utils/paw_params.fh @@ -4,3 +4,4 @@ parameter(pi = 3.14159265358979323846264338327950288419D0) parameter(fourpi = pi*4.0D0) +c $Id$ diff --git a/src/nwpw/paw/paw_xc/paw_gga.F b/src/nwpw/paw/paw_xc/paw_gga.F index 724310fea1..851ee5f3c2 100644 --- a/src/nwpw/paw/paw_xc/paw_gga.F +++ b/src/nwpw/paw/paw_xc/paw_gga.F @@ -93,3 +93,4 @@ c **** unrestricted calculations **** end if return end +c $Id$ diff --git a/src/nwpw/pspw/analysis/pspw_atom_analysis.F b/src/nwpw/pspw/analysis/pspw_atom_analysis.F index 55932edd09..bffb09c35c 100644 --- a/src/nwpw/pspw/analysis/pspw_atom_analysis.F +++ b/src/nwpw/pspw/analysis/pspw_atom_analysis.F @@ -156,3 +156,4 @@ +c $Id$ diff --git a/src/nwpw/pspw/cell_optimize/cell_optimize.F b/src/nwpw/pspw/cell_optimize/cell_optimize.F index 9b7bdfe9af..eee7bf6db4 100644 --- a/src/nwpw/pspw/cell_optimize/cell_optimize.F +++ b/src/nwpw/pspw/cell_optimize/cell_optimize.F @@ -122,3 +122,4 @@ c & CALC_ERR) end +c $Id$ diff --git a/src/nwpw/pspw/cell_optimize/cell_optimize_input.F b/src/nwpw/pspw/cell_optimize/cell_optimize_input.F index 3c808b221a..ebfbdc81d9 100644 --- a/src/nwpw/pspw/cell_optimize/cell_optimize_input.F +++ b/src/nwpw/pspw/cell_optimize/cell_optimize_input.F @@ -259,3 +259,4 @@ c return end +c $Id$ diff --git a/src/nwpw/pspw/cgsd/kp_structure.F b/src/nwpw/pspw/cgsd/kp_structure.F index f7fcb39c41..789cb87681 100644 --- a/src/nwpw/pspw/cgsd/kp_structure.F +++ b/src/nwpw/pspw/cgsd/kp_structure.F @@ -231,3 +231,4 @@ c > /' =<',3f8.3,'>') return end +c $Id$ diff --git a/src/nwpw/pspw/cpsd/cpmd_qmmm_step.F b/src/nwpw/pspw/cpsd/cpmd_qmmm_step.F index e3b204b634..0ae66868b2 100644 --- a/src/nwpw/pspw/cpsd/cpmd_qmmm_step.F +++ b/src/nwpw/pspw/cpsd/cpmd_qmmm_step.F @@ -132,3 +132,4 @@ +c $Id$ diff --git a/src/nwpw/pspw/cpsd/cpmd_qmmm_stop.F b/src/nwpw/pspw/cpsd/cpmd_qmmm_stop.F index 4d13870f23..3aa59219bc 100644 --- a/src/nwpw/pspw/cpsd/cpmd_qmmm_stop.F +++ b/src/nwpw/pspw/cpsd/cpmd_qmmm_stop.F @@ -739,3 +739,4 @@ ccc call frac_occ_end() +c $Id$ diff --git a/src/nwpw/pspw/cpsd/psi_lmbda2.f b/src/nwpw/pspw/cpsd/psi_lmbda2.f index 04a687c301..2ca965e17d 100644 --- a/src/nwpw/pspw/cpsd/psi_lmbda2.f +++ b/src/nwpw/pspw/cpsd/psi_lmbda2.f @@ -290,3 +290,4 @@ c end do end +c $Id$ diff --git a/src/nwpw/pspw/lib/coulomb/coulomb2.F b/src/nwpw/pspw/lib/coulomb/coulomb2.F index 3a05541fd9..0a3d79decf 100644 --- a/src/nwpw/pspw/lib/coulomb/coulomb2.F +++ b/src/nwpw/pspw/lib/coulomb/coulomb2.F @@ -308,3 +308,4 @@ c call D3dB_r_SMul(1,scale,vh,vh) & MA_ERR) return end +c $Id$ diff --git a/src/nwpw/pspw/lib/exchange-correlation/bnl2007_x.F b/src/nwpw/pspw/lib/exchange-correlation/bnl2007_x.F index f0515d9195..1cc113b8e1 100644 --- a/src/nwpw/pspw/lib/exchange-correlation/bnl2007_x.F +++ b/src/nwpw/pspw/lib/exchange-correlation/bnl2007_x.F @@ -253,3 +253,4 @@ c return end +c $Id$ diff --git a/src/nwpw/pspw/lib/exchange-correlation/hsepbe.F b/src/nwpw/pspw/lib/exchange-correlation/hsepbe.F index 035482ced0..383051404a 100644 --- a/src/nwpw/pspw/lib/exchange-correlation/hsepbe.F +++ b/src/nwpw/pspw/lib/exchange-correlation/hsepbe.F @@ -891,3 +891,4 @@ c ******************************************** +c $Id$ diff --git a/src/nwpw/pspw/lib/exchange-correlation/pbesol.f b/src/nwpw/pspw/lib/exchange-correlation/pbesol.f index c05a762789..c3e63df7ec 100644 --- a/src/nwpw/pspw/lib/exchange-correlation/pbesol.f +++ b/src/nwpw/pspw/lib/exchange-correlation/pbesol.f @@ -552,3 +552,4 @@ c write(*,*) "pbe96:",i,ec,fnc,fdnc return end +c $Id$ diff --git a/src/nwpw/pspw/lib/psi/psi_spin2.F b/src/nwpw/pspw/lib/psi/psi_spin2.F index 92962edbfa..bd50e42246 100644 --- a/src/nwpw/pspw/lib/psi/psi_spin2.F +++ b/src/nwpw/pspw/lib/psi/psi_spin2.F @@ -99,3 +99,4 @@ c Sab = Sexact + en(2) - Sab return end +c $Id$ diff --git a/src/nwpw/pspw/lib/psp/semicore_force_a.F b/src/nwpw/pspw/lib/psp/semicore_force_a.F index f72b974157..717fa55f54 100644 --- a/src/nwpw/pspw/lib/psp/semicore_force_a.F +++ b/src/nwpw/pspw/lib/psp/semicore_force_a.F @@ -115,3 +115,4 @@ c logocal semicore(0:nkatmx) end +c $Id$ diff --git a/src/nwpw/pspw/lib/psp/semicore_force_b.F b/src/nwpw/pspw/lib/psp/semicore_force_b.F index f472ee980d..0c0bbd9418 100644 --- a/src/nwpw/pspw/lib/psp/semicore_force_b.F +++ b/src/nwpw/pspw/lib/psp/semicore_force_b.F @@ -141,3 +141,4 @@ c logocal semicore(0:nkatmx) end +c $Id$ diff --git a/src/nwpw/pspw/qmmm/pspw_qmmm_input.F b/src/nwpw/pspw/qmmm/pspw_qmmm_input.F index b4e8d3dd32..a6de5ada56 100644 --- a/src/nwpw/pspw/qmmm/pspw_qmmm_input.F +++ b/src/nwpw/pspw/qmmm/pspw_qmmm_input.F @@ -1571,3 +1571,4 @@ c return end +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/BLCJ_Coulomb.F b/src/nwpw/pspw/water_pseudopotential/BLCJ_Coulomb.F index 7d14075395..8476c9eb8f 100644 --- a/src/nwpw/pspw/water_pseudopotential/BLCJ_Coulomb.F +++ b/src/nwpw/pspw/water_pseudopotential/BLCJ_Coulomb.F @@ -191,3 +191,4 @@ end +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/BLCJ_Inter.F b/src/nwpw/pspw/water_pseudopotential/BLCJ_Inter.F index 4529edc3a8..69beffc21d 100644 --- a/src/nwpw/pspw/water_pseudopotential/BLCJ_Inter.F +++ b/src/nwpw/pspw/water_pseudopotential/BLCJ_Inter.F @@ -522,3 +522,4 @@ DGd = (a/x +2*r*b/dsqrt(x))*dexp(-(a*r/x + b*r*r/dsqrt(x))) return end +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/BLCJ_Intra.F b/src/nwpw/pspw/water_pseudopotential/BLCJ_Intra.F index 54c597a1da..f75d3cc87f 100644 --- a/src/nwpw/pspw/water_pseudopotential/BLCJ_Intra.F +++ b/src/nwpw/pspw/water_pseudopotential/BLCJ_Intra.F @@ -252,3 +252,4 @@ end +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/BLCJ_LR.F b/src/nwpw/pspw/water_pseudopotential/BLCJ_LR.F index 780ab62324..de674a2993 100644 --- a/src/nwpw/pspw/water_pseudopotential/BLCJ_LR.F +++ b/src/nwpw/pspw/water_pseudopotential/BLCJ_LR.F @@ -292,3 +292,4 @@ +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/BLCJ_Polarization.F b/src/nwpw/pspw/water_pseudopotential/BLCJ_Polarization.F index 11cd8e075e..18fbc2217f 100644 --- a/src/nwpw/pspw/water_pseudopotential/BLCJ_Polarization.F +++ b/src/nwpw/pspw/water_pseudopotential/BLCJ_Polarization.F @@ -126,3 +126,4 @@ c do = dsqrt(xo*xo + yo*yo + zo*zo) return end +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/BLCJ_SR.F b/src/nwpw/pspw/water_pseudopotential/BLCJ_SR.F index c944b6213d..8e36f90552 100644 --- a/src/nwpw/pspw/water_pseudopotential/BLCJ_SR.F +++ b/src/nwpw/pspw/water_pseudopotential/BLCJ_SR.F @@ -261,3 +261,4 @@ return end +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/LJ_Ion.F b/src/nwpw/pspw/water_pseudopotential/LJ_Ion.F index ca63d45aae..2efe0cdeb3 100644 --- a/src/nwpw/pspw/water_pseudopotential/LJ_Ion.F +++ b/src/nwpw/pspw/water_pseudopotential/LJ_Ion.F @@ -68,3 +68,4 @@ return end +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/LJparam_Ion.F b/src/nwpw/pspw/water_pseudopotential/LJparam_Ion.F index ef6e748883..6b586be400 100644 --- a/src/nwpw/pspw/water_pseudopotential/LJparam_Ion.F +++ b/src/nwpw/pspw/water_pseudopotential/LJparam_Ion.F @@ -175,3 +175,4 @@ s = sw return end +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/water_pseudopotential_input.F b/src/nwpw/pspw/water_pseudopotential/water_pseudopotential_input.F index a566dbe33e..a6f5d155a7 100644 --- a/src/nwpw/pspw/water_pseudopotential/water_pseudopotential_input.F +++ b/src/nwpw/pspw/water_pseudopotential/water_pseudopotential_input.F @@ -302,3 +302,4 @@ c return end +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/waterpsp.F b/src/nwpw/pspw/water_pseudopotential/waterpsp.F index 84539a684c..cbece89462 100644 --- a/src/nwpw/pspw/water_pseudopotential/waterpsp.F +++ b/src/nwpw/pspw/water_pseudopotential/waterpsp.F @@ -1091,3 +1091,4 @@ return end +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/waterpsp.fh b/src/nwpw/pspw/water_pseudopotential/waterpsp.fh index df83a0099e..511dc2f8d3 100644 --- a/src/nwpw/pspw/water_pseudopotential/waterpsp.fh +++ b/src/nwpw/pspw/water_pseudopotential/waterpsp.fh @@ -9,3 +9,4 @@ common / WATER_PSP / ekw,ekw_total,ekw_count, > rwater2,rwater1,rwater0,nwater * ********************************************************** +c $Id$ diff --git a/src/nwpw/pspw/water_pseudopotential/waterpsp_param.fh b/src/nwpw/pspw/water_pseudopotential/waterpsp_param.fh index d1ff63031e..774abf46a2 100644 --- a/src/nwpw/pspw/water_pseudopotential/waterpsp_param.fh +++ b/src/nwpw/pspw/water_pseudopotential/waterpsp_param.fh @@ -21,3 +21,4 @@ real*8 Rp,Rpe,alpha common /BLCJ_param_blck/ DELTA,q1,q2,q3,Rcoul,Rp,Rpe,alpha +c $Id$ diff --git a/src/optim/deloc/deloc.F b/src/optim/deloc/deloc.F index 41fce462f9..f536665caa 100644 --- a/src/optim/deloc/deloc.F +++ b/src/optim/deloc/deloc.F @@ -51,3 +51,4 @@ c == test print out == c return end +c $Id$ diff --git a/src/optim/deloc/deloc_data.fh b/src/optim/deloc/deloc_data.fh index 916bfb9eeb..75bce2f49b 100644 --- a/src/optim/deloc/deloc_data.fh +++ b/src/optim/deloc/deloc_data.fh @@ -5,3 +5,4 @@ c ================================ c double precision smallvalue parameter (smallvalue = 1.0d-7) +c $Id$ diff --git a/src/optim/deloc/deloc_driver.F b/src/optim/deloc/deloc_driver.F index 6415e866b4..a05b0e46d2 100644 --- a/src/optim/deloc/deloc_driver.F +++ b/src/optim/deloc/deloc_driver.F @@ -201,3 +201,4 @@ c deloc_driver = .true. return end +c $Id$ diff --git a/src/optim/deloc/deloc_utils.F b/src/optim/deloc/deloc_utils.F index 2592dad606..c47838621c 100644 --- a/src/optim/deloc/deloc_utils.F +++ b/src/optim/deloc/deloc_utils.F @@ -136,3 +136,4 @@ c c return end +c $Id$ diff --git a/src/optim/neb/bead_list.fh b/src/optim/neb/bead_list.fh index c3510ec948..101de9a685 100644 --- a/src/optim/neb/bead_list.fh +++ b/src/optim/neb/bead_list.fh @@ -2,3 +2,4 @@ external size_bead_list integer nion_bead_list external nion_bead_list +c $Id$ diff --git a/src/optim/neb/neb_data.fh b/src/optim/neb/neb_data.fh index 679184124c..ed6b99ac2d 100644 --- a/src/optim/neb/neb_data.fh +++ b/src/optim/neb/neb_data.fh @@ -29,3 +29,4 @@ & c0, & c1, & dti +c $Id$ diff --git a/src/optim/neb/neb_init.F b/src/optim/neb/neb_init.F index 7ba79b8a7a..172f0cb612 100644 --- a/src/optim/neb/neb_init.F +++ b/src/optim/neb/neb_init.F @@ -191,3 +191,4 @@ c +c $Id$ diff --git a/src/optim/string/GNUmakefile b/src/optim/string/GNUmakefile index 7c65bfc992..330754ebe5 100644 --- a/src/optim/string/GNUmakefile +++ b/src/optim/string/GNUmakefile @@ -1,5 +1,5 @@ # -# $Id: GNUmakefile 19708 2010-10-29 18:04:21Z d3y133 $ +# $Id$ # OBJ_OPTIMIZE = string.o string_input.o diff --git a/src/optim/string/string.F b/src/optim/string/string.F index cbe725a70f..0c082a4dc4 100644 --- a/src/optim/string/string.F +++ b/src/optim/string/string.F @@ -1106,3 +1106,4 @@ c scale gradient ! com_interp_spline +c $Id$ diff --git a/src/optim/string/string_input.F b/src/optim/string/string_input.F index b6ec0a5a81..15674f34a3 100644 --- a/src/optim/string/string_input.F +++ b/src/optim/string/string_input.F @@ -85,3 +85,4 @@ c c end +c $Id$ diff --git a/src/optim/tropt/tropt_drv.F b/src/optim/tropt/tropt_drv.F index 8b94856887..e6054a3157 100644 --- a/src/optim/tropt/tropt_drv.F +++ b/src/optim/tropt/tropt_drv.F @@ -3163,3 +3163,4 @@ c end CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCccc CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCccc +c $Id$ diff --git a/src/peigs/src/c/clustrxx4.c b/src/peigs/src/c/clustrxx4.c index d9c10ea4c6..4b584c5f4d 100644 --- a/src/peigs/src/c/clustrxx4.c +++ b/src/peigs/src/c/clustrxx4.c @@ -170,3 +170,4 @@ Integer clustrinv4_(n, d, e, dplus, lplus, ld, lld, eval, schedule, num_clustr, return(ibad); } +/* $Id$ */ diff --git a/src/peigs/src/c/gdot.F b/src/peigs/src/c/gdot.F index c3cfd39b9a..6155ee4582 100644 --- a/src/peigs/src/c/gdot.F +++ b/src/peigs/src/c/gdot.F @@ -25,3 +25,4 @@ c gdot = s_1 return end +c $Id$ diff --git a/src/peigs/src/c/inv_it4.c b/src/peigs/src/c/inv_it4.c index b7b22d3dda..4711bec036 100644 --- a/src/peigs/src/c/inv_it4.c +++ b/src/peigs/src/c/inv_it4.c @@ -165,3 +165,4 @@ Integer inv_it4(iii, n, c1, cn, b1, bn, Zbegin, map, mapvec, vector, d, e, ld, } +/* $Id$ */ diff --git a/src/peigs/src/c/inv_it5.c b/src/peigs/src/c/inv_it5.c index 973f187015..6c50307b45 100644 --- a/src/peigs/src/c/inv_it5.c +++ b/src/peigs/src/c/inv_it5.c @@ -146,3 +146,4 @@ Integer inv_it5( n, c1, cn, b1, bn, Zbegin, map, mapvec, vector, d, e, ld, lld, } +/* $Id$ */ diff --git a/src/peigs/src/c/r_ritz.c b/src/peigs/src/c/r_ritz.c index c1999620f8..91907e6280 100644 --- a/src/peigs/src/c/r_ritz.c +++ b/src/peigs/src/c/r_ritz.c @@ -150,3 +150,4 @@ void peigs_tri_mult(n, d, e, v, w) +/* $Id$ */ diff --git a/src/peigs/src/f77/dptsvx2.f b/src/peigs/src/f77/dptsvx2.f index 05de4fee4a..658eb43bd7 100644 --- a/src/peigs/src/f77/dptsvx2.f +++ b/src/peigs/src/f77/dptsvx2.f @@ -245,3 +245,4 @@ c * End of DPTSVX * END +c $Id$ diff --git a/src/peigs/src/f77/inverm.F b/src/peigs/src/f77/inverm.F index 6ff7b5ca28..0ed7b9d724 100644 --- a/src/peigs/src/f77/inverm.F +++ b/src/peigs/src/f77/inverm.F @@ -844,3 +844,4 @@ C-----END OF LPERM------------------------------------------------- c RETURN c END +c $Id$ diff --git a/src/perfm/dist.c b/src/perfm/dist.c index c49de51312..7156fa6b50 100644 --- a/src/perfm/dist.c +++ b/src/perfm/dist.c @@ -1204,3 +1204,4 @@ void finalize_dist_(const unsigned int* id ) return; } #endif +/* $Id$ */ diff --git a/src/perfm/dist.fh b/src/perfm/dist.fh index d116751342..c83199ba15 100644 --- a/src/perfm/dist.fh +++ b/src/perfm/dist.fh @@ -1,3 +1,4 @@ c Monitoring externals integer newdist,getdist external newdist,getdist +c $Id$ diff --git a/src/perfm/dist.h b/src/perfm/dist.h index fbcdff2b54..535a1d7df2 100644 --- a/src/perfm/dist.h +++ b/src/perfm/dist.h @@ -196,3 +196,4 @@ void endtimersec_( const unsigned int* handle ); #endif /* __dist__ */ +/* $Id$ */ diff --git a/src/perfm/testdist.F b/src/perfm/testdist.F index 9e503abd45..5ca98341e9 100644 --- a/src/perfm/testdist.F +++ b/src/perfm/testdist.F @@ -23,3 +23,4 @@ stop end +c $Id$ diff --git a/src/prepar/pre_collaps.F b/src/prepar/pre_collaps.F index 81d7b375b4..793ff409b1 100644 --- a/src/prepar/pre_collaps.F +++ b/src/prepar/pre_collaps.F @@ -296,3 +296,4 @@ c return end +c $Id$ diff --git a/src/prepar/pre_crop.F b/src/prepar/pre_crop.F index 70a64d0ea2..19fadb6214 100644 --- a/src/prepar/pre_crop.F +++ b/src/prepar/pre_crop.F @@ -31,3 +31,4 @@ c return end +c $Id$ diff --git a/src/prepar/pre_master.F b/src/prepar/pre_master.F index 0eacd27e2a..e6130871bb 100644 --- a/src/prepar/pre_master.F +++ b/src/prepar/pre_master.F @@ -66,3 +66,4 @@ c pre_master=.false. return end +c $Id$ diff --git a/src/prepar/pre_wrtnoe.F b/src/prepar/pre_wrtnoe.F index 08027c18b8..d67f79aab2 100644 --- a/src/prepar/pre_wrtnoe.F +++ b/src/prepar/pre_wrtnoe.F @@ -41,3 +41,4 @@ c call md_abort('Could not open filtop to write noe',0) return end +c $Id$ diff --git a/src/prepar/pre_wrtpmf.F b/src/prepar/pre_wrtpmf.F index cc1e7f22ee..7e987d2e92 100644 --- a/src/prepar/pre_wrtpmf.F +++ b/src/prepar/pre_wrtpmf.F @@ -402,3 +402,4 @@ c call md_abort('Could not read filtop to write pmf',0) return end +c $Id$ diff --git a/src/property/ao_1prdm_read.F b/src/property/ao_1prdm_read.F index eddd128600..4c4fa302c0 100644 --- a/src/property/ao_1prdm_read.F +++ b/src/property/ao_1prdm_read.F @@ -70,3 +70,4 @@ c c end +c $Id$ diff --git a/src/property/ao_rdm_read.F b/src/property/ao_rdm_read.F index cc2d7bce4a..d0482c3f41 100644 --- a/src/property/ao_rdm_read.F +++ b/src/property/ao_rdm_read.F @@ -139,3 +139,4 @@ c goto 10 c end +c $Id$ diff --git a/src/property/aor_r1_beta.F b/src/property/aor_r1_beta.F index 04ddf9337c..90b1629271 100644 --- a/src/property/aor_r1_beta.F +++ b/src/property/aor_r1_beta.F @@ -5,7 +5,7 @@ & ,lifetime, lmagpert, g_vecE1, g_vecE1_im, alfare, alfaim, & betare, betaim) -c $Id: $ +c $Id$ c ================================================================= diff --git a/src/property/aor_r1_beta_anl.F b/src/property/aor_r1_beta_anl.F index 13bb57b2ad..79f1ae8731 100644 --- a/src/property/aor_r1_beta_anl.F +++ b/src/property/aor_r1_beta_anl.F @@ -4,7 +4,7 @@ & froct, epst, nbf, nmo, nocct, nvirt, lgiao, lquad, lanalyze, & lvelocity ,lifetime, lmagpert, g_vecE1, g_vecE1_im) -c $Id: $ +c $Id$ c ================================================================= diff --git a/src/property/aor_r1_tensor.F b/src/property/aor_r1_tensor.F index 1365849477..2a8b68fc92 100644 --- a/src/property/aor_r1_tensor.F +++ b/src/property/aor_r1_tensor.F @@ -4,7 +4,7 @@ & froct,nbf, nmo, nocct, nvirt, lgiao, lquad, lvelocity,lifetime, & lmagpert, g_vecE1, g_vecE1_im, alfare, alfaim, betare, betaim) -c $Id: $ +c $Id$ c ================================================================= diff --git a/src/property/aoresponse_beta.F b/src/property/aoresponse_beta.F index efc8a99971..0e30162b4a 100644 --- a/src/property/aoresponse_beta.F +++ b/src/property/aoresponse_beta.F @@ -5,7 +5,7 @@ & , nmo, nocct, nvirt, deps, lgiao, lquad, lvelocity, lmagpert, & lifetime, gamwidth, alfare, alfaim, betare, betaim) -c $Id: aoresponse_beta.F $ +c $Id$ c ================================================================= diff --git a/src/property/aoresponse_beta2.F b/src/property/aoresponse_beta2.F index 13641b17a5..2805869f87 100644 --- a/src/property/aoresponse_beta2.F +++ b/src/property/aoresponse_beta2.F @@ -5,7 +5,7 @@ & nbf, nmo, nocct, nvirt, deps, lgiao, lquad, lvelocity, & lmagpert, lifetime, gamwidth, alfare, alfaim, betare, betaim) -c $Id: $ +c $Id$ c ================================================================= diff --git a/src/property/aoresponse_driver_new.F b/src/property/aoresponse_driver_new.F index e921fb6009..a5e596a8a6 100644 --- a/src/property/aoresponse_driver_new.F +++ b/src/property/aoresponse_driver_new.F @@ -1,6 +1,6 @@ subroutine aoresponse_driver_new (rtdb, basis, geom) -c $Id: $ +c $Id$ c ================================================================== diff --git a/src/property/cosmo.F b/src/property/cosmo.F index f5215b3a0d..0d7311e69b 100644 --- a/src/property/cosmo.F +++ b/src/property/cosmo.F @@ -2843,3 +2843,4 @@ c if(a(n,n).eq.zero) a(n,n)=tiny return end +c $Id$ diff --git a/src/property/fiao_b1_movecs.F b/src/property/fiao_b1_movecs.F index b4a7590c9c..5696ff9619 100644 --- a/src/property/fiao_b1_movecs.F +++ b/src/property/fiao_b1_movecs.F @@ -1,6 +1,6 @@ subroutine fiao_b1_movecs(rtdb,basis,geom, g_vecB1) -c $Id: $ +c $Id$ c This routine is a modification of fiao_b1_movecs.F. We calculate c the MO vectors perturbed by a STATIC external magnetic field but diff --git a/src/property/fiao_f1_movecs.F b/src/property/fiao_f1_movecs.F index 70b7fa8f55..75f187cbc8 100644 --- a/src/property/fiao_f1_movecs.F +++ b/src/property/fiao_f1_movecs.F @@ -2,7 +2,7 @@ subroutine fiao_f1_movecs (rtdb, basis, geom, omega, lstatic, & ncomp, lvelocity, lifetime, gamwidth,g_vecF1, g_vecF1_im) -c $Id: $ +c $Id$ c ================================================================= diff --git a/src/property/giao_b1_movecs.F b/src/property/giao_b1_movecs.F index dbdab3070f..5ea6781eb4 100644 --- a/src/property/giao_b1_movecs.F +++ b/src/property/giao_b1_movecs.F @@ -1,6 +1,6 @@ subroutine giao_b1_movecs(rtdb,basis,geom, g_vecB1, g_sket1) -c $Id: $ +c $Id$ c This routine is a modification of hnd_giaox.F. Instead of c computing NMR shielding tensors we simply calculate the MO vectors diff --git a/src/property/hnd_efgmap_z4.F b/src/property/hnd_efgmap_z4.F index 4e66b92a27..a5503361e9 100644 --- a/src/property/hnd_efgmap_z4.F +++ b/src/property/hnd_efgmap_z4.F @@ -1,6 +1,6 @@ subroutine hnd_efgmap_z4(rtdb,basis,geom) c -c $Id: hnd_efgmap_z4.F 19765 2010-11-10 19:37:59Z faquino $ +c $Id$ c c This routine calculates the electric field gradient and c the orientation of the EFG for a given density at the diff --git a/src/property/hnd_elfcon_symm.F b/src/property/hnd_elfcon_symm.F index f78a081e56..c34d1b3a58 100644 --- a/src/property/hnd_elfcon_symm.F +++ b/src/property/hnd_elfcon_symm.F @@ -8,7 +8,7 @@ & nder, ! in: =2 means second derivative & efgfile) ! in: = 0 NOT NLMO/NBO =1 DO NLMO/NBO c -c $Id: hnd_elfcon.F,v 1.4 2004-12-20 22:41:07 bert Exp $ +c $Id$ c c This routine calculates the electronic contribution of the c electronic integral defined by nder for a given density at diff --git a/src/property/hnd_elfmap.F b/src/property/hnd_elfmap.F index e65d5e33cf..bb237a39a4 100644 --- a/src/property/hnd_elfmap.F +++ b/src/property/hnd_elfmap.F @@ -304,3 +304,4 @@ c 9993 format(' --- warning - electric field at ', 1 3f10.5,' . contribution from -EFC- ',i3,' ignored') end +c $Id$ diff --git a/src/property/hnd_giaox_zora.F b/src/property/hnd_giaox_zora.F index 79fa357201..d2d1d2ecd3 100644 --- a/src/property/hnd_giaox_zora.F +++ b/src/property/hnd_giaox_zora.F @@ -1,5 +1,5 @@ subroutine hnd_giaox_zora(rtdb,basis,geom) -c $Id: hnd_giaox.F,v 1.10 2007-10-15 23:31:27 bert Exp $ +c $Id$ implicit none #include "errquit.fh" #include "global.fh" diff --git a/src/property/hnd_gshift_zora.F b/src/property/hnd_gshift_zora.F index 1ff0940846..ad968fa5f4 100644 --- a/src/property/hnd_gshift_zora.F +++ b/src/property/hnd_gshift_zora.F @@ -6201,3 +6201,4 @@ c The only difference is that here natoms=1 end c -------------- for g-shift NMLO analysis ----------------- END c ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +c $Id$ diff --git a/src/property/hnd_hyperfine_zora.F b/src/property/hnd_hyperfine_zora.F index ba1cbdaac3..a34c42eeaa 100644 --- a/src/property/hnd_hyperfine_zora.F +++ b/src/property/hnd_hyperfine_zora.F @@ -1,5 +1,5 @@ subroutine hnd_hyperfine_zora(rtdb,basis,geom) -c $Id: hnd_giaox.F,v 1.10 2007-10-15 23:31:27 bert Exp $ +c $Id$ implicit none #include "errquit.fh" #include "global.fh" diff --git a/src/property/hnd_prop_dens_make.F b/src/property/hnd_prop_dens_make.F index 45c2b5c7c6..048beb4097 100644 --- a/src/property/hnd_prop_dens_make.F +++ b/src/property/hnd_prop_dens_make.F @@ -78,3 +78,4 @@ c endif c end +c $Id$ diff --git a/src/property/hnd_prp_get_dens.F b/src/property/hnd_prp_get_dens.F index 2f8d0c1196..673f25fb13 100644 --- a/src/property/hnd_prp_get_dens.F +++ b/src/property/hnd_prp_get_dens.F @@ -57,3 +57,4 @@ c c return end +c $Id$ diff --git a/src/property/hnd_prp_vec_read.F b/src/property/hnd_prp_vec_read.F index 1004de9230..3d93aae7de 100644 --- a/src/property/hnd_prp_vec_read.F +++ b/src/property/hnd_prp_vec_read.F @@ -93,3 +93,4 @@ c c return end +c $Id$ diff --git a/src/property/hnd_vec_write.F b/src/property/hnd_vec_write.F index 604d235449..fe045af76f 100644 --- a/src/property/hnd_vec_write.F +++ b/src/property/hnd_vec_write.F @@ -76,3 +76,4 @@ c write (luout,*) 'writing localized MOs to file ',trim(movecs) c return end +c $Id$ diff --git a/src/property/localization_driver.F b/src/property/localization_driver.F index 93ca1619cd..2ce498b952 100644 --- a/src/property/localization_driver.F +++ b/src/property/localization_driver.F @@ -1,6 +1,6 @@ subroutine localization_driver (rtdb, basis, geom, loctype) -c $Id: $ +c $Id$ c ================================================================== c diff --git a/src/property/raman.F b/src/property/raman.F index 6f09d43433..7856b8410f 100644 --- a/src/property/raman.F +++ b/src/property/raman.F @@ -488,3 +488,4 @@ c return end c ----------------end raman_save------------------------------------------------ +c $Id$ diff --git a/src/property/raman_input.F b/src/property/raman_input.F index e337750d08..2039eba573 100644 --- a/src/property/raman_input.F +++ b/src/property/raman_input.F @@ -122,3 +122,4 @@ c goto 10 ! While loop c end +c $Id$ diff --git a/src/property/task_raman.F b/src/property/task_raman.F index 3758b7a839..44ceaf5ca7 100644 --- a/src/property/task_raman.F +++ b/src/property/task_raman.F @@ -438,3 +438,4 @@ c c return end +c $Id$ diff --git a/src/property/wefgfile.F b/src/property/wefgfile.F index 8c712d23d5..c46a731e7c 100644 --- a/src/property/wefgfile.F +++ b/src/property/wefgfile.F @@ -36,7 +36,7 @@ c>>> that gennbo already exists and has been ported to a number of c>>> platforms. c * -* $Id: wnbofile.F,v 1.16 2004-12-03 21:50:20 bert Exp $ +* $Id$ * implicit none #include "errquit.fh" diff --git a/src/property/wgshiftfile.F b/src/property/wgshiftfile.F index 2680d0092c..ebe752da3c 100644 --- a/src/property/wgshiftfile.F +++ b/src/property/wgshiftfile.F @@ -36,7 +36,7 @@ c>>> that gennbo already exists and has been ported to a number of c>>> platforms. c * -* $Id: wnbofile.F,v 1.16 2004-12-03 21:50:20 bert Exp $ +* $Id$ * implicit none #include "errquit.fh" diff --git a/src/property/whypfile.F b/src/property/whypfile.F index 2e0227a99b..2bab3eb336 100644 --- a/src/property/whypfile.F +++ b/src/property/whypfile.F @@ -37,7 +37,7 @@ c>>> that gennbo already exists and has been ported to a number of c>>> platforms. c * -* $Id: wnbofile.F,v 1.16 2004-12-03 21:50:20 bert Exp $ +* $Id$ * implicit none #include "errquit.fh" diff --git a/src/property/wshldfile.F b/src/property/wshldfile.F index 76524cae32..310882a14b 100644 --- a/src/property/wshldfile.F +++ b/src/property/wshldfile.F @@ -38,7 +38,7 @@ c>>> that gennbo already exists and has been ported to a number of c>>> platforms. c * -* $Id: wnbofile.F,v 1.16 2004-12-03 21:50:20 bert Exp $ +* $Id$ * implicit none #include "errquit.fh" diff --git a/src/qhop/qhop_pindex.F b/src/qhop/qhop_pindex.F index dca6a42a18..4aec16ea94 100644 --- a/src/qhop/qhop_pindex.F +++ b/src/qhop/qhop_pindex.F @@ -51,3 +51,4 @@ c c return end +c $Id$ diff --git a/src/qmmm/mm_utils.F b/src/qmmm/mm_utils.F index f2ecf3ea00..60d96331f1 100644 --- a/src/qmmm/mm_utils.F +++ b/src/qmmm/mm_utils.F @@ -741,3 +741,4 @@ c > int_mb(psz+i-1) end +c $Id$ diff --git a/src/qmmm/qmmm_bq_data.F b/src/qmmm/qmmm_bq_data.F index 63b9fbbbda..edeb5d95fe 100644 --- a/src/qmmm/qmmm_bq_data.F +++ b/src/qmmm/qmmm_bq_data.F @@ -858,3 +858,4 @@ c end +c $Id$ diff --git a/src/qmmm/qmmm_check_forces.F b/src/qmmm/qmmm_check_forces.F index 855b6e04d4..d62a103a54 100644 --- a/src/qmmm/qmmm_check_forces.F +++ b/src/qmmm/qmmm_check_forces.F @@ -519,3 +519,4 @@ c end +c $Id$ diff --git a/src/qmmm/qmmm_data.F b/src/qmmm/qmmm_data.F index 366badbc17..0db1e5dc2f 100644 --- a/src/qmmm/qmmm_data.F +++ b/src/qmmm/qmmm_data.F @@ -394,3 +394,4 @@ c end +c $Id$ diff --git a/src/qmmm/qmmm_input.F b/src/qmmm/qmmm_input.F index 51e3c26321..b07fda99d2 100644 --- a/src/qmmm/qmmm_input.F +++ b/src/qmmm/qmmm_input.F @@ -816,3 +816,4 @@ c > RTDB_ERR) end +c $Id$ diff --git a/src/qmmm/qmmm_utils.fh b/src/qmmm/qmmm_utils.fh index a923cdf5d3..5a4fae8a79 100644 --- a/src/qmmm/qmmm_utils.fh +++ b/src/qmmm/qmmm_utils.fh @@ -3,3 +3,4 @@ external qmmm_map +c $Id$ diff --git a/src/rimp2/output.h b/src/rimp2/output.h index e58e2aac55..e71f82fc1c 100644 --- a/src/rimp2/output.h +++ b/src/rimp2/output.h @@ -25,3 +25,4 @@ #endif #endif +/* $Id$ */ diff --git a/src/rism/rism1d.F b/src/rism/rism1d.F index 7003b92607..cbb4e4fa1f 100644 --- a/src/rism/rism1d.F +++ b/src/rism/rism1d.F @@ -3933,3 +3933,4 @@ ccc end * ************************************************************************ +c $Id$ diff --git a/src/rism/rism_input.F b/src/rism/rism_input.F index b46515d066..b697dddf66 100644 --- a/src/rism/rism_input.F +++ b/src/rism/rism_input.F @@ -412,3 +412,4 @@ c ----------------------------------- > RTDB_ERR) end +c $Id$ diff --git a/src/rism/rism_output.F b/src/rism/rism_output.F index 33d9fd007c..2aaef5d85a 100644 --- a/src/rism/rism_output.F +++ b/src/rism/rism_output.F @@ -1,5 +1,5 @@ c -c $Id: qmmm_output.F 19708 2010-10-29 18:04:21Z d3y133 $ +c $Id$ c c subroutine rism_print_header() diff --git a/src/rism/rism_prepare.F b/src/rism/rism_prepare.F index aab0936a21..023af3b360 100644 --- a/src/rism/rism_prepare.F +++ b/src/rism/rism_prepare.F @@ -1038,3 +1038,4 @@ c ----------------------------- 30 call errquit(pname//"error reading file "//filename,0,0) 31 call errquit(pname//"premature end of file "//filename,0,0) end +c $Id$ diff --git a/src/rism/rism_thermo.F b/src/rism/rism_thermo.F index 5c001efe1a..4ca43d1c88 100644 --- a/src/rism/rism_thermo.F +++ b/src/rism/rism_thermo.F @@ -83,3 +83,4 @@ c return end c +c $Id$ diff --git a/src/rism/rism_util.F b/src/rism/rism_util.F index 8c46f7b18a..92b49f19df 100644 --- a/src/rism/rism_util.F +++ b/src/rism/rism_util.F @@ -318,3 +318,4 @@ c call util_flush(luout) return end +c $Id$ diff --git a/src/rism/task_rism.F b/src/rism/task_rism.F index 5a414e727c..62a23a1e68 100644 --- a/src/rism/task_rism.F +++ b/src/rism/task_rism.F @@ -983,3 +983,4 @@ c must be an integer power of 2 (this is not checked for!). return end subroutine +c $Id$ diff --git a/src/rtdb/hdbm/stdiof2ffio.c b/src/rtdb/hdbm/stdiof2ffio.c index 89476e6d9f..d7ed2fc99a 100644 --- a/src/rtdb/hdbm/stdiof2ffio.c +++ b/src/rtdb/hdbm/stdiof2ffio.c @@ -178,3 +178,4 @@ stdiof_fftell(FILE *stream) return ( (long)cpos ); } +/* $Id$ */ diff --git a/src/rtdb/hdbm/stdiof2ffio.h b/src/rtdb/hdbm/stdiof2ffio.h index 9a0c17d77c..a1d29992bc 100644 --- a/src/rtdb/hdbm/stdiof2ffio.h +++ b/src/rtdb/hdbm/stdiof2ffio.h @@ -19,3 +19,4 @@ extern void stdiof_ffrewind(FILE *stream); #define fseek stdiof_ffseek #define ftell stdiof_fftell #define rewind stdiof_ffrewind +/* $Id$ */ diff --git a/src/selci/selci_hpp.F b/src/selci/selci_hpp.F index bcc2085542..ed9b98f99d 100644 --- a/src/selci/selci_hpp.F +++ b/src/selci/selci_hpp.F @@ -108,3 +108,4 @@ c call ga_dgop (99, si(1, iroot), nci, '+') c 1010 continue c end +c $Id$ diff --git a/src/selci/sizes.fh b/src/selci/sizes.fh index 0c4a0720ab..213df887b2 100644 --- a/src/selci/sizes.fh +++ b/src/selci/sizes.fh @@ -29,3 +29,4 @@ supported parameter (mxorb3=maxorb*3) parameter (maxat3=maxat+3) ************************************************************************ +c $Id$ diff --git a/src/smd/include/smd_fids.fh b/src/smd/include/smd_fids.fh index c808580980..898d44d97e 100644 --- a/src/smd/include/smd_fids.fh +++ b/src/smd/include/smd_fids.fh @@ -7,3 +7,4 @@ integer i_tmm parameter(i_tmm= 1) +c $Id$ diff --git a/src/smd/smd-energy/smd_init_energy.F b/src/smd/smd-energy/smd_init_energy.F index 434800c43f..8204b882b8 100644 --- a/src/smd/smd-energy/smd_init_energy.F +++ b/src/smd/smd-energy/smd_init_energy.F @@ -164,3 +164,4 @@ c ------------------- return end +c $Id$ diff --git a/src/smd/smd-energy/task_smd_energy.F b/src/smd/smd-energy/task_smd_energy.F index d51ad723f8..1c0361b0cd 100644 --- a/src/smd/smd-energy/task_smd_energy.F +++ b/src/smd/smd-energy/task_smd_energy.F @@ -60,3 +60,4 @@ c return END +c $Id$ diff --git a/src/smd/smd-frag/smd_monomer.F b/src/smd/smd-frag/smd_monomer.F index 91fdfaf6ae..6ce6c54d12 100644 --- a/src/smd/smd-frag/smd_monomer.F +++ b/src/smd/smd-frag/smd_monomer.F @@ -391,3 +391,4 @@ c return end subroutine +c $Id$ diff --git a/src/smd/smd-frag/task_smd_fragment.F b/src/smd/smd-frag/task_smd_fragment.F index 348fd8fcd7..f2efe993b4 100644 --- a/src/smd/smd-frag/task_smd_fragment.F +++ b/src/smd/smd-frag/task_smd_fragment.F @@ -476,3 +476,4 @@ c ----------------------- return END +c $Id$ diff --git a/src/smd/smd-input/smd_input.F b/src/smd/smd-input/smd_input.F index 3d8cc2cfca..af15967335 100644 --- a/src/smd/smd-input/smd_input.F +++ b/src/smd/smd-input/smd_input.F @@ -518,3 +518,4 @@ c ----------- write(luout,*) "out ",pname return end +c $Id$ diff --git a/src/smd/smd-scheduler/armci.h b/src/smd/smd-scheduler/armci.h index 82d02a991e..65b739e120 100644 --- a/src/smd/smd-scheduler/armci.h +++ b/src/smd/smd-scheduler/armci.h @@ -441,3 +441,4 @@ void ARMCI_Ckpt_finalize(int rid); #endif /* _ARMCI_H */ +/* $Id$ */ diff --git a/src/smd/smd-scheduler/sched_groups.c b/src/smd/smd-scheduler/sched_groups.c index 16df478bf3..b75806ef91 100644 --- a/src/smd/smd-scheduler/sched_groups.c +++ b/src/smd/smd-scheduler/sched_groups.c @@ -1940,3 +1940,4 @@ void FATR sched_grp_insert_task_(Integer *serv_state, } +/* $Id$ */ diff --git a/src/smd/smd-scheduler/sched_perf.c b/src/smd/smd-scheduler/sched_perf.c index 991ea0a417..fa234ee81f 100644 --- a/src/smd/smd-scheduler/sched_perf.c +++ b/src/smd/smd-scheduler/sched_perf.c @@ -9,3 +9,4 @@ char armci_util_char_getval(char *p) { return *p; } short int armci_util_sint_getval(short int *p) { return *p; } +/* $Id$ */ diff --git a/src/smd/smdlib/smd_atom.F b/src/smd/smdlib/smd_atom.F index 414ab5ee18..f4f4cc37a2 100644 --- a/src/smd/smdlib/smd_atom.F +++ b/src/smd/smdlib/smd_atom.F @@ -562,3 +562,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_bond.F b/src/smd/smdlib/smd_bond.F index 5f239e46b2..353c95bc14 100644 --- a/src/smd/smdlib/smd_bond.F +++ b/src/smd/smdlib/smd_bond.F @@ -158,3 +158,4 @@ c ---------------- 100 continue return end +c $Id$ diff --git a/src/smd/smdlib/smd_bondlist.F b/src/smd/smdlib/smd_bondlist.F index 5be91d935f..9ed5f659c1 100644 --- a/src/smd/smdlib/smd_bondlist.F +++ b/src/smd/smdlib/smd_bondlist.F @@ -267,3 +267,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_bq.F b/src/smd/smdlib/smd_bq.F index 2917a4c212..fd5e2c2c93 100644 --- a/src/smd/smdlib/smd_bq.F +++ b/src/smd/smdlib/smd_bq.F @@ -487,3 +487,4 @@ c call bq_print_info(bq_handle) return end +c $Id$ diff --git a/src/smd/smdlib/smd_charge.F b/src/smd/smdlib/smd_charge.F index 49b699a914..7a5dc4e894 100644 --- a/src/smd/smdlib/smd_charge.F +++ b/src/smd/smdlib/smd_charge.F @@ -317,3 +317,4 @@ c > filename,result) end +c $Id$ diff --git a/src/smd/smdlib/smd_coordfile.F b/src/smd/smdlib/smd_coordfile.F index e50f1cf1aa..858cdb45f6 100644 --- a/src/smd/smdlib/smd_coordfile.F +++ b/src/smd/smdlib/smd_coordfile.F @@ -358,3 +358,4 @@ c end +c $Id$ diff --git a/src/smd/smdlib/smd_coords.F b/src/smd/smdlib/smd_coords.F index bb0c5720a8..b2ef7b6a39 100644 --- a/src/smd/smdlib/smd_coords.F +++ b/src/smd/smdlib/smd_coords.F @@ -833,3 +833,4 @@ c end if return end +c $Id$ diff --git a/src/smd/smdlib/smd_coulomb.F b/src/smd/smdlib/smd_coulomb.F index dcb4038c1c..cfc9246e6d 100644 --- a/src/smd/smdlib/smd_coulomb.F +++ b/src/smd/smdlib/smd_coulomb.F @@ -29,3 +29,4 @@ c ----------------------------- end if return END +c $Id$ diff --git a/src/smd/smdlib/smd_cutoff_data.F b/src/smd/smdlib/smd_cutoff_data.F index 14769b7c39..52d190b578 100644 --- a/src/smd/smdlib/smd_cutoff_data.F +++ b/src/smd/smdlib/smd_cutoff_data.F @@ -85,3 +85,4 @@ c end +c $Id$ diff --git a/src/smd/smdlib/smd_energy.F b/src/smd/smdlib/smd_energy.F index 4f51b30f79..b968e00ff5 100644 --- a/src/smd/smdlib/smd_energy.F +++ b/src/smd/smdlib/smd_energy.F @@ -351,3 +351,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_ewald.F b/src/smd/smdlib/smd_ewald.F index 9bfdb673e5..e6b5e55144 100644 --- a/src/smd/smdlib/smd_ewald.F +++ b/src/smd/smdlib/smd_ewald.F @@ -659,3 +659,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_ewald_generic.F b/src/smd/smdlib/smd_ewald_generic.F index 0c48627806..92d4af50d7 100644 --- a/src/smd/smdlib/smd_ewald_generic.F +++ b/src/smd/smdlib/smd_ewald_generic.F @@ -324,3 +324,4 @@ c write(*,*) q(i),q(j),ar,dr END +c $Id$ diff --git a/src/smd/smdlib/smd_exlist.F b/src/smd/smdlib/smd_exlist.F index 8398f2ce4e..1db7b51904 100644 --- a/src/smd/smdlib/smd_exlist.F +++ b/src/smd/smdlib/smd_exlist.F @@ -182,3 +182,4 @@ c ------------------------------------- return END +c $Id$ diff --git a/src/smd/smdlib/smd_force.F b/src/smd/smdlib/smd_force.F index d018a89fdb..bb83da0bee 100644 --- a/src/smd/smdlib/smd_force.F +++ b/src/smd/smdlib/smd_force.F @@ -160,3 +160,4 @@ c write(*,*) "in "//pname call smd_force_print(37) return end +c $Id$ diff --git a/src/smd/smdlib/smd_fragment.F b/src/smd/smdlib/smd_fragment.F index c0c7af1151..27fef95118 100644 --- a/src/smd/smdlib/smd_fragment.F +++ b/src/smd/smdlib/smd_fragment.F @@ -456,3 +456,4 @@ c > pname//' getting handle'//tag,0,0) return end +c $Id$ diff --git a/src/smd/smdlib/smd_geom.F b/src/smd/smdlib/smd_geom.F index f653ce3ffb..1086627e23 100644 --- a/src/smd/smdlib/smd_geom.F +++ b/src/smd/smdlib/smd_geom.F @@ -1645,3 +1645,4 @@ c end +c $Id$ diff --git a/src/smd/smdlib/smd_global.F b/src/smd/smdlib/smd_global.F index 3599c16076..461c21ff2f 100644 --- a/src/smd/smdlib/smd_global.F +++ b/src/smd/smdlib/smd_global.F @@ -572,3 +572,4 @@ c --------------- return end +c $Id$ diff --git a/src/smd/smdlib/smd_group.F b/src/smd/smdlib/smd_group.F index 180411f931..d2b1bcb0fb 100644 --- a/src/smd/smdlib/smd_group.F +++ b/src/smd/smdlib/smd_group.F @@ -632,3 +632,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_init.F b/src/smd/smdlib/smd_init.F index 4f7f3e32d2..5ed9348419 100644 --- a/src/smd/smdlib/smd_init.F +++ b/src/smd/smdlib/smd_init.F @@ -398,3 +398,4 @@ c ------------------- return end +c $Id$ diff --git a/src/smd/smdlib/smd_interface.F b/src/smd/smdlib/smd_interface.F index 9dd38accae..0691cf62c4 100644 --- a/src/smd/smdlib/smd_interface.F +++ b/src/smd/smdlib/smd_interface.F @@ -242,3 +242,4 @@ c 200 continue return end +c $Id$ diff --git a/src/smd/smdlib/smd_lat.F b/src/smd/smdlib/smd_lat.F index 6ab524f0b3..888abfd87f 100644 --- a/src/smd/smdlib/smd_lat.F +++ b/src/smd/smdlib/smd_lat.F @@ -467,3 +467,4 @@ c ------------------------- 10 continue return end +c $Id$ diff --git a/src/smd/smdlib/smd_leapf.F b/src/smd/smdlib/smd_leapf.F index 8d44df57ad..571d493717 100644 --- a/src/smd/smdlib/smd_leapf.F +++ b/src/smd/smdlib/smd_leapf.F @@ -44,3 +44,4 @@ c end +c $Id$ diff --git a/src/smd/smdlib/smd_mass.F b/src/smd/smdlib/smd_mass.F index f6cf111fb0..005501e8e5 100644 --- a/src/smd/smdlib/smd_mass.F +++ b/src/smd/smdlib/smd_mass.F @@ -111,3 +111,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_param.F b/src/smd/smdlib/smd_param.F index 295fec2568..3f56ebc0a4 100644 --- a/src/smd/smdlib/smd_param.F +++ b/src/smd/smdlib/smd_param.F @@ -114,3 +114,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_paramfile.F b/src/smd/smdlib/smd_paramfile.F index f005b33162..418ea2124f 100644 --- a/src/smd/smdlib/smd_paramfile.F +++ b/src/smd/smdlib/smd_paramfile.F @@ -485,3 +485,4 @@ c > filename,result) end +c $Id$ diff --git a/src/smd/smdlib/smd_pdb.F b/src/smd/smdlib/smd_pdb.F index 4e20f093b1..5644459144 100644 --- a/src/smd/smdlib/smd_pdb.F +++ b/src/smd/smdlib/smd_pdb.F @@ -307,3 +307,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_pot_generic.F b/src/smd/smdlib/smd_pot_generic.F index ae37104343..bdf0c0585e 100644 --- a/src/smd/smdlib/smd_pot_generic.F +++ b/src/smd/smdlib/smd_pot_generic.F @@ -144,3 +144,4 @@ c ------------------ end +c $Id$ diff --git a/src/smd/smdlib/smd_rtdb_data.F b/src/smd/smdlib/smd_rtdb_data.F index f6419f202b..f24870f9d8 100644 --- a/src/smd/smdlib/smd_rtdb_data.F +++ b/src/smd/smdlib/smd_rtdb_data.F @@ -791,3 +791,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_shakelist.F b/src/smd/smdlib/smd_shakelist.F index 30a6e9db6b..915d72b314 100644 --- a/src/smd/smdlib/smd_shakelist.F +++ b/src/smd/smdlib/smd_shakelist.F @@ -223,3 +223,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_system.F b/src/smd/smdlib/smd_system.F index 4a395f5621..fe2a93a00e 100644 --- a/src/smd/smdlib/smd_system.F +++ b/src/smd/smdlib/smd_system.F @@ -201,3 +201,4 @@ c smd_system_ndata = result return end +c $Id$ diff --git a/src/smd/smdlib/smd_system_data.F b/src/smd/smdlib/smd_system_data.F index 1cf5b5152c..1c8496f50e 100644 --- a/src/smd/smdlib/smd_system_data.F +++ b/src/smd/smdlib/smd_system_data.F @@ -124,3 +124,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_task.F b/src/smd/smdlib/smd_task.F index 256d546d9c..588d8ae94a 100644 --- a/src/smd/smdlib/smd_task.F +++ b/src/smd/smdlib/smd_task.F @@ -538,3 +538,4 @@ c write(*,*) pname//"100" end subroutine c +c $Id$ diff --git a/src/smd/smdlib/smd_task_data.fh b/src/smd/smdlib/smd_task_data.fh index 489b975bc4..461a7e8273 100644 --- a/src/smd/smdlib/smd_task_data.fh +++ b/src/smd/smdlib/smd_task_data.fh @@ -9,3 +9,4 @@ & itask +c $Id$ diff --git a/src/smd/smdlib/smd_tasklist.F b/src/smd/smdlib/smd_tasklist.F index 50883daea2..bef4eca461 100644 --- a/src/smd/smdlib/smd_tasklist.F +++ b/src/smd/smdlib/smd_tasklist.F @@ -253,3 +253,4 @@ c return end +c $Id$ diff --git a/src/smd/smdlib/smd_temper_data.F b/src/smd/smdlib/smd_temper_data.F index 357341ae1e..434b1f1c3a 100644 --- a/src/smd/smdlib/smd_temper_data.F +++ b/src/smd/smdlib/smd_temper_data.F @@ -90,3 +90,4 @@ c end +c $Id$ diff --git a/src/smd/smdlib/smd_type.F b/src/smd/smdlib/smd_type.F index 2b34ae7ad8..159aaef0f9 100644 --- a/src/smd/smdlib/smd_type.F +++ b/src/smd/smdlib/smd_type.F @@ -156,3 +156,4 @@ c write(*,*) "found match" return end +c $Id$ diff --git a/src/smd/smdlib/smd_vel.F b/src/smd/smdlib/smd_vel.F index 01e6ca5975..13f72e805b 100644 --- a/src/smd/smdlib/smd_vel.F +++ b/src/smd/smdlib/smd_vel.F @@ -468,3 +468,4 @@ c > filename,result) end +c $Id$ diff --git a/src/smd/smdlib/smd_vlist.F b/src/smd/smdlib/smd_vlist.F index 093af1e32a..356039720a 100644 --- a/src/smd/smdlib/smd_vlist.F +++ b/src/smd/smdlib/smd_vlist.F @@ -826,3 +826,4 @@ c return END +c $Id$ diff --git a/src/smd/smdlib/task_smd.F b/src/smd/smdlib/task_smd.F index 97c4ca071f..014cc44266 100644 --- a/src/smd/smdlib/task_smd.F +++ b/src/smd/smdlib/task_smd.F @@ -20,3 +20,4 @@ c task_smd = .true. return END +c $Id$ diff --git a/src/smd/smdlib/task_smd_dynamics.F b/src/smd/smdlib/task_smd_dynamics.F index a78fffa29a..e7ae8998c9 100644 --- a/src/smd/smdlib/task_smd_dynamics.F +++ b/src/smd/smdlib/task_smd_dynamics.F @@ -66,3 +66,4 @@ c return END +c $Id$ diff --git a/src/task/bsse_common.fh b/src/task/bsse_common.fh index a491416461..31027cea50 100644 --- a/src/task/bsse_common.fh +++ b/src/task/bsse_common.fh @@ -35,3 +35,4 @@ c c c common/bsse_en_d/final_spr_energy,bsse_error,spr_energy,m_error c +c $Id$ diff --git a/src/task/task_bsse.F b/src/task/task_bsse.F index d58410c81c..1d31d93c78 100644 --- a/src/task/task_bsse.F +++ b/src/task/task_bsse.F @@ -1905,3 +1905,4 @@ c c end +c $Id$ diff --git a/src/task/task_jefftce.F b/src/task/task_jefftce.F index 644d2dca0e..0efc81a77b 100644 --- a/src/task/task_jefftce.F +++ b/src/task/task_jefftce.F @@ -64,3 +64,4 @@ c task_imaginary = status c end +c $Id$ diff --git a/src/task/task_ncc.F b/src/task/task_ncc.F index 9be93f5326..6b261a0fff 100644 --- a/src/task/task_ncc.F +++ b/src/task/task_ncc.F @@ -37,3 +37,4 @@ c c print*,'end of task_ncc' c end +c $Id$ diff --git a/src/task/task_property.F b/src/task/task_property.F index ba3068581d..6a967e305a 100644 --- a/src/task/task_property.F +++ b/src/task/task_property.F @@ -31,3 +31,4 @@ c task_property = status c end +c $Id$ diff --git a/src/task/task_shell_input.F b/src/task/task_shell_input.F index f45873ecc8..de2c9b2b4c 100644 --- a/src/task/task_shell_input.F +++ b/src/task/task_shell_input.F @@ -56,3 +56,4 @@ c $ call errquit('task shell: rtdb corrupt',0, RTDB_ERR) c end +c $Id$ diff --git a/src/tce/ao_rdm_write.F b/src/tce/ao_rdm_write.F index dd72df90c6..c6002fe285 100644 --- a/src/tce/ao_rdm_write.F +++ b/src/tce/ao_rdm_write.F @@ -179,3 +179,4 @@ c goto 10 c end +c $Id$ diff --git a/src/tce/cc2_energy.F b/src/tce/cc2_energy.F index 8ed52f4d43..b4a2cb3325 100644 --- a/src/tce/cc2_energy.F +++ b/src/tce/cc2_energy.F @@ -131,3 +131,4 @@ c endif 9100 format(1x,i4,2f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/ccsd/ccsd_1prdm.F b/src/tce/ccsd/ccsd_1prdm.F index 16e716ba82..e9e4bbf7bf 100644 --- a/src/tce/ccsd/ccsd_1prdm.F +++ b/src/tce/ccsd/ccsd_1prdm.F @@ -537,3 +537,4 @@ c 1 call errquit('ccsd_1prdm: ma problem',03,ma_err) c end +c $Id$ diff --git a/src/tce/ccsd_act/GNUmakefile b/src/tce/ccsd_act/GNUmakefile index bb31cbb69e..15cafa1f9b 100644 --- a/src/tce/ccsd_act/GNUmakefile +++ b/src/tce/ccsd_act/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.4 2007/09/19 22:18:50 d3p975 Exp $ +#$Id$ OBJ_OPTIMIZE = ccsd_ea.o ccsd_t1a.o ccsd_t2a.o activity.o diff --git a/src/tce/ccsd_act/activity.F b/src/tce/ccsd_act/activity.F index e6442f09ff..163cf3d392 100644 --- a/src/tce/ccsd_act/activity.F +++ b/src/tce/ccsd_act/activity.F @@ -135,3 +135,4 @@ RETURN END +c $Id$ diff --git a/src/tce/ccsd_act/ccsd_ea.F b/src/tce/ccsd_act/ccsd_ea.F index 84ad403fce..d353d6e39e 100644 --- a/src/tce/ccsd_act/ccsd_ea.F +++ b/src/tce/ccsd_act/ccsd_ea.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_ea(d_f1,d_i0,d_t1,d_t2, &d_v2,k_f1_offset,k_i0_offset &,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: ccsd_e.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p5 h6 ) * t ( p5 h6 )_t * i1 ( h6 p5 )_f @@ -46,7 +46,7 @@ c when local copies of T1/X1 tensors are used, d_t1 refers to k_t1_local (kk) RETURN END SUBROUTINE ccsd_ea_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_e.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p5 h6 ) * t ( p5 h6 )_t * i1 ( h6 p5 )_f @@ -158,7 +158,7 @@ C i0 ( )_tf + = 1 * Sum ( p5 h6 ) * t ( p5 h6 )_t * i1 ( h6 p5 )_f RETURN END SUBROUTINE ccsd_ea_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_e.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p5 )_f + = 1 * f ( h6 p5 )_f @@ -240,7 +240,7 @@ C i1 ( h6 p5 )_f + = 1 * f ( h6 p5 )_f RETURN END SUBROUTINE OFFSET_ccsd_ea_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_e.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p5 )_f @@ -297,7 +297,7 @@ C i1 ( h6 p5 )_f SUBROUTINE ccsd_ea_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset &) -C $Id: ccsd_e.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p5 )_vt + = 1/2 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p5 )_v @@ -483,7 +483,7 @@ C i1 ( h6 p5 )_vt + = 1/2 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p5 RETURN END SUBROUTINE ccsd_ea_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_e.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/ccsd_act/ccsd_t1a.F b/src/tce/ccsd_act/ccsd_t1a.F index 14fb781d6a..bdc8422670 100644 --- a/src/tce/ccsd_act/ccsd_t1a.F +++ b/src/tce/ccsd_act/ccsd_t1a.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_t1a(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset, &k_i0_offset, &k_t1a_offset,k_t2_offset,k_v2_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -128,7 +128,7 @@ c ------------------- RETURN END SUBROUTINE ccsd_t1a_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -211,7 +211,7 @@ C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f END SUBROUTINE ccsd_t1a_2(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_f @@ -336,7 +336,7 @@ C i0 ( p2 h1 )_tf + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_f RETURN END SUBROUTINE ccsd_t1a_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f @@ -418,7 +418,7 @@ C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f RETURN END SUBROUTINE OFFSET_ccsd_t1a_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f @@ -474,7 +474,7 @@ C i1 ( h7 h1 )_f END SUBROUTINE ccsd_t1a_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ft + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h7 p3 )_f @@ -599,7 +599,7 @@ C i1 ( h7 h1 )_ft + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h7 p3 )_f RETURN END SUBROUTINE ccsd_t1a_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 )_f + = 1 * f ( h7 p3 )_f @@ -683,7 +683,7 @@ C i2 ( h7 p3 )_f + = 1 * f ( h7 p3 )_f RETURN END SUBROUTINE OFFSET_ccsd_t1a_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 )_f @@ -739,7 +739,7 @@ C i2 ( h7 p3 )_f END SUBROUTINE ccsd_t1a_2_2_2(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 p3 p5 )_v @@ -929,7 +929,7 @@ C i2 ( h7 p3 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 p3 p5 ) END SUBROUTINE ccsd_t1a_2_3(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h7 h1 p4 )_v @@ -1086,7 +1086,7 @@ C i1 ( h7 h1 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h7 h1 p4 ) END SUBROUTINE ccsd_t1a_2_4(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h7 p3 p4 )_v @@ -1276,7 +1276,7 @@ C i1 ( h7 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE ccsd_t1a_3(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_f @@ -1401,7 +1401,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_f RETURN END SUBROUTINE ccsd_t1a_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_f + = 1 * f ( p2 p3 )_f @@ -1483,7 +1483,7 @@ C i1 ( p2 p3 )_f + = 1 * f ( p2 p3 )_f RETURN END SUBROUTINE OFFSET_ccsd_t1a_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_f @@ -1539,7 +1539,7 @@ C i1 ( p2 p3 )_f END SUBROUTINE ccsd_t1a_3_2(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 p2 p3 p4 )_v @@ -1696,7 +1696,7 @@ C i1 ( p2 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 p2 p3 p4 ) END SUBROUTINE ccsd_t1a_4(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v @@ -1838,7 +1838,7 @@ C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 ) END SUBROUTINE ccsd_t1a_5(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p7 h8 ) * t ( p2 p7 h1 h8 )_t * i1 ( h8 p7 )_f @@ -1999,7 +1999,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p7 h8 ) * t ( p2 p7 h1 h8 )_t * i1 ( h8 p7 ) RETURN END SUBROUTINE ccsd_t1a_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p7 )_f + = 1 * f ( h8 p7 )_f @@ -2084,7 +2084,7 @@ C i1 ( h8 p7 )_f + = 1 * f ( h8 p7 )_f RETURN END SUBROUTINE OFFSET_ccsd_t1a_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p7 )_f @@ -2145,7 +2145,7 @@ C i1 ( h8 p7 )_f END SUBROUTINE ccsd_t1a_5_2(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 p5 p7 )_v @@ -2335,7 +2335,7 @@ C i1 ( h8 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 p5 p7 )_ END SUBROUTINE ccsd_t1a_6(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_v @@ -2500,7 +2500,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h RETURN END SUBROUTINE ccsd_t1a_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_v + = 1 * v ( h4 h5 h1 p3 )_v @@ -2609,7 +2609,7 @@ C i1 ( h4 h5 h1 p3 )_v + = 1 * v ( h4 h5 h1 p3 )_v RETURN END SUBROUTINE OFFSET_ccsd_t1a_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_v @@ -2684,7 +2684,7 @@ C i1 ( h4 h5 h1 p3 )_v END SUBROUTINE ccsd_t1a_6_2(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h4 h5 p3 p6 )_v @@ -2853,7 +2853,7 @@ C i1 ( h4 h5 h1 p3 )_vt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h4 h5 p3 p END SUBROUTINE ccsd_t1a_7(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t1.F,v 1.6 2007/09/14 18:41:34 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v diff --git a/src/tce/ccsd_act/ccsd_t2a.F b/src/tce/ccsd_act/ccsd_t2a.F index 48e20cef5f..cc87001a2a 100644 --- a/src/tce/ccsd_act/ccsd_t2a.F +++ b/src/tce/ccsd_act/ccsd_t2a.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_t2a(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset, &k_i0_offse &t,k_t1_offset,k_t2a_offset,k_v2_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -401,7 +401,7 @@ c ------------------- RETURN END SUBROUTINE ccsd_t2a_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -509,7 +509,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v END SUBROUTINE ccsd_t2a_2(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_v @@ -663,7 +663,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 RETURN END SUBROUTINE ccsd_t2a_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_v + = 1 * v ( h10 p3 h1 h2 )_v @@ -772,7 +772,7 @@ C i1 ( h10 p3 h1 h2 )_v + = 1 * v ( h10 p3 h1 h2 )_v RETURN END SUBROUTINE OFFSET_ccsd_t2a_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_v @@ -847,7 +847,7 @@ C i1 ( h10 p3 h1 h2 )_v END SUBROUTINE ccsd_t2a_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vt + = 1/2 * Sum ( h11 ) * t ( p3 h11 )_t * i2 ( h10 h11 h1 h2 )_v @@ -1001,7 +1001,7 @@ C i1 ( h10 p3 h1 h2 )_vt + = 1/2 * Sum ( h11 ) * t ( p3 h11 )_t * i2 ( h10 h RETURN END SUBROUTINE ccsd_t2a_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 h2 )_v + = -1 * v ( h10 h11 h1 h2 )_v @@ -1109,7 +1109,7 @@ C i2 ( h10 h11 h1 h2 )_v + = -1 * v ( h10 h11 h1 h2 )_v RETURN END SUBROUTINE OFFSET_ccsd_t2a_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 h2 )_v @@ -1184,7 +1184,7 @@ C i2 ( h10 h11 h1 h2 )_v END SUBROUTINE ccsd_t2a_2_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h10 h11 h2 p5 )_v @@ -1339,7 +1339,7 @@ C i2 ( h10 h11 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( RETURN END SUBROUTINE ccsd_t2a_2_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h11 h1 p5 )_v + = 1 * v ( h10 h11 h1 p5 )_v @@ -1450,7 +1450,7 @@ C i3 ( h10 h11 h1 p5 )_v + = 1 * v ( h10 h11 h1 p5 )_v RETURN END SUBROUTINE OFFSET_ccsd_t2a_2_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h11 h1 p5 )_v @@ -1525,7 +1525,7 @@ C i3 ( h10 h11 h1 p5 )_v END SUBROUTINE ccsd_t2a_2_2_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h11 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h10 h11 p5 p6 )_v @@ -1697,7 +1697,7 @@ C i3 ( h10 h11 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h10 h1 END SUBROUTINE ccsd_t2a_2_2_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 h2 )_vt + = -1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h10 h11 p7 p8 )_v @@ -1871,7 +1871,7 @@ C i2 ( h10 h11 h1 h2 )_vt + = -1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v END SUBROUTINE ccsd_t2a_2_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h10 p3 h2 p5 )_v @@ -2025,7 +2025,7 @@ C i1 ( h10 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE ccsd_t2a_2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_v + = 1 * v ( h10 p3 h1 p5 )_v @@ -2137,7 +2137,7 @@ C i2 ( h10 p3 h1 p5 )_v + = 1 * v ( h10 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_ccsd_t2a_2_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_v @@ -2212,7 +2212,7 @@ C i2 ( h10 p3 h1 p5 )_v END SUBROUTINE ccsd_t2a_2_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h10 p3 p5 p6 )_v @@ -2384,7 +2384,7 @@ C i2 ( h10 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h10 p3 END SUBROUTINE ccsd_t2a_2_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_ft + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h10 p5 )_f @@ -2540,7 +2540,7 @@ C i1 ( h10 p3 h1 h2 )_ft + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h1 RETURN END SUBROUTINE ccsd_t2a_2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f @@ -2627,7 +2627,7 @@ C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f RETURN END SUBROUTINE OFFSET_ccsd_t2a_2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f @@ -2688,7 +2688,7 @@ C i2 ( h10 p5 )_f END SUBROUTINE ccsd_t2a_2_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 )_v @@ -2881,7 +2881,7 @@ C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 END SUBROUTINE ccsd_t2a_2_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h7 p9 ) * t ( p3 p9 h1 h7 )_t * i2 ( h7 h10 h2 p9 )_v @@ -3079,7 +3079,7 @@ C i1 ( h10 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h7 p9 ) * t ( p3 p9 h1 h7 )_ RETURN END SUBROUTINE ccsd_t2a_2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 h1 p9 )_v + = 1 * v ( h7 h10 h1 p9 )_v @@ -3191,7 +3191,7 @@ C i2 ( h7 h10 h1 p9 )_v + = 1 * v ( h7 h10 h1 p9 )_v RETURN END SUBROUTINE OFFSET_ccsd_t2a_2_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 h1 p9 )_v @@ -3267,7 +3267,7 @@ C i2 ( h7 h10 h1 p9 )_v END SUBROUTINE ccsd_t2a_2_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 h10 p5 p9 )_v @@ -3440,7 +3440,7 @@ C i2 ( h7 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 h10 p5 END SUBROUTINE ccsd_t2a_2_6(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h10 p3 p5 p6 )_v @@ -3614,7 +3614,7 @@ C i1 ( h10 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE ccsd_t2a_3(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_v @@ -3765,7 +3765,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( RETURN END SUBROUTINE ccsd_t2a_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_v + = 1 * v ( p3 p4 h1 p5 )_v @@ -3871,7 +3871,7 @@ C i1 ( p3 p4 h1 p5 )_v + = 1 * v ( p3 p4 h1 p5 )_v RETURN END SUBROUTINE OFFSET_ccsd_t2a_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_v @@ -3941,7 +3941,7 @@ C i1 ( p3 p4 h1 p5 )_v END SUBROUTINE ccsd_t2a_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( p3 p4 p5 p6 )_v @@ -4107,7 +4107,7 @@ C i1 ( p3 p4 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( p3 p4 p5 END SUBROUTINE ccsd_t2a_4(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 p4 h1 h9 )_t * i1 ( h9 h2 )_f @@ -4274,7 +4274,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 p4 h1 h9 )_t * RETURN END SUBROUTINE ccsd_t2a_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_f + = 1 * f ( h9 h1 )_f @@ -4359,7 +4359,7 @@ C i1 ( h9 h1 )_f + = 1 * f ( h9 h1 )_f RETURN END SUBROUTINE OFFSET_ccsd_t2a_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_f @@ -4420,7 +4420,7 @@ C i1 ( h9 h1 )_f END SUBROUTINE ccsd_t2a_4_2(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_ft + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h9 p8 )_f @@ -4548,7 +4548,7 @@ C i1 ( h9 h1 )_ft + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h9 p8 )_f RETURN END SUBROUTINE ccsd_t2a_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f @@ -4635,7 +4635,7 @@ C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f RETURN END SUBROUTINE OFFSET_ccsd_t2a_4_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f @@ -4696,7 +4696,7 @@ C i2 ( h9 p8 )_f END SUBROUTINE ccsd_t2a_4_2_2(d_a,k_a_offset,d_b,k_b_offset, & d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_v @@ -4889,7 +4889,7 @@ C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_ END SUBROUTINE ccsd_t2a_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 h1 p6 )_v @@ -5049,7 +5049,7 @@ C i1 ( h9 h1 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 h1 p6 ) END SUBROUTINE ccsd_t2a_4_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_vt + = -1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * v ( h8 h9 p6 p7 )_v @@ -5241,7 +5241,7 @@ C i1 ( h9 h1 )_vt + = -1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * v ( h8 END SUBROUTINE ccsd_t2a_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_f @@ -5408,7 +5408,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * RETURN END SUBROUTINE ccsd_t2a_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_f + = 1 * f ( p3 p5 )_f @@ -5493,7 +5493,7 @@ C i1 ( p3 p5 )_f + = 1 * f ( p3 p5 )_f RETURN END SUBROUTINE OFFSET_ccsd_t2a_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_f @@ -5554,7 +5554,7 @@ C i1 ( p3 p5 )_f END SUBROUTINE ccsd_t2a_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 p3 p5 p6 )_v @@ -5714,7 +5714,7 @@ C i1 ( p3 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 p3 p5 p6 ) END SUBROUTINE ccsd_t2a_5_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * v ( h7 h8 p5 p6 )_v @@ -5906,7 +5906,7 @@ C i1 ( p3 p5 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * v ( h7 END SUBROUTINE ccsd_t2a_6(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * Sum ( h11 h9 ) * t ( p3 p4 h9 h11 )_t * i1 ( h9 h11 h1 h2 )_v @@ -6070,7 +6070,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * Sum ( h11 h9 ) * t ( p3 p4 h9 h11 )_t * i RETURN END SUBROUTINE ccsd_t2a_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_v + = -1 * v ( h9 h11 h1 h2 )_v @@ -6176,7 +6176,7 @@ C i1 ( h9 h11 h1 h2 )_v + = -1 * v ( h9 h11 h1 h2 )_v RETURN END SUBROUTINE OFFSET_ccsd_t2a_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_v @@ -6251,7 +6251,7 @@ C i1 ( h9 h11 h1 h2 )_v END SUBROUTINE ccsd_t2a_6_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h9 h11 h2 p8 )_v @@ -6403,7 +6403,7 @@ C i1 ( h9 h11 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( RETURN END SUBROUTINE ccsd_t2a_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_v + = 1 * v ( h9 h11 h1 p8 )_v @@ -6514,7 +6514,7 @@ C i2 ( h9 h11 h1 p8 )_v + = 1 * v ( h9 h11 h1 p8 )_v RETURN END SUBROUTINE OFFSET_ccsd_t2a_6_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_v @@ -6589,7 +6589,7 @@ C i2 ( h9 h11 h1 p8 )_v END SUBROUTINE ccsd_t2a_6_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_vt + = 1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h11 p6 p8 )_v @@ -6761,7 +6761,7 @@ C i2 ( h9 h11 h1 p8 )_vt + = 1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h11 p END SUBROUTINE ccsd_t2a_6_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h11 p5 p6 )_v @@ -6932,7 +6932,7 @@ C i1 ( h9 h11 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v END SUBROUTINE ccsd_t2a_7(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_v @@ -7138,7 +7138,7 @@ c ************** RETURN END SUBROUTINE ccsd_t2a_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_v + = 1 * v ( h6 p3 h1 p5 )_v @@ -7251,7 +7251,7 @@ c ************** RETURN END SUBROUTINE OFFSET_ccsd_t2a_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_v @@ -7332,7 +7332,7 @@ c ************ END SUBROUTINE ccsd_t2a_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 p3 p5 p7 )_v @@ -7505,7 +7505,7 @@ c ************ END SUBROUTINE ccsd_t2a_7_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vt + = -1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * v ( h6 h8 p5 p7 )_v @@ -7745,7 +7745,7 @@ c ************ END SUBROUTINE ccsd_t2a_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v @@ -7999,7 +7999,7 @@ cccx subroutine c2f_t2a_t12(d_t1,k_t1_offset, 1 d_t2,k_t2a_offset) c -c $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -8453,7 +8453,7 @@ c subroutine c2d_t2a_t12(d_t1,k_t1_offset, 1 d_t2,k_t2a_offset) c -c $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -8876,7 +8876,7 @@ c c SUBROUTINE lccsd_t2a_3x(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p3 p4 h2 p5 )_v @@ -9056,7 +9056,7 @@ c c c SUBROUTINE avt1t1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vtt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( h5 p4 h1 h2 )_vt @@ -9212,7 +9212,7 @@ cc next = NXTVAL(-nprocs) RETURN END SUBROUTINE OFFSET_avt1t1_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_vt @@ -9289,7 +9289,7 @@ C i1 ( h5 p3 h1 h2 )_vt END SUBROUTINE avt1t1_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsd_t2.F,v 1.9 2008/09/30 18:59:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_vt + = -2 * P( 2 ) * Sum ( p6 ) * t ( p6 h1 )_t * v ( h5 p3 h2 p6 )_v @@ -9464,7 +9464,7 @@ c c SUBROUTINE diag1_act2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vtt + = -1/2 * P( 2 ) * Sum ( h7 ) * t ( p3 h7 )_t * i1 ( h7 p4 h1 h2 )_vt @@ -9622,7 +9622,7 @@ cc next = NXTVAL(-nprocs) END SUBROUTINE diag1_act2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 h2 )_vt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h7 p3 p5 p6 )_v @@ -9801,7 +9801,7 @@ cc next = NXTVAL(-nprocs) RETURN END SUBROUTINE OFFSET_diag1_act2_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 h2 )_vt @@ -9884,7 +9884,7 @@ c c SUBROUTINE diag2_act2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vttt + = 1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( h5 p4 h1 h2 )_vtt @@ -10042,7 +10042,7 @@ cc next = NXTVAL(-nprocs) END SUBROUTINE diag2_act2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_vtt + = 1/2 * P( 2 ) * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p3 h2 p6 )_vt @@ -10202,7 +10202,7 @@ cc next = NXTVAL(-nprocs) RETURN END SUBROUTINE OFFSET_diag2_act2_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_vtt @@ -10279,7 +10279,7 @@ C i1 ( h5 p3 h1 h2 )_vtt END SUBROUTINE diag2_act2_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p3 h1 p6 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h5 p3 p6 p7 )_v @@ -10453,7 +10453,7 @@ cc next = NXTVAL(-nprocs) RETURN END SUBROUTINE OFFSET_diag2_act2_1_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p3 h1 p6 )_vt diff --git a/src/tce/ccsd_energy_loc.F b/src/tce/ccsd_energy_loc.F index da61a1df74..64e150dac1 100644 --- a/src/tce/ccsd_energy_loc.F +++ b/src/tce/ccsd_energy_loc.F @@ -172,3 +172,4 @@ c write(LuOut,9101) cpusecs(37),cpusecs(38) 9700 format(1x,'Skipping CCSD altogether') end +c $Id$ diff --git a/src/tce/ccsd_imaginary.F b/src/tce/ccsd_imaginary.F index 10f61f237e..a563870ff3 100644 --- a/src/tce/ccsd_imaginary.F +++ b/src/tce/ccsd_imaginary.F @@ -1812,3 +1812,4 @@ c c==================================================================== #endif c +c $Id$ diff --git a/src/tce/ccsd_lambda.F b/src/tce/ccsd_lambda.F index 224c902b6d..94afbcd1a2 100644 --- a/src/tce/ccsd_lambda.F +++ b/src/tce/ccsd_lambda.F @@ -314,3 +314,4 @@ c xxx, xxy, xxz, yyx, xyz, zzx, yyy, zzy, zzz 2 1x,'XYZ ',2f15.7,/ 3 1x,'--------------------------------') end +c $Id$ diff --git a/src/tce/ccsd_lr_alpha.F b/src/tce/ccsd_lr_alpha.F index fd4ca9e3ef..7c4ceae566 100644 --- a/src/tce/ccsd_lr_alpha.F +++ b/src/tce/ccsd_lr_alpha.F @@ -794,3 +794,4 @@ c c==================================================================== #endif c +c $Id$ diff --git a/src/tce/ccsd_qr_beta.F b/src/tce/ccsd_qr_beta.F index 26ad414ccc..7f3e815772 100644 --- a/src/tce/ccsd_qr_beta.F +++ b/src/tce/ccsd_qr_beta.F @@ -994,3 +994,4 @@ c 9440 format(1x,A3,' axis ( ',A4,'symmetry)') return end +c $Id$ diff --git a/src/tce/ccsd_t/ccsd_t_sse2.c b/src/tce/ccsd_t/ccsd_t_sse2.c index 8966c3ef17..4008261523 100644 --- a/src/tce/ccsd_t/ccsd_t_sse2.c +++ b/src/tce/ccsd_t/ccsd_t_sse2.c @@ -353,3 +353,4 @@ void ccsd_t_sse2_unaligned_(int range_p4, int range_p5, int range_p6, } #endif +/* $Id$ */ diff --git a/src/tce/ccsdt/acolo.F b/src/tce/ccsdt/acolo.F index 78bb6c0b6a..273f357390 100644 --- a/src/tce/ccsdt/acolo.F +++ b/src/tce/ccsdt/acolo.F @@ -27,3 +27,4 @@ c if(iocc.ge.numact.and.ivirt.ge.numact) acolo=.true. RETURN END +c $Id$ diff --git a/src/tce/ccsdt/acolo_1a_2h.F b/src/tce/ccsdt/acolo_1a_2h.F index c5cdcfabac..e2c349ff54 100644 --- a/src/tce/ccsdt/acolo_1a_2h.F +++ b/src/tce/ccsdt/acolo_1a_2h.F @@ -15,3 +15,4 @@ c if(io1.ge.numact-2) acolo_1a_2h = .true. RETURN END +c $Id$ diff --git a/src/tce/ccsdt/acolo_1h.F b/src/tce/ccsdt/acolo_1h.F index 4c028d7bfe..61314d35e0 100644 --- a/src/tce/ccsdt/acolo_1h.F +++ b/src/tce/ccsdt/acolo_1h.F @@ -14,3 +14,4 @@ c if(iocc_o.ge.numact-2) acolo_1h=.true. RETURN END +c $Id$ diff --git a/src/tce/ccsdt/acolo_1p.F b/src/tce/ccsdt/acolo_1p.F index 2bd6c8dfc5..477d226874 100644 --- a/src/tce/ccsdt/acolo_1p.F +++ b/src/tce/ccsdt/acolo_1p.F @@ -14,3 +14,4 @@ c if(iocc_v.ge.numact-2) acolo_1p=.true. RETURN END +c $Id$ diff --git a/src/tce/ccsdt/acolo_1p_1h.F b/src/tce/ccsdt/acolo_1p_1h.F index cf48364940..ab8edbe2df 100644 --- a/src/tce/ccsdt/acolo_1p_1h.F +++ b/src/tce/ccsdt/acolo_1p_1h.F @@ -17,3 +17,4 @@ c if(iocc_o.ge.numact-2.and.iocc_v.ge.numact-2) acolo_1p_1h=.true. RETURN END +c $Id$ diff --git a/src/tce/ccsdt/acolo_1p_2h.F b/src/tce/ccsdt/acolo_1p_2h.F index 5919c348dc..2587cb5b56 100644 --- a/src/tce/ccsdt/acolo_1p_2h.F +++ b/src/tce/ccsdt/acolo_1p_2h.F @@ -18,3 +18,4 @@ c if(iocc_o.ge.numact-1.and.iocc_v.ge.numact-2) acolo_1p_2h=.true. RETURN END +c $Id$ diff --git a/src/tce/ccsdt/acolo_2h.F b/src/tce/ccsdt/acolo_2h.F index 2f25bfed10..10d3bf599d 100644 --- a/src/tce/ccsdt/acolo_2h.F +++ b/src/tce/ccsdt/acolo_2h.F @@ -15,3 +15,4 @@ c if(iocc_o.ge.numact-1) acolo_2h=.true. RETURN END +c $Id$ diff --git a/src/tce/ccsdt/acolo_2p_1h.F b/src/tce/ccsdt/acolo_2p_1h.F index 6a3253ddaf..e429214b8b 100644 --- a/src/tce/ccsdt/acolo_2p_1h.F +++ b/src/tce/ccsdt/acolo_2p_1h.F @@ -18,3 +18,4 @@ c if(iocc_o.ge.numact-2.and.iocc_v.ge.numact-1) acolo_2p_1h=.true. RETURN END +c $Id$ diff --git a/src/tce/ccsdt/acolo_o.F b/src/tce/ccsdt/acolo_o.F index fde3b0d6fc..3eae544411 100644 --- a/src/tce/ccsdt/acolo_o.F +++ b/src/tce/ccsdt/acolo_o.F @@ -19,3 +19,4 @@ c if(iocc.ge.numact) acolo_o=.true. RETURN END +c $Id$ diff --git a/src/tce/ccsdt/acolo_o_1p.F b/src/tce/ccsdt/acolo_o_1p.F index 7e7a2421a4..4955a5be79 100644 --- a/src/tce/ccsdt/acolo_o_1p.F +++ b/src/tce/ccsdt/acolo_o_1p.F @@ -22,3 +22,4 @@ c if(iocc_o.ge.numact.and.iocc_v.ge.numact-2) acolo_o_1p=.true. RETURN END +c $Id$ diff --git a/src/tce/ccsdt/acolo_o_2p.F b/src/tce/ccsdt/acolo_o_2p.F index fac6a15190..eee34c3a8d 100644 --- a/src/tce/ccsdt/acolo_o_2p.F +++ b/src/tce/ccsdt/acolo_o_2p.F @@ -21,3 +21,4 @@ c if(iocc_o.ge.numact.and.iocc_v.ge.numact-1) acolo_o_2p=.true. RETURN END +c $Id$ diff --git a/src/tce/cis/cis.F b/src/tce/cis/cis.F index 0b0c4e34cc..eae0a66dbb 100644 --- a/src/tce/cis/cis.F +++ b/src/tce/cis/cis.F @@ -134,3 +134,4 @@ ccx 1'--------------------------------------------------------------' 2,/,1x,'Iterations converged') end +c $Id$ diff --git a/src/tce/cr_eomccsd_t_act/GNUmakefile b/src/tce/cr_eomccsd_t_act/GNUmakefile index a8c7a8efa2..ed9aae0e21 100644 --- a/src/tce/cr_eomccsd_t_act/GNUmakefile +++ b/src/tce/cr_eomccsd_t_act/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.3 2007/09/14 18:40:57 kowalski Exp $ +#$Id$ OBJ_OPTIMIZE = cr_ccsd_t_E_act.o cr_eomccsd_t_act.o q3rexpt2_act.o \ cr_ccsd_t_N_act.o creomccsd_t_n2_act_mem.o \ diff --git a/src/tce/cr_eomccsd_t_act/ccsd_t_d_act.F b/src/tce/cr_eomccsd_t_act/ccsd_t_d_act.F index 4d981da632..ec2a8f4476 100644 --- a/src/tce/cr_eomccsd_t_act/ccsd_t_d_act.F +++ b/src/tce/cr_eomccsd_t_act/ccsd_t_d_act.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_t_d_act(a_i0,d_t2,d_v2,k_t2_offset,k_v2_offset,t &_h1b,t_h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: ccsd_t_d_act.F,v 1.2 2006/07/14 19:15:58 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * v ( h7 p6 h2 h3 )_v @@ -31,7 +31,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 END SUBROUTINE ccsd_t_d_act_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4 &b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: ccsd_t_d_act.F,v 1.2 2006/07/14 19:15:58 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * v ( h7 p6 h2 h3 )_v @@ -286,7 +286,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 END SUBROUTINE ccsd_t_d_act_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4 &b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: ccsd_t_d_act.F,v 1.2 2006/07/14 19:15:58 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * v ( p5 p6 h3 p7 )_v diff --git a/src/tce/cr_eomccsd_t_act/cr_ccsd_t_E_act.F b/src/tce/cr_eomccsd_t_act/cr_ccsd_t_E_act.F index cdd6ccbe06..8df20aafed 100644 --- a/src/tce/cr_eomccsd_t_act/cr_ccsd_t_E_act.F +++ b/src/tce/cr_eomccsd_t_act/cr_ccsd_t_E_act.F @@ -2,7 +2,7 @@ &k_t1_offset, &k_t2_offset,l_i1_offset_2,t_h1b,t_h2b,t_h3b,t_p4b,t_p5b,t_p6b &,toggle) -C $Id: cr_ccsd_t_E_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tt + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * t ( p6 h3 )_t @@ -52,7 +52,7 @@ C i1 ( p4 p5 h1 h2 )_tt + = -1/4 * P( 4 ) * t ( p4 h1 )_t * t ( p5 h2 )_ END SUBROUTINE cr_ccsd_t_E_act_1(d_a,k_a_offset,d_b,k_b_offset,a_c, &t_p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_ccsd_t_E_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tt + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * t ( p6 h3 )_t @@ -389,7 +389,7 @@ c END SUBROUTINE cr_ccsd_t_E_act_2(d_a,k_a_offset,d_b,k_b_offset, &a_c,t_p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_ccsd_t_E_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ttt + = -2/3 * P( 9 ) * t ( p4 h1 )_t * i1 ( p5 p6 h2 h3 )_tt @@ -727,7 +727,7 @@ c END SUBROUTINE cr_ccsd_t_E_act_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_E_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 h2 )_tt + = -1/4 * P( 4 ) * t ( p4 h1 )_t * t ( p5 h2 )_t @@ -895,7 +895,7 @@ C i1 ( p4 p5 h1 h2 )_tt + = -1/4 * P( 4 ) * t ( p4 h1 )_t * t ( p5 h2 )_t RETURN END SUBROUTINE OFFSET_cr_ccsd_t_E_act_2_1(l_a_offset,k_a_offset,size) -C $Id: cr_ccsd_t_E_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 h2 )_tt diff --git a/src/tce/cr_eomccsd_t_act/cr_ccsd_t_N_act.F b/src/tce/cr_eomccsd_t_act/cr_ccsd_t_N_act.F index 40f810aeba..270cfd3867 100644 --- a/src/tce/cr_eomccsd_t_act/cr_ccsd_t_N_act.F +++ b/src/tce/cr_eomccsd_t_act/cr_ccsd_t_N_act.F @@ -3,7 +3,7 @@ &k_i1_offset_1,k_i1_offset_2,k_t1_offset,k_t2_offset,k_v2_o &ffset,l_i1_offset_1,l_i1_offset_2,t_h1b,t_h2b,t_h3b,t_p4b,t_p5b,t_ &p6b,toggle) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h11 ) * t ( p4 p5 h1 h11 )_t * i1 ( h11 p6 h2 h3 )_v @@ -256,7 +256,7 @@ C i1 ( p4 p5 h1 p12 )_vt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h END SUBROUTINE cr_ccsd_t_N_act_1(d_a,k_a_offset,d_b,k_b_offset,a_c, &t_p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h11 ) * t ( p4 p5 h1 h11 )_t * i1 ( h11 p6 h2 h3 )_v @@ -625,7 +625,7 @@ c SUBROUTINE cr_ccsd_t_N_act_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_v + = 1 * v ( h11 p4 h1 h2 )_v @@ -737,7 +737,7 @@ C i1 ( h11 p4 h1 h2 )_v + = 1 * v ( h11 p4 h1 h2 )_v RETURN END SUBROUTINE OFFSET_cr_ccsd_t_N_act_1_1(l_a_offset,k_a_offset,size) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_v @@ -813,7 +813,7 @@ C i1 ( h11 p4 h1 h2 )_v END SUBROUTINE cr_ccsd_t_N_act_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h11 h1 h2 )_v @@ -971,7 +971,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h11 h1 RETURN END SUBROUTINE cr_ccsd_t_N_act_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_v + = 1 * v ( h7 h11 h1 h2 )_v @@ -1082,7 +1082,7 @@ C i2 ( h7 h11 h1 h2 )_v + = 1 * v ( h7 h11 h1 h2 )_v END SUBROUTINE OFFSET_cr_ccsd_t_N_act_1_2_1(l_a_offset,k_a_offset, & size) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_v @@ -1158,7 +1158,7 @@ C i2 ( h7 h11 h1 h2 )_v END SUBROUTINE cr_ccsd_t_N_act_1_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h7 h11 h2 p8 )_v @@ -1315,7 +1315,7 @@ C i2 ( h7 h11 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( RETURN END SUBROUTINE cr_ccsd_t_N_act_1_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p8 )_v + = 1 * v ( h7 h11 h1 p8 )_v @@ -1428,7 +1428,7 @@ C i3 ( h7 h11 h1 p8 )_v + = 1 * v ( h7 h11 h1 p8 )_v END SUBROUTINE OFFSET_cr_ccsd_t_N_act_1_2_2_1(l_a_offset,k_a_offset, & size) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p8 )_v @@ -1504,7 +1504,7 @@ C i3 ( h7 h11 h1 p8 )_v END SUBROUTINE cr_ccsd_t_N_act_1_2_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h11 p8 p9 )_v @@ -1677,7 +1677,7 @@ C i3 ( h7 h11 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h11 END SUBROUTINE cr_ccsd_t_N_act_1_2_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h7 h11 p8 p9 )_v @@ -1853,7 +1853,7 @@ C i2 ( h7 h11 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( END SUBROUTINE cr_ccsd_t_N_act_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h11 p4 h2 p9 )_v @@ -2012,7 +2012,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( RETURN END SUBROUTINE cr_ccsd_t_N_act_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p9 )_v + = 1 * v ( h11 p4 h1 p9 )_v @@ -2126,7 +2126,7 @@ C i2 ( h11 p4 h1 p9 )_v + = 1 * v ( h11 p4 h1 p9 )_v END SUBROUTINE OFFSET_cr_ccsd_t_N_act_1_3_1(l_a_offset,k_a_offset, & size) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p9 )_v @@ -2202,7 +2202,7 @@ C i2 ( h11 p4 h1 p9 )_v END SUBROUTINE cr_ccsd_t_N_act_1_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p9 )_v @@ -2376,7 +2376,7 @@ C i2 ( h11 p4 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p END SUBROUTINE cr_ccsd_t_N_act_1_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_ft + = -1 * Sum ( p12 ) * t ( p4 p12 h1 h2 )_t * i2 ( h11 p12 )_f @@ -2537,7 +2537,7 @@ C i1 ( h11 p4 h1 h2 )_ft + = -1 * Sum ( p12 ) * t ( p4 p12 h1 h2 )_t * i2 ( RETURN END SUBROUTINE cr_ccsd_t_N_act_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p12 )_f + = 1 * f ( h11 p12 )_f @@ -2627,7 +2627,7 @@ C i2 ( h11 p12 )_f + = 1 * f ( h11 p12 )_f END SUBROUTINE OFFSET_cr_ccsd_t_N_act_1_4_1(l_a_offset,k_a_offset, &size) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p12 )_f @@ -2689,7 +2689,7 @@ C i2 ( h11 p12 )_f END SUBROUTINE cr_ccsd_t_N_act_1_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p12 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h10 h11 p9 p12 )_v @@ -2885,7 +2885,7 @@ C i2 ( h11 p12 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h10 h11 p9 END SUBROUTINE cr_ccsd_t_N_act_1_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h11 h2 p8 )_v @@ -3088,7 +3088,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_ RETURN END SUBROUTINE cr_ccsd_t_N_act_1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_v + = 1 * v ( h9 h11 h1 p8 )_v @@ -3202,7 +3202,7 @@ C i2 ( h9 h11 h1 p8 )_v + = 1 * v ( h9 h11 h1 p8 )_v END SUBROUTINE OFFSET_cr_ccsd_t_N_act_1_5_1(l_a_offset,k_a_offset, &size) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_v @@ -3278,7 +3278,7 @@ C i2 ( h9 h11 h1 p8 )_v END SUBROUTINE cr_ccsd_t_N_act_1_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_vt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h9 h11 p8 p10 )_v @@ -3451,7 +3451,7 @@ C i2 ( h9 h11 h1 p8 )_vt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h9 h11 END SUBROUTINE cr_ccsd_t_N_act_1_6(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h11 p4 p8 p9 )_v @@ -3630,7 +3630,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( END SUBROUTINE cr_ccsd_t_N_act_2(d_a,k_a_offset,d_b,k_b_offset,a_c, &t_p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p12 ) * t ( p4 p12 h1 h2 )_t * i1 ( p5 p6 h3 p12 )_v @@ -3998,7 +3998,7 @@ c RETURN END SUBROUTINE cr_ccsd_t_N_act_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_v + = 1 * v ( p4 p5 h1 p12 )_v @@ -4111,7 +4111,7 @@ C i1 ( p4 p5 h1 p12 )_v + = 1 * v ( p4 p5 h1 p12 )_v RETURN END SUBROUTINE OFFSET_cr_ccsd_t_N_act_2_1(l_a_offset,k_a_offset,size) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_v @@ -4187,7 +4187,7 @@ C i1 ( p4 p5 h1 p12 )_v END SUBROUTINE cr_ccsd_t_N_act_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 p5 h1 p12 )_v @@ -4346,7 +4346,7 @@ C i1 ( p4 p5 h1 p12 )_vt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p4 h11 )_t * i2 RETURN END SUBROUTINE cr_ccsd_t_N_act_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v @@ -4460,7 +4460,7 @@ C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v END SUBROUTINE OFFSET_cr_ccsd_t_N_act_2_2_1(l_a_offset,k_a_offset, &size) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v @@ -4536,7 +4536,7 @@ C i2 ( h11 p4 h1 p12 )_v END SUBROUTINE cr_ccsd_t_N_act_2_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 h1 p12 )_v @@ -4694,7 +4694,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 RETURN END SUBROUTINE cr_ccsd_t_N_act_2_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h11 h1 p12 )_v + = 1 * v ( h8 h11 h1 p12 )_v @@ -4807,7 +4807,7 @@ C i3 ( h8 h11 h1 p12 )_v + = 1 * v ( h8 h11 h1 p12 )_v END SUBROUTINE OFFSET_cr_ccsd_t_N_act_2_2_2_1(l_a_offset,k_a_offset, &size) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h11 h1 p12 )_v @@ -4883,7 +4883,7 @@ C i3 ( h8 h11 h1 p12 )_v END SUBROUTINE cr_ccsd_t_N_act_2_2_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h11 h1 p12 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p9 p12 )_v @@ -5056,7 +5056,7 @@ C i3 ( h8 h11 h1 p12 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p9 END SUBROUTINE cr_ccsd_t_N_act_2_2_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p12 )_v @@ -5230,7 +5230,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 END SUBROUTINE cr_ccsd_t_N_act_2_2_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h11 p8 p12 )_v @@ -5467,7 +5467,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( END SUBROUTINE cr_ccsd_t_N_act_2_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( p4 p5 p8 p12 )_v @@ -5643,7 +5643,7 @@ C i1 ( p4 p5 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( p4 p5 p8 p END SUBROUTINE cr_ccsd_t_N_act_2_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p12 )_v @@ -5812,7 +5812,7 @@ C i1 ( p4 p5 h1 p12 )_vt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 RETURN END SUBROUTINE cr_ccsd_t_N_act_2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p12 )_v + = 1 * v ( h8 h9 h1 p12 )_v @@ -5926,7 +5926,7 @@ C i2 ( h8 h9 h1 p12 )_v + = 1 * v ( h8 h9 h1 p12 )_v END SUBROUTINE OFFSET_cr_ccsd_t_N_act_2_4_1(l_a_offset,k_a_offset, &size) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p12 )_v @@ -6002,7 +6002,7 @@ C i2 ( h8 h9 h1 p12 )_v END SUBROUTINE cr_ccsd_t_N_act_2_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p12 )_vt + = 1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h8 h9 p10 p12 )_v @@ -6176,7 +6176,7 @@ C i2 ( h8 h9 h1 p12 )_vt + = 1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h8 h9 p1 END SUBROUTINE cr_ccsd_t_N_act_2_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: cr_ccsd_t_N_act.F,v 1.2 2008/07/17 21:48:08 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 p5 p8 p12 )_v diff --git a/src/tce/cr_eomccsd_t_act/cr_eomccsd_t_act.F b/src/tce/cr_eomccsd_t_act/cr_eomccsd_t_act.F index e99f650e9e..0f6de7fe5c 100644 --- a/src/tce/cr_eomccsd_t_act/cr_eomccsd_t_act.F +++ b/src/tce/cr_eomccsd_t_act/cr_eomccsd_t_act.F @@ -8,7 +8,7 @@ 7 d_c2,k_c2_offset,size_c2, 8 excit,energy1,energy2,size_t1,size_x1) C -C $Id: cr_eomccsd_t.F,v 1.4 2008/07/17 21:48:12 marat Exp $ +C $Id$ C c from this point on we assume that corresponding one- and two- c body components of R(d_x1,d_x2) and T(d_t1,d_t2) operators, diff --git a/src/tce/cr_eomccsd_t_act/cr_eomccsd_tasim.F b/src/tce/cr_eomccsd_t_act/cr_eomccsd_tasim.F index d3ea6d34c7..2017fb3ad9 100644 --- a/src/tce/cr_eomccsd_t_act/cr_eomccsd_tasim.F +++ b/src/tce/cr_eomccsd_t_act/cr_eomccsd_tasim.F @@ -8,7 +8,7 @@ 7 d_c2,k_c2_offset,size_c2, 8 excit,energy1,energy2,size_t1,size_x1) C -C $Id: cr_eomccsd_t.F,v 1.4 2008/07/17 21:48:12 marat Exp $ +C $Id$ C c from this point on we assume that corresponding one- and two- c body components of R(d_x1,d_x2) and T(d_t1,d_t2) operators, diff --git a/src/tce/cr_eomccsd_t_act/cr_eomt_simac.F b/src/tce/cr_eomccsd_t_act/cr_eomt_simac.F index b491fd6158..55f3dbbd38 100644 --- a/src/tce/cr_eomccsd_t_act/cr_eomt_simac.F +++ b/src/tce/cr_eomccsd_t_act/cr_eomt_simac.F @@ -2,7 +2,7 @@ &i1_offset_1,k_i1_offset_2,k_t2_offset,k_v2_offset,k_x1_offset,k_x2 &_offset,l_i1_offset_1,l_i1_offset_2,t_h1b,t_h2b,t_h3b,t_p4b,t_p5b, &t_p6b,toggle) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * i1 ( h7 p6 h2 h3 )_vx @@ -86,7 +86,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 END SUBROUTINE cr_eomt_simac_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b &,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * i1 ( h7 p6 h2 h3 )_vx @@ -333,7 +333,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h END SUBROUTINE cr_eomt_simac_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p4 h8 )_x * v ( h7 h8 h1 h2 )_v @@ -510,7 +510,7 @@ cc next = NXTVAL(-nprocs) RETURN END SUBROUTINE OFFSET_cr_eomt_simac_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 h1 h2 )_vx @@ -588,7 +588,7 @@ C i1 ( h7 p4 h1 h2 )_vx END SUBROUTINE cr_eomt_simac_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h7 p4 h2 p8 )_v @@ -761,7 +761,7 @@ cc next = NXTVAL(-nprocs) END SUBROUTINE cr_eomt_simac_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b &,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 2 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_vx @@ -1008,7 +1008,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 2 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 END SUBROUTINE cr_eomt_simac_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * P( 2 ) * Sum ( h8 ) * x ( p4 h8 )_x * v ( h8 p5 h1 p7 )_v @@ -1180,7 +1180,7 @@ cc next = NXTVAL(-nprocs) RETURN END SUBROUTINE OFFSET_cr_eomt_simac_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx @@ -1258,7 +1258,7 @@ C i1 ( p4 p5 h1 p7 )_vx END SUBROUTINE cr_eomt_simac_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p8 )_v @@ -1436,7 +1436,7 @@ cc next = NXTVAL(-nprocs) END SUBROUTINE cr_eomt_simac_3(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b &,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -1691,7 +1691,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 END SUBROUTINE cr_eomt_simac_4(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b &,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * v ( p5 p6 h3 p7 )_v diff --git a/src/tce/cr_eomccsd_t_act/creomccsd_t_n2_act_mem.F b/src/tce/cr_eomccsd_t_act/creomccsd_t_n2_act_mem.F index cc81c8822a..dbbb1db394 100644 --- a/src/tce/cr_eomccsd_t_act/creomccsd_t_n2_act_mem.F +++ b/src/tce/cr_eomccsd_t_act/creomccsd_t_n2_act_mem.F @@ -3,7 +3,7 @@ &_i1_offset_3,k_i1_offset_4,k_t1_offset,k_t2_offset,k_v2_offset,k_x &1_offset,k_x2_offset,l_i1_offset_1,l_i1_offset_2,l_i1_offset_3,l_i &1_offset_4,t_h1b,t_h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx @@ -594,7 +594,7 @@ c d_x1 refers to k_x1_local END SUBROUTINE creomsd_tact_mem_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx @@ -964,7 +964,7 @@ c END SUBROUTINE creomsd_tact_mem_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 h1 h2 )_v @@ -1122,7 +1122,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 RETURN END SUBROUTINE OFFSET_creomsd_tact_mem_1_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx @@ -1199,7 +1199,7 @@ C i1 ( h12 p4 h1 h2 )_vx RETURN END SUBROUTINE creomsd_tact_mem_1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v @@ -1309,7 +1309,7 @@ C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_1_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v @@ -1385,7 +1385,7 @@ C i2 ( h12 h13 h1 h2 )_v END SUBROUTINE creomsd_tact_mem_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h12 h13 h2 p9 )_v @@ -1541,7 +1541,7 @@ C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( RETURN END SUBROUTINE creomsd_tact_mem_1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v @@ -1654,7 +1654,7 @@ C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_1_1_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v @@ -1730,7 +1730,7 @@ C i3 ( h12 h13 h1 p9 )_v END SUBROUTINE creomsd_tact_mem_1_1_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 p8 p9 )_v @@ -1903,7 +1903,7 @@ C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 END SUBROUTINE creomsd_tact_mem_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h12 h13 p8 p9 )_v @@ -2078,7 +2078,7 @@ C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v END SUBROUTINE creomsd_tact_mem_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v @@ -2246,7 +2246,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( END SUBROUTINE creomsd_tact_mem_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h12 h1 h2 )_vx @@ -2405,7 +2405,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h12 h END SUBROUTINE creomsd_tact_mem_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 h12 h2 p9 )_v @@ -2571,7 +2571,7 @@ C i2 ( h7 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v END SUBROUTINE OFFSET_creomsd_tact_mem_1_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx @@ -2649,7 +2649,7 @@ C i2 ( h7 h12 h1 h2 )_vx END SUBROUTINE creomsd_tact_mem_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h7 h12 h2 p8 )_vx @@ -2806,7 +2806,7 @@ C i2 ( h7 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 END SUBROUTINE creomsd_tact_mem_1_3_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h12 p8 p10 )_v @@ -2979,7 +2979,7 @@ C i3 ( h7 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h12 p END SUBROUTINE OFFSET_creomsd_tact_mem_1_3_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h12 h1 p8 )_vx @@ -3057,7 +3057,7 @@ C i3 ( h7 h12 h1 p8 )_vx END SUBROUTINE creomsd_tact_mem_1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h7 h12 p9 p10 )_v @@ -3232,7 +3232,7 @@ C i2 ( h7 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v END SUBROUTINE creomsd_tact_mem_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx @@ -3391,7 +3391,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 END SUBROUTINE creomsd_tact_mem_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v @@ -3564,7 +3564,7 @@ C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 END SUBROUTINE OFFSET_creomsd_tact_mem_1_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx @@ -3642,7 +3642,7 @@ C i2 ( h12 p4 h1 p8 )_vx END SUBROUTINE creomsd_tact_mem_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h12 h2 p8 )_vx @@ -3845,7 +3845,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 ) END SUBROUTINE creomsd_tact_mem_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 p8 p10 )_v @@ -4018,7 +4018,7 @@ C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 END SUBROUTINE OFFSET_creomsd_tact_mem_1_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx @@ -4096,7 +4096,7 @@ C i2 ( h9 h12 h1 p8 )_vx END SUBROUTINE creomsd_tact_mem_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h12 p8 )_vx @@ -4257,7 +4257,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h END SUBROUTINE creomsd_tact_mem_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 p10 )_v @@ -4451,7 +4451,7 @@ C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 END SUBROUTINE OFFSET_creomsd_tact_mem_1_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx @@ -4513,7 +4513,7 @@ C i2 ( h12 p8 )_vx END SUBROUTINE creomsd_tact_mem_1_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_fx + = -1 * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * i2 ( h12 p7 )_f @@ -4673,7 +4673,7 @@ C i1 ( h12 p4 h1 h2 )_fx + = -1 * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * i2 ( h1 RETURN END SUBROUTINE creomsd_tact_mem_1_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_f + = 1 * f ( h12 p7 )_f @@ -4762,7 +4762,7 @@ C i2 ( h12 p7 )_f + = 1 * f ( h12 p7 )_f END SUBROUTINE OFFSET_creomsd_tact_mem_1_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_f @@ -4824,7 +4824,7 @@ C i2 ( h12 p7 )_f END SUBROUTINE creomsd_tact_mem_1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p7 p8 )_v @@ -5018,7 +5018,7 @@ C i2 ( h12 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p7 p8 END SUBROUTINE creomsd_tact_mem_1_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v @@ -5220,7 +5220,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 RETURN END SUBROUTINE creomsd_tact_mem_1_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v @@ -5333,7 +5333,7 @@ C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_1_8_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v @@ -5409,7 +5409,7 @@ C i2 ( h10 h12 h1 p7 )_v END SUBROUTINE creomsd_tact_mem_1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v @@ -5582,7 +5582,7 @@ C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 END SUBROUTINE creomsd_tact_mem_1_9(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v @@ -5760,7 +5760,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( END SUBROUTINE creomsd_tact_mem_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 2 * P( 9 ) * Sum ( p12 ) * t ( p4 p12 h1 h2 )_t * i1 ( p5 p6 h3 p12 )_vx @@ -6130,7 +6130,7 @@ c END SUBROUTINE creomsd_tact_mem_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = 1/2 * P( 2 ) * Sum ( h11 ) * x ( p4 h11 )_x * i2 ( h11 p5 h1 p12 )_v @@ -6288,7 +6288,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = 1/2 * P( 2 ) * Sum ( h11 ) * x ( p4 h11 )_x * i RETURN END SUBROUTINE OFFSET_creomsd_tact_mem_2_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx @@ -6365,7 +6365,7 @@ C i1 ( p4 p5 h1 p12 )_vx RETURN END SUBROUTINE creomsd_tact_mem_2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v @@ -6478,7 +6478,7 @@ C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_2_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v @@ -6554,7 +6554,7 @@ C i2 ( h11 p4 h1 p12 )_v END SUBROUTINE creomsd_tact_mem_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p12 )_v @@ -6727,7 +6727,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 END SUBROUTINE creomsd_tact_mem_2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h11 p8 p12 )_v @@ -6964,7 +6964,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( END SUBROUTINE creomsd_tact_mem_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p8 p12 )_v @@ -7139,7 +7139,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p END SUBROUTINE creomsd_tact_mem_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vxt + = 1/2 * P( 2 ) * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 p5 h1 p12 )_vx @@ -7298,7 +7298,7 @@ C i1 ( p4 p5 h1 p12 )_vxt + = 1/2 * P( 2 ) * Sum ( h7 ) * t ( p4 h7 )_t * i2 END SUBROUTINE creomsd_tact_mem_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx + = -1 * Sum ( h11 ) * x ( p4 h11 )_x * i3 ( h7 h11 h1 p12 )_v @@ -7457,7 +7457,7 @@ C i2 ( h7 p4 h1 p12 )_vx + = -1 * Sum ( h11 ) * x ( p4 h11 )_x * i3 ( h7 h11 END SUBROUTINE OFFSET_creomsd_tact_mem_2_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx @@ -7534,7 +7534,7 @@ C i2 ( h7 p4 h1 p12 )_vx RETURN END SUBROUTINE creomsd_tact_mem_2_3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v @@ -7647,7 +7647,7 @@ C i3 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_2_3_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p12 )_v @@ -7723,7 +7723,7 @@ C i3 ( h7 h11 h1 p12 )_v END SUBROUTINE creomsd_tact_mem_2_3_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 p12 )_v @@ -7896,7 +7896,7 @@ C i3 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 END SUBROUTINE creomsd_tact_mem_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 p4 p9 p12 )_v @@ -8069,7 +8069,7 @@ C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 p4 p9 p END SUBROUTINE creomsd_tact_mem_2_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h7 h8 h1 p12 )_vx @@ -8228,7 +8228,7 @@ C i2 ( h7 p4 h1 p12 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h7 h8 END SUBROUTINE creomsd_tact_mem_2_3_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h1 p12 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h8 p10 p12 )_v @@ -8401,7 +8401,7 @@ C i3 ( h7 h8 h1 p12 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h8 p END SUBROUTINE OFFSET_creomsd_tact_mem_2_3_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h1 p12 )_vx @@ -8479,7 +8479,7 @@ C i3 ( h7 h8 h1 p12 )_vx END SUBROUTINE creomsd_tact_mem_2_3_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h7 h9 p10 p12 )_v @@ -8716,7 +8716,7 @@ C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( END SUBROUTINE creomsd_tact_mem_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vxt + = -1/4 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p12 )_vx @@ -8885,7 +8885,7 @@ C i1 ( p4 p5 h1 p12 )_vxt + = -1/4 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i END SUBROUTINE creomsd_tact_mem_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p12 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p10 p12 )_v @@ -9058,7 +9058,7 @@ C i2 ( h8 h9 h1 p12 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p1 END SUBROUTINE OFFSET_creomsd_tact_mem_2_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p12 )_vx @@ -9136,7 +9136,7 @@ C i2 ( h8 h9 h1 p12 )_vx END SUBROUTINE creomsd_tact_mem_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = -1/4 * Sum ( h7 h11 ) * x ( p4 p5 h7 h11 )_x * i2 ( h7 h11 h1 p12 )_v @@ -9304,7 +9304,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = -1/4 * Sum ( h7 h11 ) * x ( p4 p5 h7 h11 )_x * RETURN END SUBROUTINE creomsd_tact_mem_2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v @@ -9417,7 +9417,7 @@ C i2 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_2_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 p12 )_v @@ -9493,7 +9493,7 @@ C i2 ( h7 h11 h1 p12 )_v END SUBROUTINE creomsd_tact_mem_2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 p12 )_v @@ -9666,7 +9666,7 @@ C i2 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 END SUBROUTINE creomsd_tact_mem_2_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p9 p12 )_v @@ -9883,7 +9883,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 END SUBROUTINE creomsd_tact_mem_3(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h12 ) * x ( p4 p5 h1 h12 )_x * i1 ( h12 p6 h2 h3 )_v @@ -10251,7 +10251,7 @@ c RETURN END SUBROUTINE creomsd_tact_mem_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v @@ -10363,7 +10363,7 @@ C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v RETURN END SUBROUTINE OFFSET_creomsd_tact_mem_3_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v @@ -10439,7 +10439,7 @@ C i1 ( h12 p4 h1 h2 )_v END SUBROUTINE creomsd_tact_mem_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_v @@ -10597,7 +10597,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 RETURN END SUBROUTINE creomsd_tact_mem_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_v + = 1 * v ( h11 h12 h1 h2 )_v @@ -10707,7 +10707,7 @@ C i2 ( h11 h12 h1 h2 )_v + = 1 * v ( h11 h12 h1 h2 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_3_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_v @@ -10783,7 +10783,7 @@ C i2 ( h11 h12 h1 h2 )_v END SUBROUTINE creomsd_tact_mem_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_v @@ -10939,7 +10939,7 @@ C i2 ( h11 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 RETURN END SUBROUTINE creomsd_tact_mem_3_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_v + = 1 * v ( h11 h12 h1 p8 )_v @@ -11052,7 +11052,7 @@ C i3 ( h11 h12 h1 p8 )_v + = 1 * v ( h11 h12 h1 p8 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_3_2_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_v @@ -11128,7 +11128,7 @@ C i3 ( h11 h12 h1 p8 )_v END SUBROUTINE creomsd_tact_mem_3_2_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h11 h12 p8 p9 )_v @@ -11301,7 +11301,7 @@ C i3 ( h11 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h11 h1 END SUBROUTINE creomsd_tact_mem_3_2_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 h12 p7 p8 )_v @@ -11476,7 +11476,7 @@ C i2 ( h11 h12 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v END SUBROUTINE creomsd_tact_mem_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h12 p4 h2 p7 )_v @@ -11634,7 +11634,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( RETURN END SUBROUTINE creomsd_tact_mem_3_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v + = 1 * v ( h12 p4 h1 p7 )_v @@ -11747,7 +11747,7 @@ C i2 ( h12 p4 h1 p7 )_v + = 1 * v ( h12 p4 h1 p7 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_3_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v @@ -11823,7 +11823,7 @@ C i2 ( h12 p4 h1 p7 )_v END SUBROUTINE creomsd_tact_mem_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p7 p8 )_v @@ -11996,7 +11996,7 @@ C i2 ( h12 p4 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 END SUBROUTINE creomsd_tact_mem_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_ft + = -1 * Sum ( p10 ) * t ( p4 p10 h1 h2 )_t * i2 ( h12 p10 )_f @@ -12156,7 +12156,7 @@ C i1 ( h12 p4 h1 h2 )_ft + = -1 * Sum ( p10 ) * t ( p4 p10 h1 h2 )_t * i2 ( RETURN END SUBROUTINE creomsd_tact_mem_3_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_f + = 1 * f ( h12 p10 )_f @@ -12245,7 +12245,7 @@ C i2 ( h12 p10 )_f + = 1 * f ( h12 p10 )_f END SUBROUTINE OFFSET_creomsd_tact_mem_3_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_f @@ -12307,7 +12307,7 @@ C i2 ( h12 p10 )_f END SUBROUTINE creomsd_tact_mem_3_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p10 )_v @@ -12501,7 +12501,7 @@ C i2 ( h12 p10 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p1 END SUBROUTINE creomsd_tact_mem_3_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h12 h2 p7 )_v @@ -12703,7 +12703,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_ RETURN END SUBROUTINE creomsd_tact_mem_3_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_v + = 1 * v ( h8 h12 h1 p7 )_v @@ -12816,7 +12816,7 @@ C i2 ( h8 h12 h1 p7 )_v + = 1 * v ( h8 h12 h1 p7 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_3_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_v @@ -12892,7 +12892,7 @@ C i2 ( h8 h12 h1 p7 )_v END SUBROUTINE creomsd_tact_mem_3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p7 p9 )_v @@ -13065,7 +13065,7 @@ C i2 ( h8 h12 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p7 END SUBROUTINE creomsd_tact_mem_3_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h12 p4 p7 p8 )_v @@ -13243,7 +13243,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( END SUBROUTINE creomsd_tact_mem_4(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i1 ( p5 p6 h3 p10 )_v @@ -13612,7 +13612,7 @@ c RETURN END SUBROUTINE creomsd_tact_mem_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_v + = 1 * v ( p4 p5 h1 p10 )_v @@ -13724,7 +13724,7 @@ C i1 ( p4 p5 h1 p10 )_v + = 1 * v ( p4 p5 h1 p10 )_v RETURN END SUBROUTINE OFFSET_creomsd_tact_mem_4_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_v @@ -13800,7 +13800,7 @@ C i1 ( p4 p5 h1 p10 )_v END SUBROUTINE creomsd_tact_mem_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = -1 * P( 2 ) * Sum ( h12 ) * t ( p4 h12 )_t * i2 ( h12 p5 h1 p10 )_v @@ -13958,7 +13958,7 @@ C i1 ( p4 p5 h1 p10 )_vt + = -1 * P( 2 ) * Sum ( h12 ) * t ( p4 h12 )_t * i2 RETURN END SUBROUTINE creomsd_tact_mem_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_v + = 1 * v ( h12 p4 h1 p10 )_v @@ -14071,7 +14071,7 @@ C i2 ( h12 p4 h1 p10 )_v + = 1 * v ( h12 p4 h1 p10 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_4_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_v @@ -14147,7 +14147,7 @@ C i2 ( h12 p4 h1 p10 )_v END SUBROUTINE creomsd_tact_mem_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p10 )_v @@ -14305,7 +14305,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 RETURN END SUBROUTINE creomsd_tact_mem_4_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_v + = 1 * v ( h8 h12 h1 p10 )_v @@ -14418,7 +14418,7 @@ C i3 ( h8 h12 h1 p10 )_v + = 1 * v ( h8 h12 h1 p10 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_4_2_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_v @@ -14494,7 +14494,7 @@ C i3 ( h8 h12 h1 p10 )_v END SUBROUTINE creomsd_tact_mem_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 p10 )_v @@ -14667,7 +14667,7 @@ C i3 ( h8 h12 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 END SUBROUTINE creomsd_tact_mem_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 p10 )_v @@ -14840,7 +14840,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 END SUBROUTINE creomsd_tact_mem_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h12 p7 p10 )_v @@ -15077,7 +15077,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( END SUBROUTINE creomsd_tact_mem_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( p4 p5 p7 p10 )_v @@ -15252,7 +15252,7 @@ C i1 ( p4 p5 h1 p10 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( p4 p5 p7 p END SUBROUTINE creomsd_tact_mem_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = 1/2 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p10 )_v @@ -15420,7 +15420,7 @@ C i1 ( p4 p5 h1 p10 )_vt + = 1/2 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 RETURN END SUBROUTINE creomsd_tact_mem_4_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p10 )_v + = 1 * v ( h7 h8 h1 p10 )_v @@ -15533,7 +15533,7 @@ C i2 ( h7 h8 h1 p10 )_v + = 1 * v ( h7 h8 h1 p10 )_v END SUBROUTINE OFFSET_creomsd_tact_mem_4_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p10 )_v @@ -15609,7 +15609,7 @@ C i2 ( h7 h8 h1 p10 )_v END SUBROUTINE creomsd_tact_mem_4_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p10 )_v @@ -15782,7 +15782,7 @@ C i2 ( h7 h8 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p END SUBROUTINE creomsd_tact_mem_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p10 )_v diff --git a/src/tce/cr_eomccsd_t_act/q3rexpt2_act.F b/src/tce/cr_eomccsd_t_act/q3rexpt2_act.F index 4d8cbe6156..8928af1607 100644 --- a/src/tce/cr_eomccsd_t_act/q3rexpt2_act.F +++ b/src/tce/cr_eomccsd_t_act/q3rexpt2_act.F @@ -2,7 +2,7 @@ &d_x1,d_x2,k_i1_offset_2, &k_t1_offset,k_t2_offset,k_x1_offset,k_x2_offset,l_i1_offset_2,t_h1 &b,t_h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: q3rexpt2_act.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xt + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * x ( p6 h3 )_x @@ -60,7 +60,7 @@ C i1 ( p4 p5 h1 h2 )_x + = -1/2 * x ( p4 p5 h1 h2 )_x END SUBROUTINE q3rexpt2_act_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b, &t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: q3rexpt2_act.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xt + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * x ( p6 h3 )_x @@ -397,7 +397,7 @@ c END SUBROUTINE q3rexpt2_act_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b, &t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: q3rexpt2_act.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xtt + = -2 * P( 9 ) * t ( p4 h1 )_t * i1 ( p5 p6 h2 h3 )_xt @@ -735,7 +735,7 @@ c END SUBROUTINE q3rexpt2_act_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: q3rexpt2_act.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 h2 )_xt + = -1/4 * P( 4 ) * t ( p4 h1 )_t * x ( p5 h2 )_x @@ -901,7 +901,7 @@ C i1 ( p4 p5 h1 h2 )_xt + = -1/4 * P( 4 ) * t ( p4 h1 )_t * x ( p5 h2 )_x RETURN END SUBROUTINE OFFSET_q3rexpt2_act_2_1(l_a_offset,k_a_offset,size) -C $Id: q3rexpt2_act.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 h2 )_xt @@ -977,7 +977,7 @@ C i1 ( p4 p5 h1 h2 )_xt RETURN END SUBROUTINE q3rexpt2_act_2_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: q3rexpt2_act.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 h2 )_x + = -1/2 * x ( p4 p5 h1 h2 )_x diff --git a/src/tce/eomccsd/eomccsd_1prdm.F b/src/tce/eomccsd/eomccsd_1prdm.F index 35865ae018..f8b4b4a899 100644 --- a/src/tce/eomccsd/eomccsd_1prdm.F +++ b/src/tce/eomccsd/eomccsd_1prdm.F @@ -451,3 +451,4 @@ c 1 call errquit('eomccsd_1prdm: ma problem',04,ma_err) end +c $Id$ diff --git a/src/tce/eomccsd_act/GNUmakefile b/src/tce/eomccsd_act/GNUmakefile index 36d3413525..00a4feeffb 100644 --- a/src/tce/eomccsd_act/GNUmakefile +++ b/src/tce/eomccsd_act/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.6 2007/10/31 14:43:57 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = eomccsd_x1a.o eomccsd_x2a.o q2na_hc1.o diff --git a/src/tce/eomccsd_act/eomccsd_x1a.F b/src/tce/eomccsd_act/eomccsd_x1a.F index 0dcec242f3..12c409c9db 100644 --- a/src/tce/eomccsd_act/eomccsd_x1a.F +++ b/src/tce/eomccsd_act/eomccsd_x1a.F @@ -5,7 +5,7 @@ & ister,rec_s_1,rec_s_2,rec_s_3,rec_s_4,rec_s_5, & rec_d_1,rec_d_2,rec_d_3,rec_d_4,rec_d_5, & rec_d_6,rec_d_7,rec_d_8,rec_d_9) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -246,7 +246,7 @@ c -- reuse CALL DELETEFILE(d_i2) END SUBROUTINE eomccsd_x1a_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -372,7 +372,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f RETURN END SUBROUTINE eomccsd_x1a_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f @@ -456,7 +456,7 @@ C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1a_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f @@ -512,7 +512,7 @@ C i1 ( h6 h1 )_f END SUBROUTINE eomccsd_x1a_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f @@ -640,7 +640,7 @@ C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f RETURN END SUBROUTINE eomccsd_x1a_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -724,7 +724,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1a_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -780,7 +780,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE eomccsd_x1a_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_v @@ -970,7 +970,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_ END SUBROUTINE eomccsd_x1a_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 )_v @@ -1130,7 +1130,7 @@ C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 ) END SUBROUTINE eomccsd_x1a_1_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h6 p3 p4 )_v @@ -1323,7 +1323,7 @@ C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE eomccsd_x1a_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f @@ -1449,7 +1449,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f RETURN END SUBROUTINE eomccsd_x1a_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f @@ -1533,7 +1533,7 @@ C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1a_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f @@ -1589,7 +1589,7 @@ C i1 ( p2 p6 )_f END SUBROUTINE eomccsd_x1a_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_v @@ -1749,7 +1749,7 @@ C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_ END SUBROUTINE eomccsd_x1a_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v @@ -1892,7 +1892,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) END SUBROUTINE eomccsd_x1a_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 )_f @@ -2054,7 +2054,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 ) RETURN END SUBROUTINE eomccsd_x1a_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -2141,7 +2141,7 @@ C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1a_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f @@ -2202,7 +2202,7 @@ C i1 ( h6 p7 )_f END SUBROUTINE eomccsd_x1a_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -2395,7 +2395,7 @@ C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ END SUBROUTINE eomccsd_x1a_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h6 h8 h1 p7 )_v @@ -2561,7 +2561,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h RETURN END SUBROUTINE eomccsd_x1a_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v @@ -2672,7 +2672,7 @@ C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x1a_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v @@ -2747,7 +2747,7 @@ C i1 ( h6 h8 h1 p7 )_v END SUBROUTINE eomccsd_x1a_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 )_v @@ -2919,7 +2919,7 @@ C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 END SUBROUTINE eomccsd_x1a_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 p2 p4 p5 )_v @@ -3095,7 +3095,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 END SUBROUTINE eomccsd_x1a_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx @@ -3222,7 +3222,7 @@ C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx END SUBROUTINE eomccsd_x1a_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f @@ -3350,7 +3350,7 @@ C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1a_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx @@ -3405,7 +3405,7 @@ C i1 ( h8 h1 )_fx RETURN END SUBROUTINE eomccsd_x1a_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f @@ -3489,7 +3489,7 @@ C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1a_7_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f @@ -3545,7 +3545,7 @@ C i2 ( h8 p3 )_f END SUBROUTINE eomccsd_x1a_7_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 )_v @@ -3735,7 +3735,7 @@ C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 ) END SUBROUTINE eomccsd_x1a_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 )_v @@ -3895,7 +3895,7 @@ C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 ) END SUBROUTINE eomccsd_x1a_7_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 h8 p5 p6 )_v @@ -4088,7 +4088,7 @@ C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 END SUBROUTINE eomccsd_x1a_7_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx @@ -4218,7 +4218,7 @@ C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx END SUBROUTINE eomccsd_x1a_7_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 )_v @@ -4407,7 +4407,7 @@ C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 ) RETURN END SUBROUTINE OFFSET_eomccsd_x1a_7_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx @@ -4463,7 +4463,7 @@ C i2 ( h8 p3 )_vx END SUBROUTINE eomccsd_x1a_8(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx @@ -4590,7 +4590,7 @@ C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx END SUBROUTINE eomccsd_x1a_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_v @@ -4749,7 +4749,7 @@ C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x1a_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx @@ -4805,7 +4805,7 @@ C i1 ( p2 p3 )_vx END SUBROUTINE eomccsd_x1a_9(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_vx @@ -4968,7 +4968,7 @@ C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE eomccsd_x1a_9_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_v @@ -5160,7 +5160,7 @@ C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x1a_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx @@ -5221,7 +5221,7 @@ C i1 ( h4 p3 )_vx END SUBROUTINE eomccsd_x1a_10(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_vx @@ -5390,7 +5390,7 @@ C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h END SUBROUTINE eomccsd_x1a_10_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 )_v @@ -5561,7 +5561,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 RETURN END SUBROUTINE OFFSET_eomccsd_x1a_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx diff --git a/src/tce/eomccsd_act/eomccsd_x2a.F b/src/tce/eomccsd_act/eomccsd_x2a.F index 67875a5650..0401689e68 100644 --- a/src/tce/eomccsd_act/eomccsd_x2a.F +++ b/src/tce/eomccsd_act/eomccsd_x2a.F @@ -5,7 +5,7 @@ & ister,rec_s_1,rec_s_2,rec_s_3,rec_s_4,rec_s_5, & rec_d_1,rec_d_2,rec_d_3,rec_d_4,rec_d_5, & rec_d_6,rec_d_7,rec_d_8,rec_d_9) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -597,7 +597,7 @@ c -- reuse CALL DELETEFILE(d_i2) END SUBROUTINE eomccsd_x2a_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -752,7 +752,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( RETURN END SUBROUTINE eomccsd_x2a_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v @@ -863,7 +863,7 @@ C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2a_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v @@ -938,7 +938,7 @@ C i1 ( h9 p3 h1 h2 )_v END SUBROUTINE eomccsd_x2a_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 p3 h2 p5 )_v @@ -1095,7 +1095,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE eomccsd_x2a_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v @@ -1206,7 +1206,7 @@ C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2a_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v @@ -1281,7 +1281,7 @@ C i2 ( h9 p3 h1 p5 )_v END SUBROUTINE eomccsd_x2a_1_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 p6 )_v @@ -1453,7 +1453,7 @@ C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 END SUBROUTINE eomccsd_x2a_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 p8 )_f @@ -1612,7 +1612,7 @@ C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 RETURN END SUBROUTINE eomccsd_x2a_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f @@ -1699,7 +1699,7 @@ C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2a_1_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f @@ -1760,7 +1760,7 @@ C i2 ( h9 p8 )_f END SUBROUTINE eomccsd_x2a_1_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_v @@ -1953,7 +1953,7 @@ C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_ END SUBROUTINE eomccsd_x2a_1_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_v @@ -2154,7 +2154,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t RETURN END SUBROUTINE eomccsd_x2a_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v @@ -2266,7 +2266,7 @@ C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2a_1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v @@ -2342,7 +2342,7 @@ C i2 ( h6 h9 h1 p5 )_v END SUBROUTINE eomccsd_x2a_1_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p7 )_v @@ -2515,7 +2515,7 @@ C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p END SUBROUTINE eomccsd_x2a_1_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 p3 p5 p6 )_v @@ -2692,7 +2692,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2a_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v @@ -2857,7 +2857,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p END SUBROUTINE eomccsd_x2a_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * i1 ( h8 h2 )_f @@ -3025,7 +3025,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * RETURN END SUBROUTINE eomccsd_x2a_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f @@ -3112,7 +3112,7 @@ C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2a_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f @@ -3173,7 +3173,7 @@ C i1 ( h8 h1 )_f END SUBROUTINE eomccsd_x2a_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f @@ -3304,7 +3304,7 @@ C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f RETURN END SUBROUTINE eomccsd_x2a_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f @@ -3391,7 +3391,7 @@ C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2a_3_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f @@ -3452,7 +3452,7 @@ C i2 ( h8 p9 )_f END SUBROUTINE eomccsd_x2a_3_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_v @@ -3645,7 +3645,7 @@ C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_ END SUBROUTINE eomccsd_x2a_3_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 )_v @@ -3808,7 +3808,7 @@ C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 ) END SUBROUTINE eomccsd_x2a_3_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 h8 p5 p6 )_v @@ -4003,7 +4003,7 @@ C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 END SUBROUTINE eomccsd_x2a_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * i1 ( p4 p8 )_f @@ -4171,7 +4171,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * RETURN END SUBROUTINE eomccsd_x2a_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f @@ -4258,7 +4258,7 @@ C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2a_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f @@ -4319,7 +4319,7 @@ C i1 ( p3 p8 )_f END SUBROUTINE eomccsd_x2a_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_v @@ -4482,7 +4482,7 @@ C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_ END SUBROUTINE eomccsd_x2a_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 h7 p5 p8 )_v @@ -4677,7 +4677,7 @@ C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 END SUBROUTINE eomccsd_x2a_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 ( h9 h10 h1 h2 )_v @@ -4842,7 +4842,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 RETURN END SUBROUTINE eomccsd_x2a_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v @@ -4950,7 +4950,7 @@ C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2a_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v @@ -5025,7 +5025,7 @@ C i1 ( h9 h10 h1 h2 )_v END SUBROUTINE eomccsd_x2a_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 h10 h2 p5 )_v @@ -5180,7 +5180,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE eomccsd_x2a_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v @@ -5291,7 +5291,7 @@ C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2a_5_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v @@ -5366,7 +5366,7 @@ C i2 ( h9 h10 h1 p5 )_v END SUBROUTINE eomccsd_x2a_5_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 p5 p6 )_v @@ -5538,7 +5538,7 @@ C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 END SUBROUTINE eomccsd_x2a_5_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h10 p5 p6 )_v @@ -5712,7 +5712,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2a_6(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_x * i1 ( h7 p4 h2 p8 )_v @@ -5917,7 +5917,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_ RETURN END SUBROUTINE eomccsd_x2a_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v @@ -6028,7 +6028,7 @@ C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2a_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v @@ -6103,7 +6103,7 @@ C i1 ( h7 p3 h1 p8 )_v END SUBROUTINE eomccsd_x2a_6_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 )_v @@ -6275,7 +6275,7 @@ C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 END SUBROUTINE eomccsd_x2a_7(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( p3 p4 p5 p6 )_v @@ -6448,7 +6448,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( END SUBROUTINE eomccsd_x2a_8(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_vx @@ -6604,7 +6604,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 END SUBROUTINE eomccsd_x2a_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_v @@ -6761,7 +6761,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h RETURN END SUBROUTINE OFFSET_eomccsd_x2a_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx @@ -6837,7 +6837,7 @@ C i1 ( h10 p3 h1 h2 )_vx RETURN END SUBROUTINE eomccsd_x2a_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v @@ -6945,7 +6945,7 @@ C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2a_8_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v @@ -7020,7 +7020,7 @@ C i2 ( h8 h10 h1 h2 )_v END SUBROUTINE eomccsd_x2a_8_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_v @@ -7175,7 +7175,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( RETURN END SUBROUTINE eomccsd_x2a_8_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v @@ -7287,7 +7287,7 @@ C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2a_8_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v @@ -7362,7 +7362,7 @@ C i3 ( h8 h10 h1 p5 )_v END SUBROUTINE eomccsd_x2a_8_1_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 p5 p6 )_v @@ -7537,7 +7537,7 @@ C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 END SUBROUTINE eomccsd_x2a_8_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h8 h10 p5 p6 )_v @@ -7711,7 +7711,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2a_8_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h10 p3 h2 p6 )_v @@ -7878,7 +7878,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h END SUBROUTINE eomccsd_x2a_8_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 p5 )_f @@ -8037,7 +8037,7 @@ C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 RETURN END SUBROUTINE eomccsd_x2a_8_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f @@ -8124,7 +8124,7 @@ C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2a_8_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f @@ -8185,7 +8185,7 @@ C i2 ( h10 p5 )_f END SUBROUTINE eomccsd_x2a_8_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 )_v @@ -8378,7 +8378,7 @@ C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 END SUBROUTINE eomccsd_x2a_8_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 )_x * i2 ( h8 h10 h2 p9 )_v @@ -8579,7 +8579,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 ) RETURN END SUBROUTINE eomccsd_x2a_8_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v @@ -8691,7 +8691,7 @@ C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2a_8_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v @@ -8767,7 +8767,7 @@ C i2 ( h8 h10 h1 p9 )_v END SUBROUTINE eomccsd_x2a_8_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 p9 )_v @@ -8940,7 +8940,7 @@ C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 END SUBROUTINE eomccsd_x2a_8_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v ( h10 p3 p6 p7 )_v @@ -9117,7 +9117,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v END SUBROUTINE eomccsd_x2a_8_6(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_vx @@ -9275,7 +9275,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h END SUBROUTINE eomccsd_x2a_8_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 h10 h2 p7 )_v @@ -9439,7 +9439,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_eomccsd_x2a_8_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx @@ -9516,7 +9516,7 @@ C i2 ( h9 h10 h1 h2 )_vx END SUBROUTINE eomccsd_x2a_8_6_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h9 h10 p7 p8 )_v @@ -9690,7 +9690,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v END SUBROUTINE eomccsd_x2a_8_6_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_vx @@ -9846,7 +9846,7 @@ C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_x2a_8_6_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 p8 )_v @@ -10020,7 +10020,7 @@ C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 RETURN END SUBROUTINE OFFSET_eomccsd_x2a_8_6_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx @@ -10097,7 +10097,7 @@ C i3 ( h9 h10 h1 p5 )_vx END SUBROUTINE eomccsd_x2a_8_7(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h10 p3 h2 p5 )_vx @@ -10255,7 +10255,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE eomccsd_x2a_8_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 p7 )_v @@ -10426,7 +10426,7 @@ C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 RETURN END SUBROUTINE OFFSET_eomccsd_x2a_8_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx @@ -10503,7 +10503,7 @@ C i2 ( h10 p3 h1 p5 )_vx END SUBROUTINE eomccsd_x2a_8_8(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h10 p5 )_vx @@ -10663,7 +10663,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h1 END SUBROUTINE eomccsd_x2a_8_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 )_v @@ -10855,7 +10855,7 @@ C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 RETURN END SUBROUTINE OFFSET_eomccsd_x2a_8_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx @@ -10916,7 +10916,7 @@ C i2 ( h10 p5 )_vx END SUBROUTINE eomccsd_x2a_8_9(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h10 h2 p5 )_vx @@ -11118,7 +11118,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 ) END SUBROUTINE eomccsd_x2a_8_9_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 p8 )_v @@ -11290,7 +11290,7 @@ C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 RETURN END SUBROUTINE OFFSET_eomccsd_x2a_8_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx @@ -11368,7 +11368,7 @@ C i2 ( h6 h10 h1 p5 )_vx END SUBROUTINE eomccsd_x2a_9(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx @@ -11521,7 +11521,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( END SUBROUTINE eomccsd_x2a_9_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v @@ -11689,7 +11689,7 @@ C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 RETURN END SUBROUTINE OFFSET_eomccsd_x2a_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx @@ -11761,7 +11761,7 @@ C i1 ( p3 p4 h1 p5 )_vx END SUBROUTINE eomccsd_x2a_10(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx @@ -11931,7 +11931,7 @@ C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE eomccsd_x2a_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f @@ -12062,7 +12062,7 @@ C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2a_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx @@ -12122,7 +12122,7 @@ C i1 ( h5 h1 )_fx RETURN END SUBROUTINE eomccsd_x2a_10_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f @@ -12209,7 +12209,7 @@ C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2a_10_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f @@ -12270,7 +12270,7 @@ C i2 ( h5 p9 )_f END SUBROUTINE eomccsd_x2a_10_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 )_v @@ -12463,7 +12463,7 @@ C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 ) END SUBROUTINE eomccsd_x2a_10_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_v @@ -12626,7 +12626,7 @@ C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_ END SUBROUTINE eomccsd_x2a_10_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 h6 p7 p8 )_v @@ -12821,7 +12821,7 @@ C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 END SUBROUTINE eomccsd_x2a_10_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx @@ -12953,7 +12953,7 @@ C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx END SUBROUTINE eomccsd_x2a_10_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_v @@ -13145,7 +13145,7 @@ C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x2a_10_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx @@ -13206,7 +13206,7 @@ C i2 ( h5 p6 )_vx END SUBROUTINE eomccsd_x2a_11(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_vx @@ -13374,7 +13374,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( END SUBROUTINE eomccsd_x2a_11_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h5 h6 h2 p7 )_v @@ -13538,7 +13538,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_eomccsd_x2a_11_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx @@ -13615,7 +13615,7 @@ C i1 ( h5 h6 h1 h2 )_vx END SUBROUTINE eomccsd_x2a_11_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h5 h6 p7 p8 )_v @@ -13789,7 +13789,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( END SUBROUTINE eomccsd_x2a_11_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h5 h6 h2 p7 )_vx @@ -13945,7 +13945,7 @@ C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 END SUBROUTINE eomccsd_x2a_11_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 )_v @@ -14116,7 +14116,7 @@ C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 RETURN END SUBROUTINE OFFSET_eomccsd_x2a_11_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx @@ -14193,7 +14193,7 @@ C i2 ( h5 h6 h1 p7 )_vx END SUBROUTINE eomccsd_x2a_12(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_vx @@ -14363,7 +14363,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t END SUBROUTINE eomccsd_x2a_12_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_v @@ -14525,7 +14525,7 @@ C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x2a_12_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx @@ -14586,7 +14586,7 @@ C i1 ( p3 p5 )_vx END SUBROUTINE eomccsd_x2a_12_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 h7 p5 p8 )_v @@ -14781,7 +14781,7 @@ C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 END SUBROUTINE eomccsd_x2a_13(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_vx @@ -14989,7 +14989,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE eomccsd_x2a_13_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 )_v @@ -15160,7 +15160,7 @@ C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 RETURN END SUBROUTINE OFFSET_eomccsd_x2a_13_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx @@ -15237,7 +15237,7 @@ C i1 ( h6 p3 h1 p5 )_vx END SUBROUTINE eomccsd_x2a_13_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_x2a.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p3 p8 h1 h7 )_x * v ( h6 h7 p5 p8 )_v diff --git a/src/tce/eomccsd_act/q2na_hc1.F b/src/tce/eomccsd_act/q2na_hc1.F index fc4884ff1b..aebf15ecb1 100644 --- a/src/tce/eomccsd_act/q2na_hc1.F +++ b/src/tce/eomccsd_act/q2na_hc1.F @@ -1,6 +1,6 @@ SUBROUTINE q2na_hc1(d_i0,d_v2,d_x1,k_i0_offset,k_v2 &_offset,k_x1_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 h5 )_x * v ( h5 p4 h1 h2 )_v @@ -27,7 +27,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p END SUBROUTINE q2na_hc1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 h5 )_x * v ( h5 p4 h1 h2 )_v @@ -189,7 +189,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 h5 )_x * v ( h END SUBROUTINE q2na_hc1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v diff --git a/src/tce/get_mo_rdm_hh.F b/src/tce/get_mo_rdm_hh.F index b02defbc0c..efaa1542ac 100644 --- a/src/tce/get_mo_rdm_hh.F +++ b/src/tce/get_mo_rdm_hh.F @@ -112,3 +112,4 @@ c enddo 9020 format(1x,i3,a4,'(',a5,') --- ',i3,a4,'(',a5,')',f20.5,i5,i5) return end +c $Id$ diff --git a/src/tce/get_mo_rdm_hp.F b/src/tce/get_mo_rdm_hp.F index a09c456492..ff93bd0799 100644 --- a/src/tce/get_mo_rdm_hp.F +++ b/src/tce/get_mo_rdm_hp.F @@ -103,3 +103,4 @@ c enddo 9010 format(1x,i3,a4,'(',a5,') --- ',i3,a4,'(',a5,')',f20.5,i5,i5) return end +c $Id$ diff --git a/src/tce/get_mo_rdm_ph.F b/src/tce/get_mo_rdm_ph.F index 1e24e644eb..5f3a9c4f10 100644 --- a/src/tce/get_mo_rdm_ph.F +++ b/src/tce/get_mo_rdm_ph.F @@ -99,3 +99,4 @@ c enddo 9010 format(1x,i3,a4,'(',a5,') --- ',i3,a4,'(',a5,')',f20.5,i4,i4) return end +c $Id$ diff --git a/src/tce/get_mo_rdm_pp.F b/src/tce/get_mo_rdm_pp.F index 3e2187bdcf..191009a55c 100644 --- a/src/tce/get_mo_rdm_pp.F +++ b/src/tce/get_mo_rdm_pp.F @@ -102,3 +102,4 @@ c enddo 9010 format(1x,i3,a4,'(',a5,') --- ',i3,a4,'(',a5,')',f20.5,i4,i4) return end +c $Id$ diff --git a/src/tce/gradients/ao_1prdm_read.F b/src/tce/gradients/ao_1prdm_read.F index eddd128600..4c4fa302c0 100644 --- a/src/tce/gradients/ao_1prdm_read.F +++ b/src/tce/gradients/ao_1prdm_read.F @@ -70,3 +70,4 @@ c c end +c $Id$ diff --git a/src/tce/gradients/ao_1prdm_write.F b/src/tce/gradients/ao_1prdm_write.F index 9a2ae948ab..436cbe368f 100644 --- a/src/tce/gradients/ao_1prdm_write.F +++ b/src/tce/gradients/ao_1prdm_write.F @@ -74,3 +74,4 @@ c c end +c $Id$ diff --git a/src/tce/gradients/ao_tiles.F b/src/tce/gradients/ao_tiles.F index 173c0e9169..b387974a61 100644 --- a/src/tce/gradients/ao_tiles.F +++ b/src/tce/gradients/ao_tiles.F @@ -49,3 +49,4 @@ c endif return end +c $Id$ diff --git a/src/tce/gradients/btrans1.F b/src/tce/gradients/btrans1.F index 2c53c7d8b6..9530f40399 100644 --- a/src/tce/gradients/btrans1.F +++ b/src/tce/gradients/btrans1.F @@ -274,3 +274,4 @@ c enddo enddo end +c $Id$ diff --git a/src/tce/gradients/btrans2.F b/src/tce/gradients/btrans2.F index 256dc6b74a..ec2c01d634 100644 --- a/src/tce/gradients/btrans2.F +++ b/src/tce/gradients/btrans2.F @@ -2448,3 +2448,4 @@ c i_ind=i_ind+nalength2(ib) call ga_sync( ) return end +c $Id$ diff --git a/src/tce/gradients/ccsd_energy.F b/src/tce/gradients/ccsd_energy.F index 7b8181726f..afd2d6aac4 100644 --- a/src/tce/gradients/ccsd_energy.F +++ b/src/tce/gradients/ccsd_energy.F @@ -96,3 +96,4 @@ c 9100 format(1x,i4,2f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/ccsd_gradient.F b/src/tce/gradients/ccsd_gradient.F index cbd6eaf072..da67505c1c 100644 --- a/src/tce/gradients/ccsd_gradient.F +++ b/src/tce/gradients/ccsd_gradient.F @@ -780,3 +780,4 @@ c 2 1x,'Iterations converged') 9100 format(1x,i4,f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/ccsd_left.F b/src/tce/gradients/ccsd_left.F index 017ef83097..e7b462130c 100644 --- a/src/tce/gradients/ccsd_left.F +++ b/src/tce/gradients/ccsd_left.F @@ -77,3 +77,4 @@ c print *,iter,'ccsd_lambda2' 2 1x,'Iterations converged') 9420 format(1x,i4,f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/ccsdt_energy.F b/src/tce/gradients/ccsdt_energy.F index 19959e11be..1403fe4d1e 100644 --- a/src/tce/gradients/ccsdt_energy.F +++ b/src/tce/gradients/ccsdt_energy.F @@ -107,3 +107,4 @@ c 9100 format(1x,i4,2f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/ccsdt_gradient.F b/src/tce/gradients/ccsdt_gradient.F index 4b0b1f04c0..fd57493d99 100644 --- a/src/tce/gradients/ccsdt_gradient.F +++ b/src/tce/gradients/ccsdt_gradient.F @@ -781,3 +781,4 @@ c 1 call errquit('ccsd_dens_mo: ma problem',18,ma_err) c end +c $Id$ diff --git a/src/tce/gradients/ccsdt_left.F b/src/tce/gradients/ccsdt_left.F index 80a76b4fe7..4be7cad918 100644 --- a/src/tce/gradients/ccsdt_left.F +++ b/src/tce/gradients/ccsdt_left.F @@ -93,3 +93,4 @@ c 9420 format(1x,i4,f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/ccsdtq_energy.F b/src/tce/gradients/ccsdtq_energy.F index a667299b78..71f74f2dbc 100644 --- a/src/tce/gradients/ccsdtq_energy.F +++ b/src/tce/gradients/ccsdtq_energy.F @@ -123,3 +123,4 @@ c 9100 format(1x,i4,2f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/ccsdtq_gradient.F b/src/tce/gradients/ccsdtq_gradient.F index 847962d556..d6ad75ebd8 100644 --- a/src/tce/gradients/ccsdtq_gradient.F +++ b/src/tce/gradients/ccsdtq_gradient.F @@ -789,3 +789,4 @@ c 1 call errquit('ccsd_dens_mo: ma problem',18,ma_err) c end +c $Id$ diff --git a/src/tce/gradients/ccsdtq_left.F b/src/tce/gradients/ccsdtq_left.F index 8c505d8cd2..d85407a49c 100644 --- a/src/tce/gradients/ccsdtq_left.F +++ b/src/tce/gradients/ccsdtq_left.F @@ -120,3 +120,4 @@ c 9420 format(1x,i4,f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/eomccsd_energy.F b/src/tce/gradients/eomccsd_energy.F index 2e17fc61a3..b0d64f9318 100644 --- a/src/tce/gradients/eomccsd_energy.F +++ b/src/tce/gradients/eomccsd_energy.F @@ -136,3 +136,4 @@ c 1'--------------------------------------------------------------' 2,/,1x,'Iterations converged') end +c $Id$ diff --git a/src/tce/gradients/eomccsd_gradients.F b/src/tce/gradients/eomccsd_gradients.F index a3419d4807..c23327089b 100644 --- a/src/tce/gradients/eomccsd_gradients.F +++ b/src/tce/gradients/eomccsd_gradients.F @@ -1039,3 +1039,4 @@ c 2 1x,'Iterations converged') 9100 format(1x,i4,f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/eomccsd_left.F b/src/tce/gradients/eomccsd_left.F index 02e5a0e696..16619dc1c3 100644 --- a/src/tce/gradients/eomccsd_left.F +++ b/src/tce/gradients/eomccsd_left.F @@ -135,3 +135,4 @@ c 2,/,1x,'Iterations converged') end +c $Id$ diff --git a/src/tce/gradients/put_1pdm_hh.F b/src/tce/gradients/put_1pdm_hh.F index 4272df13af..31649ef421 100644 --- a/src/tce/gradients/put_1pdm_hh.F +++ b/src/tce/gradients/put_1pdm_hh.F @@ -58,3 +58,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_1pdm_hp.F b/src/tce/gradients/put_1pdm_hp.F index d47e4316b7..bd3d072506 100644 --- a/src/tce/gradients/put_1pdm_hp.F +++ b/src/tce/gradients/put_1pdm_hp.F @@ -63,3 +63,4 @@ c c end +c $Id$ diff --git a/src/tce/gradients/put_1pdm_ph.F b/src/tce/gradients/put_1pdm_ph.F index 0181b0ec81..bcb7dbcd0e 100644 --- a/src/tce/gradients/put_1pdm_ph.F +++ b/src/tce/gradients/put_1pdm_ph.F @@ -79,3 +79,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_1pdm_ph_2.F b/src/tce/gradients/put_1pdm_ph_2.F index 0960fb2d9b..b646e9adc1 100644 --- a/src/tce/gradients/put_1pdm_ph_2.F +++ b/src/tce/gradients/put_1pdm_ph_2.F @@ -64,3 +64,4 @@ c c end +c $Id$ diff --git a/src/tce/gradients/put_1pdm_pp.F b/src/tce/gradients/put_1pdm_pp.F index c1fdb5461e..e54360e14e 100644 --- a/src/tce/gradients/put_1pdm_pp.F +++ b/src/tce/gradients/put_1pdm_pp.F @@ -60,3 +60,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_1pwdm_hp.F b/src/tce/gradients/put_1pwdm_hp.F index db12f84d5c..271ef242bd 100644 --- a/src/tce/gradients/put_1pwdm_hp.F +++ b/src/tce/gradients/put_1pwdm_hp.F @@ -78,3 +78,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_2pdm_hhhh.F b/src/tce/gradients/put_2pdm_hhhh.F index a8852ed301..55acec869c 100644 --- a/src/tce/gradients/put_2pdm_hhhh.F +++ b/src/tce/gradients/put_2pdm_hhhh.F @@ -164,3 +164,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_2pdm_hhhp.F b/src/tce/gradients/put_2pdm_hhhp.F index 1a342cfcd5..2c49cc028a 100644 --- a/src/tce/gradients/put_2pdm_hhhp.F +++ b/src/tce/gradients/put_2pdm_hhhp.F @@ -155,3 +155,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_2pdm_hhpp.F b/src/tce/gradients/put_2pdm_hhpp.F index 1d6c93040e..df9833dd02 100644 --- a/src/tce/gradients/put_2pdm_hhpp.F +++ b/src/tce/gradients/put_2pdm_hhpp.F @@ -162,3 +162,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_2pdm_hphh.F b/src/tce/gradients/put_2pdm_hphh.F index 29dc6212c4..8c6d345b44 100644 --- a/src/tce/gradients/put_2pdm_hphh.F +++ b/src/tce/gradients/put_2pdm_hphh.F @@ -151,3 +151,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_2pdm_hphp.F b/src/tce/gradients/put_2pdm_hphp.F index eec6b8579c..c2d43c0081 100644 --- a/src/tce/gradients/put_2pdm_hphp.F +++ b/src/tce/gradients/put_2pdm_hphp.F @@ -151,3 +151,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_2pdm_hppp.F b/src/tce/gradients/put_2pdm_hppp.F index fcd8857bfd..8d29e241a9 100644 --- a/src/tce/gradients/put_2pdm_hppp.F +++ b/src/tce/gradients/put_2pdm_hppp.F @@ -154,3 +154,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_2pdm_pphh.F b/src/tce/gradients/put_2pdm_pphh.F index 913020e152..039b77e7da 100644 --- a/src/tce/gradients/put_2pdm_pphh.F +++ b/src/tce/gradients/put_2pdm_pphh.F @@ -163,3 +163,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_2pdm_pphp.F b/src/tce/gradients/put_2pdm_pphp.F index f9c19813ff..074ff8745e 100644 --- a/src/tce/gradients/put_2pdm_pphp.F +++ b/src/tce/gradients/put_2pdm_pphp.F @@ -153,3 +153,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/put_2pdm_pppp.F b/src/tce/gradients/put_2pdm_pppp.F index 40392b3606..85fb796693 100644 --- a/src/tce/gradients/put_2pdm_pppp.F +++ b/src/tce/gradients/put_2pdm_pppp.F @@ -167,3 +167,4 @@ c call ga_sync( ) c end +c $Id$ diff --git a/src/tce/gradients/sym_2pdm_ao.F b/src/tce/gradients/sym_2pdm_ao.F index defa7f4f35..2057a96556 100644 --- a/src/tce/gradients/sym_2pdm_ao.F +++ b/src/tce/gradients/sym_2pdm_ao.F @@ -295,3 +295,4 @@ c enddo cc return end +c $Id$ diff --git a/src/tce/gradients/tce_1pdm_offset.F b/src/tce/gradients/tce_1pdm_offset.F index 71eca0a9b9..0ba018bfa1 100644 --- a/src/tce/gradients/tce_1pdm_offset.F +++ b/src/tce/gradients/tce_1pdm_offset.F @@ -51,3 +51,4 @@ C dens_ph ( h5 p6 ) END DO RETURN END +c $Id$ diff --git a/src/tce/gradients/tce_2pdm_offset.F b/src/tce/gradients/tce_2pdm_offset.F index a7af8c18e6..31005f9e12 100644 --- a/src/tce/gradients/tce_2pdm_offset.F +++ b/src/tce/gradients/tce_2pdm_offset.F @@ -64,3 +64,4 @@ C dens_hphp ( g1 g2 g3 g4 ) END DO RETURN END +c $Id$ diff --git a/src/tce/gradients/tce_ccsd_1prdm.F b/src/tce/gradients/tce_ccsd_1prdm.F index e2a3a27022..846bbef717 100644 --- a/src/tce/gradients/tce_ccsd_1prdm.F +++ b/src/tce/gradients/tce_ccsd_1prdm.F @@ -178,3 +178,4 @@ c c end +c $Id$ diff --git a/src/tce/gradients/tce_cis_energy.F b/src/tce/gradients/tce_cis_energy.F index b0ba82b355..9848db4874 100644 --- a/src/tce/gradients/tce_cis_energy.F +++ b/src/tce/gradients/tce_cis_energy.F @@ -105,3 +105,4 @@ c 1'--------------------------------------------------------------' 2,/,1x,'Iterations converged') end +c $Id$ diff --git a/src/tce/gradients/tce_cis_gradient.F b/src/tce/gradients/tce_cis_gradient.F index c3c282c2ff..57b4061d9a 100644 --- a/src/tce/gradients/tce_cis_gradient.F +++ b/src/tce/gradients/tce_cis_gradient.F @@ -784,3 +784,4 @@ c 2 1x,'Iterations converged') 9100 format(1x,i4,f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/tce_cisd_energy.F b/src/tce/gradients/tce_cisd_energy.F index f0b5c55d3e..3265160d1a 100644 --- a/src/tce/gradients/tce_cisd_energy.F +++ b/src/tce/gradients/tce_cisd_energy.F @@ -94,3 +94,4 @@ c 9100 format(1x,i4,2f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/tce_cisd_gradient.F b/src/tce/gradients/tce_cisd_gradient.F index d3f7f14a0b..d916a21add 100644 --- a/src/tce/gradients/tce_cisd_gradient.F +++ b/src/tce/gradients/tce_cisd_gradient.F @@ -781,3 +781,4 @@ c 1 call errquit('tce_cisd_gradients: ma problem',23,ma_err) c end +c $Id$ diff --git a/src/tce/gradients/tce_cisdt_energy.F b/src/tce/gradients/tce_cisdt_energy.F index 38b3e84ba0..15ac4526fa 100644 --- a/src/tce/gradients/tce_cisdt_energy.F +++ b/src/tce/gradients/tce_cisdt_energy.F @@ -107,3 +107,4 @@ c 9100 format(1x,i4,2f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/tce_cisdt_gradient.F b/src/tce/gradients/tce_cisdt_gradient.F index 93f8126a04..d220487f95 100644 --- a/src/tce/gradients/tce_cisdt_gradient.F +++ b/src/tce/gradients/tce_cisdt_gradient.F @@ -776,3 +776,4 @@ c 1 call errquit('tce_cisdt_gradient: ma problem',24,ma_err) c end +c $Id$ diff --git a/src/tce/gradients/tce_cisdtq_energy.F b/src/tce/gradients/tce_cisdtq_energy.F index 8a56346894..99f5e55970 100644 --- a/src/tce/gradients/tce_cisdtq_energy.F +++ b/src/tce/gradients/tce_cisdtq_energy.F @@ -119,3 +119,4 @@ c 9100 format(1x,i4,2f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/tce_cisdtq_gradient.F b/src/tce/gradients/tce_cisdtq_gradient.F index 701b92a5bf..f020bc6d1e 100644 --- a/src/tce/gradients/tce_cisdtq_gradient.F +++ b/src/tce/gradients/tce_cisdtq_gradient.F @@ -794,3 +794,4 @@ c 1 call errquit('tce_cisdtq_gradient: ma problem',25,ma_err) c end +c $Id$ diff --git a/src/tce/gradients/tce_dens_hhhh_offset.F b/src/tce/gradients/tce_dens_hhhh_offset.F index f3863263b5..ed936e3608 100644 --- a/src/tce/gradients/tce_dens_hhhh_offset.F +++ b/src/tce/gradients/tce_dens_hhhh_offset.F @@ -64,3 +64,4 @@ C dens_hhhh ( h1 h2 h3 h4 ) END DO RETURN end +c $Id$ diff --git a/src/tce/gradients/tce_dens_hhhp_offset.F b/src/tce/gradients/tce_dens_hhhp_offset.F index d165ee73a2..250cd417b8 100644 --- a/src/tce/gradients/tce_dens_hhhp_offset.F +++ b/src/tce/gradients/tce_dens_hhhp_offset.F @@ -64,3 +64,4 @@ C dens_hhhp ( h1 h2 h3 p4 ) END DO RETURN END +c $Id$ diff --git a/src/tce/gradients/tce_dens_hhpp_offset.F b/src/tce/gradients/tce_dens_hhpp_offset.F index ba8977364a..a96d46ef41 100644 --- a/src/tce/gradients/tce_dens_hhpp_offset.F +++ b/src/tce/gradients/tce_dens_hhpp_offset.F @@ -65,3 +65,4 @@ C dens_hhpp (h1 h2 p3 p4 ) END DO RETURN END +c $Id$ diff --git a/src/tce/gradients/tce_dens_hphh_offset.F b/src/tce/gradients/tce_dens_hphh_offset.F index 4b8dad0457..268492807f 100644 --- a/src/tce/gradients/tce_dens_hphh_offset.F +++ b/src/tce/gradients/tce_dens_hphh_offset.F @@ -66,3 +66,4 @@ C i0 ( h5 p3 h1 h2 ) END DO RETURN END +c $Id$ diff --git a/src/tce/gradients/tce_dens_hphp_offset.F b/src/tce/gradients/tce_dens_hphp_offset.F index bb4771abdf..62679830eb 100644 --- a/src/tce/gradients/tce_dens_hphp_offset.F +++ b/src/tce/gradients/tce_dens_hphp_offset.F @@ -64,3 +64,4 @@ C dens_hphp ( h10 p3 h1 p5 ) END DO RETURN END +c $Id$ diff --git a/src/tce/gradients/tce_dens_hppp_offset.F b/src/tce/gradients/tce_dens_hppp_offset.F index 560bee3ccd..2f209f297f 100644 --- a/src/tce/gradients/tce_dens_hppp_offset.F +++ b/src/tce/gradients/tce_dens_hppp_offset.F @@ -64,3 +64,4 @@ C dens_hppp ( h1b p2b p3b p4b ) END DO RETURN END +c $Id$ diff --git a/src/tce/gradients/tce_dens_pphp_offset.F b/src/tce/gradients/tce_dens_pphp_offset.F index af3f4cb285..986e6d546f 100644 --- a/src/tce/gradients/tce_dens_pphp_offset.F +++ b/src/tce/gradients/tce_dens_pphp_offset.F @@ -64,3 +64,4 @@ C dens_pphp ( p3 p4 h1 p5 )_v END DO RETURN END +c $Id$ diff --git a/src/tce/gradients/tce_dens_pppp_offset.F b/src/tce/gradients/tce_dens_pppp_offset.F index 638b44e27a..b1c0a887fa 100644 --- a/src/tce/gradients/tce_dens_pppp_offset.F +++ b/src/tce/gradients/tce_dens_pppp_offset.F @@ -64,3 +64,4 @@ C dens_pppp ( p1 p2 p3 p4 ) END DO RETURN END +c $Id$ diff --git a/src/tce/gradients/tce_eomccsd_1prdm.F b/src/tce/gradients/tce_eomccsd_1prdm.F index 5cf21f2e64..2a9fbc238c 100644 --- a/src/tce/gradients/tce_eomccsd_1prdm.F +++ b/src/tce/gradients/tce_eomccsd_1prdm.F @@ -163,3 +163,4 @@ c 1 call errquit('tce_ccsd_1prdm: ma problem',17,ma_err) c end +c $Id$ diff --git a/src/tce/gradients/tce_gradient.F b/src/tce/gradients/tce_gradient.F index 1475b187d1..2c0398b1ad 100644 --- a/src/tce/gradients/tce_gradient.F +++ b/src/tce/gradients/tce_gradient.F @@ -1447,3 +1447,4 @@ c 3 1x,'Oscillator Strength ',f13.7,/ 4 1x,'--------------------------------------------') end +c $Id$ diff --git a/src/tce/gradients/tce_mp2_energy.F b/src/tce/gradients/tce_mp2_energy.F index 0bcadee674..d7d61120a4 100644 --- a/src/tce/gradients/tce_mp2_energy.F +++ b/src/tce/gradients/tce_mp2_energy.F @@ -94,3 +94,4 @@ c 9100 format(1x,i4,2f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/tce_mp2_gradient.F b/src/tce/gradients/tce_mp2_gradient.F index bd3808f666..966a74894b 100644 --- a/src/tce/gradients/tce_mp2_gradient.F +++ b/src/tce/gradients/tce_mp2_gradient.F @@ -740,3 +740,4 @@ c 2 1x,'Iterations converged') 9100 format(1x,i4,f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/tce_mp3_energy.F b/src/tce/gradients/tce_mp3_energy.F index 87822c8a48..303e7dd401 100644 --- a/src/tce/gradients/tce_mp3_energy.F +++ b/src/tce/gradients/tce_mp3_energy.F @@ -159,3 +159,4 @@ c 9080 format(1x,A,' total energy / hartree = ',f25.15) 9100 format(1x,i4,2f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/tce_mp3_gradient.F b/src/tce/gradients/tce_mp3_gradient.F index 55ee84fafa..20731ef70e 100644 --- a/src/tce/gradients/tce_mp3_gradient.F +++ b/src/tce/gradients/tce_mp3_gradient.F @@ -788,3 +788,4 @@ c 2 1x,'Iterations converged') 9100 format(1x,i4,f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/tce_mp4_energy.F b/src/tce/gradients/tce_mp4_energy.F index a205beb627..b406d1bd7a 100644 --- a/src/tce/gradients/tce_mp4_energy.F +++ b/src/tce/gradients/tce_mp4_energy.F @@ -279,3 +279,4 @@ c 9080 format(1x,A,' total energy / hartree = ',f25.15) 9100 format(1x,i4,2f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/tce_mp4_gradient.F b/src/tce/gradients/tce_mp4_gradient.F index 1787748b4e..8dc8d3cb1c 100644 --- a/src/tce/gradients/tce_mp4_gradient.F +++ b/src/tce/gradients/tce_mp4_gradient.F @@ -926,3 +926,4 @@ c 2 1x,'Iterations converged') 9100 format(1x,i4,f18.13,2f8.1) end +c $Id$ diff --git a/src/tce/gradients/trans_t1_to_t1dagger.F b/src/tce/gradients/trans_t1_to_t1dagger.F index a67a72ab32..883743ccf1 100644 --- a/src/tce/gradients/trans_t1_to_t1dagger.F +++ b/src/tce/gradients/trans_t1_to_t1dagger.F @@ -60,3 +60,4 @@ c enddo c end +c $Id$ diff --git a/src/tce/gradients/trans_t2_to_t2dagger.F b/src/tce/gradients/trans_t2_to_t2dagger.F index 8640ce8f22..63fe7596ba 100644 --- a/src/tce/gradients/trans_t2_to_t2dagger.F +++ b/src/tce/gradients/trans_t2_to_t2dagger.F @@ -77,3 +77,4 @@ c enddo c end +c $Id$ diff --git a/src/tce/gradients/trans_t3_to_t3dagger.F b/src/tce/gradients/trans_t3_to_t3dagger.F index 17e7fb88bf..45f9622deb 100644 --- a/src/tce/gradients/trans_t3_to_t3dagger.F +++ b/src/tce/gradients/trans_t3_to_t3dagger.F @@ -105,3 +105,4 @@ c enddo c end +c $Id$ diff --git a/src/tce/gradients/trans_t4_to_t4dagger.F b/src/tce/gradients/trans_t4_to_t4dagger.F index cfce196a30..451af819ad 100644 --- a/src/tce/gradients/trans_t4_to_t4dagger.F +++ b/src/tce/gradients/trans_t4_to_t4dagger.F @@ -127,3 +127,4 @@ c enddo c end +c $Id$ diff --git a/src/tce/include/tce.fh b/src/tce/include/tce.fh index 3627541034..a218b30967 100644 --- a/src/tce/include/tce.fh +++ b/src/tce/include/tce.fh @@ -96,3 +96,4 @@ c 2 irrep_z,irrep_za,irrep_zb,irrep_zc,irrep_zd common /tcelogical/ 1 restricted,intorb,read_int,write_int,read_ta,write_ta, 2 read_xa,write_xa,read_in3,write_in3 +c $Id$ diff --git a/src/tce/include/tce_amps.fh b/src/tce/include/tce_amps.fh index 7ac3d41177..5650e2509b 100644 --- a/src/tce/include/tce_amps.fh +++ b/src/tce/include/tce_amps.fh @@ -320,3 +320,4 @@ c ===================================================== integer l_y0_offset ! Offset for y0 file integer k_y0_offset ! Offset for y0 file integer size_y0 ! File size in doubles +c $Id$ diff --git a/src/tce/include/tce_hetio.fh b/src/tce/include/tce_hetio.fh index 63d6bb7809..d37164073b 100644 --- a/src/tce/include/tce_hetio.fh +++ b/src/tce/include/tce_hetio.fh @@ -33,3 +33,4 @@ ! 7 io_x1,io_x2,io_x3,io_x4, ! 8 io_y1,io_y2,io_y3,io_y4 +c $Id$ diff --git a/src/tce/include/tce_ints.fh b/src/tce/include/tce_ints.fh index ac7803f369..1d41bc4ca8 100644 --- a/src/tce/include/tce_ints.fh +++ b/src/tce/include/tce_ints.fh @@ -90,3 +90,4 @@ c c common /tceintslogical/ c 1 +c $Id$ diff --git a/src/tce/include/tce_prop.fh b/src/tce/include/tce_prop.fh index d57edfbecb..cf3d11c89b 100644 --- a/src/tce/include/tce_prop.fh +++ b/src/tce/include/tce_prop.fh @@ -38,3 +38,4 @@ 4 ifreqauto,ifreqgrdv,ifreqgrgl,ifreqgrch,ifreqgrst, 5 nopolar,nohyper,nogamma +c $Id$ diff --git a/src/tce/include/tce_restart.fh b/src/tce/include/tce_restart.fh index e762768e08..f251a69499 100644 --- a/src/tce/include/tce_restart.fh +++ b/src/tce/include/tce_restart.fh @@ -58,3 +58,4 @@ c 4 save_x,read_x,save_y,read_y, 5 save_tr,read_tr,save_lr,read_lr, 6 skip_t,skip_l,skip_tr,skip_lr +c $Id$ diff --git a/src/tce/ma_transpose_blocked.F b/src/tce/ma_transpose_blocked.F index 29bbe78514..a891bfe4b9 100644 --- a/src/tce/ma_transpose_blocked.F +++ b/src/tce/ma_transpose_blocked.F @@ -222,3 +222,4 @@ c end non-blocked lower corner c return end +c $Id$ diff --git a/src/tce/tce_dens_hh_offset.F b/src/tce/tce_dens_hh_offset.F index 294cac2deb..a9f52a533e 100644 --- a/src/tce/tce_dens_hh_offset.F +++ b/src/tce/tce_dens_hh_offset.F @@ -51,3 +51,4 @@ C dens_hh ( h5 h6 ) END DO RETURN END +c $Id$ diff --git a/src/tce/tce_dens_hp_offset.F b/src/tce/tce_dens_hp_offset.F index bee6243669..ab01b00c19 100644 --- a/src/tce/tce_dens_hp_offset.F +++ b/src/tce/tce_dens_hp_offset.F @@ -51,3 +51,4 @@ C dens_ph ( h5 p6 ) END DO RETURN END +c $Id$ diff --git a/src/tce/tce_dens_ph_offset.F b/src/tce/tce_dens_ph_offset.F index 30cde8aa46..bee05e96c8 100644 --- a/src/tce/tce_dens_ph_offset.F +++ b/src/tce/tce_dens_ph_offset.F @@ -51,3 +51,4 @@ c dens_hp ( p5 h6 ) END DO RETURN END +c $Id$ diff --git a/src/tce/tce_dens_pp_offset.F b/src/tce/tce_dens_pp_offset.F index b28b3d1d11..3902e5e9c0 100644 --- a/src/tce/tce_dens_pp_offset.F +++ b/src/tce/tce_dens_pp_offset.F @@ -51,3 +51,4 @@ c dens_pp ( p5 p6 ) END DO RETURN END +c $Id$ diff --git a/src/tce/tce_diagnose_t1.F b/src/tce/tce_diagnose_t1.F index d8029f6c4d..c10a676cb2 100644 --- a/src/tce/tce_diagnose_t1.F +++ b/src/tce/tce_diagnose_t1.F @@ -92,3 +92,4 @@ c end +c $Id$ diff --git a/src/tce/tce_mo2e_trans.F b/src/tce/tce_mo2e_trans.F index 5dd56aec50..87f37f2cfa 100644 --- a/src/tce/tce_mo2e_trans.F +++ b/src/tce/tce_mo2e_trans.F @@ -775,3 +775,4 @@ c c return end +c $Id$ diff --git a/src/tce/tce_restart.F b/src/tce/tce_restart.F index e29ac6b2a9..a04adb7962 100644 --- a/src/tce/tce_restart.F +++ b/src/tce/tce_restart.F @@ -2587,3 +2587,4 @@ c end c c +c $Id$ diff --git a/src/tce/tce_restart_quadruples.F b/src/tce/tce_restart_quadruples.F index d297a4cdf7..24e9a7b5cf 100644 --- a/src/tce/tce_restart_quadruples.F +++ b/src/tce/tce_restart_quadruples.F @@ -1227,3 +1227,4 @@ c c return end +c $Id$ diff --git a/src/tce/tce_restart_triples.F b/src/tce/tce_restart_triples.F index 2b12b8d8de..32a6b5aaf5 100644 --- a/src/tce/tce_restart_triples.F +++ b/src/tce/tce_restart_triples.F @@ -1391,3 +1391,4 @@ c c return end +c $Id$ diff --git a/src/tce/tce_sort2_saday.c b/src/tce/tce_sort2_saday.c index 6247e4184e..54ad7e4005 100644 --- a/src/tce/tce_sort2_saday.c +++ b/src/tce/tce_sort2_saday.c @@ -154,3 +154,4 @@ void tce_sort_2_(double* unsorted,double* sorted, transpose_misaligned(unsorted,sorted,a,b,factor); } } +/* $Id$ */ diff --git a/src/tce/tce_sort4_jeff_goldstone.F b/src/tce/tce_sort4_jeff_goldstone.F index cf94383583..e496c68d8d 100644 --- a/src/tce/tce_sort4_jeff_goldstone.F +++ b/src/tce/tce_sort4_jeff_goldstone.F @@ -1005,3 +1005,4 @@ c enddo return end +c $Id$ diff --git a/src/tce/tce_sort4_jeff_torun.F b/src/tce/tce_sort4_jeff_torun.F index a8ffc3ae49..062d404ba7 100644 --- a/src/tce/tce_sort4_jeff_torun.F +++ b/src/tce/tce_sort4_jeff_torun.F @@ -980,3 +980,4 @@ c enddo return end +c $Id$ diff --git a/src/tce/tce_sort_4kg.c b/src/tce/tce_sort_4kg.c index fc9b54bd2b..c8173a1373 100644 --- a/src/tce/tce_sort_4kg.c +++ b/src/tce/tce_sort_4kg.c @@ -83,3 +83,4 @@ void tce_sort_4kg__(double * A, double * B, int * rowIdx, int * colIdx, } +/* $Id$ */ diff --git a/src/tce/tce_sort_saday.c b/src/tce/tce_sort_saday.c index 9e502aadf8..717d0a1734 100644 --- a/src/tce/tce_sort_saday.c +++ b/src/tce/tce_sort_saday.c @@ -1133,3 +1133,4 @@ void tce_sort_6_(double* unsorted,double* sorted, tce_sort_6_scalar(unsorted,sorted,a,b,c,d,e,f,i,j,k,l,m,n,factor); } +/* $Id$ */ diff --git a/src/tce/tce_sortacc_saday.c b/src/tce/tce_sortacc_saday.c index 1d19a08e27..53f1d9339a 100644 --- a/src/tce/tce_sortacc_saday.c +++ b/src/tce/tce_sortacc_saday.c @@ -1178,3 +1178,4 @@ void tce_sortacc_6_(double* unsorted,double* sorted, else tce_sortacc_6_scalar(unsorted,sorted,a,b,c,d,e,f,i,j,k,l,m,n,factor); } +/* $Id$ */ diff --git a/src/tce/tensor_read_write.F b/src/tce/tensor_read_write.F index 740debab0b..67de6458a7 100644 --- a/src/tce/tensor_read_write.F +++ b/src/tce/tensor_read_write.F @@ -273,3 +273,4 @@ c c c c +c $Id$ diff --git a/src/uccsdt/amplitudes.F b/src/uccsdt/amplitudes.F index b4dcd16f3c..b436221cac 100644 --- a/src/uccsdt/amplitudes.F +++ b/src/uccsdt/amplitudes.F @@ -1446,3 +1446,4 @@ c enddo return end +c $Id$ diff --git a/src/uccsdt/amplitudes.fh b/src/uccsdt/amplitudes.fh index 2c23dc2164..917dd0f65e 100644 --- a/src/uccsdt/amplitudes.fh +++ b/src/uccsdt/amplitudes.fh @@ -20,3 +20,4 @@ c +c $Id$ diff --git a/src/uccsdt/bterm.F b/src/uccsdt/bterm.F index 709d12a3d5..1c477a5d17 100644 --- a/src/uccsdt/bterm.F +++ b/src/uccsdt/bterm.F @@ -1331,3 +1331,4 @@ csh c return end +c $Id$ diff --git a/src/uccsdt/cbassym.fh b/src/uccsdt/cbassym.fh index f1f5b47bf7..150a0e6897 100644 --- a/src/uccsdt/cbassym.fh +++ b/src/uccsdt/cbassym.fh @@ -29,3 +29,4 @@ c $ bf_uq, char_tab, bf_per_ir, bf_per_ir_cum, bf_so_ir, $ so_uq_to_lab, so_lab1, so_lab2 common /ccbassym/zir +c $Id$ diff --git a/src/uccsdt/cctrans.F b/src/uccsdt/cctrans.F index b1be1f298f..e2c6f21470 100644 --- a/src/uccsdt/cctrans.F +++ b/src/uccsdt/cctrans.F @@ -591,3 +591,4 @@ c $ ('cctrans3: freeing g?', 0, MA_ERR) c end +c $Id$ diff --git a/src/uccsdt/cflopsP.fh b/src/uccsdt/cflopsP.fh index dc7449f5fa..9f4aa7beb0 100644 --- a/src/uccsdt/cflopsP.fh +++ b/src/uccsdt/cflopsP.fh @@ -7,3 +7,4 @@ c double precision enter common /cflopstrp/flops, times, calls, enter +c $Id$ diff --git a/src/uccsdt/cuccsdtP.fh b/src/uccsdt/cuccsdtP.fh index c5d77dd558..0b1deb5a2e 100644 --- a/src/uccsdt/cuccsdtP.fh +++ b/src/uccsdt/cuccsdtP.fh @@ -149,3 +149,4 @@ c common /cuccsdtfudge/ $ k_t1a, l_t1a, k_t1b, l_t1b c +c $Id$ diff --git a/src/uccsdt/draftt2s.F b/src/uccsdt/draftt2s.F index a74b3b93c9..d8fe07f80a 100644 --- a/src/uccsdt/draftt2s.F +++ b/src/uccsdt/draftt2s.F @@ -563,3 +563,4 @@ c c end +c $Id$ diff --git a/src/uccsdt/ga_long1d.F b/src/uccsdt/ga_long1d.F index 0e1c12384b..5186bc0184 100644 --- a/src/uccsdt/ga_long1d.F +++ b/src/uccsdt/ga_long1d.F @@ -272,3 +272,4 @@ c +c $Id$ diff --git a/src/uccsdt/gterm.F b/src/uccsdt/gterm.F index b327fa69e0..9674ead593 100644 --- a/src/uccsdt/gterm.F +++ b/src/uccsdt/gterm.F @@ -187,3 +187,4 @@ csh $ call errquit('write_t1 failed',0) c return end +c $Id$ diff --git a/src/uccsdt/moints_shpair.F b/src/uccsdt/moints_shpair.F index 569fc8308f..a3aaf5854a 100644 --- a/src/uccsdt/moints_shpair.F +++ b/src/uccsdt/moints_shpair.F @@ -2467,3 +2467,4 @@ C****c C**** end +c $Id$ diff --git a/src/uccsdt/moscreen.F b/src/uccsdt/moscreen.F index d6afe50d0b..c4677975ae 100644 --- a/src/uccsdt/moscreen.F +++ b/src/uccsdt/moscreen.F @@ -311,3 +311,4 @@ c end do c end +c $Id$ diff --git a/src/uccsdt/soints.F b/src/uccsdt/soints.F index be938f9fe9..7fa5c2c58c 100644 --- a/src/uccsdt/soints.F +++ b/src/uccsdt/soints.F @@ -841,3 +841,4 @@ c c end +c $Id$ diff --git a/src/uccsdt/triples_kernels.F b/src/uccsdt/triples_kernels.F index 14217aab30..fd3929ef2a 100644 --- a/src/uccsdt/triples_kernels.F +++ b/src/uccsdt/triples_kernels.F @@ -746,3 +746,4 @@ c end do c end +c $Id$ diff --git a/src/uccsdt/uccsd.F b/src/uccsdt/uccsd.F index 18615afbba..a5ca60e741 100644 --- a/src/uccsdt/uccsd.F +++ b/src/uccsdt/uccsd.F @@ -31,3 +31,4 @@ c update and save for restart c analysis end +c $Id$ diff --git a/src/uccsdt/uccsdt.F b/src/uccsdt/uccsdt.F index 1fd2d4c580..273e681d06 100644 --- a/src/uccsdt/uccsdt.F +++ b/src/uccsdt/uccsdt.F @@ -3062,3 +3062,4 @@ c c end +c $Id$ diff --git a/src/uccsdt/xterm.F b/src/uccsdt/xterm.F index f5d72334b0..83334dd243 100644 --- a/src/uccsdt/xterm.F +++ b/src/uccsdt/xterm.F @@ -345,3 +345,4 @@ csh $ call errquit('write_t2 failed',0) c return end +c $Id$ diff --git a/src/util/erfc.c b/src/util/erfc.c index 653ddde7b6..a4669a7ae8 100644 --- a/src/util/erfc.c +++ b/src/util/erfc.c @@ -11,3 +11,4 @@ double erfc_ (double * x) { return (erfc (*x)); } +/* $Id$ */ diff --git a/src/util/errquit.fh b/src/util/errquit.fh index 617c30868e..17f1821ee0 100644 --- a/src/util/errquit.fh +++ b/src/util/errquit.fh @@ -22,3 +22,4 @@ c HEAP_ERR - error in MA heap parameter (CAPMIS_ERR=40, BASIS_ERR=50, GEOM_ERR=60, GA_ERR=70) parameter (MA_ERR=80, INT_ERR=90, DISK_ERR=100, CALC_ERR=110) parameter (FMM_ERR=120, STACK_ERR=11, HEAP_ERR=12) +c $Id$ diff --git a/src/util/ga_accback.c b/src/util/ga_accback.c index 67a4d14d2c..19668296d6 100644 --- a/src/util/ga_accback.c +++ b/src/util/ga_accback.c @@ -75,3 +75,4 @@ void FATR ga_access_callback_release_(g_a, ilo, ihi, jlo, jhi, } } +/* $Id$ */ diff --git a/src/util/ga_antisymmetr.F b/src/util/ga_antisymmetr.F index 214927fc19..bf5fac0999 100644 --- a/src/util/ga_antisymmetr.F +++ b/src/util/ga_antisymmetr.F @@ -220,3 +220,4 @@ c enddo enddo END +c $Id$ diff --git a/src/util/lcopy.f b/src/util/lcopy.f index c867aae6f3..188c1b48fc 100644 --- a/src/util/lcopy.f +++ b/src/util/lcopy.f @@ -17,3 +17,4 @@ return end +c $Id$ diff --git a/src/util/nwmolden.F b/src/util/nwmolden.F index 6ac2740089..2debed43d5 100644 --- a/src/util/nwmolden.F +++ b/src/util/nwmolden.F @@ -284,3 +284,4 @@ c +c $Id$ diff --git a/src/util/nwmolden.fh b/src/util/nwmolden.fh index c9ee18b5dd..516630da89 100644 --- a/src/util/nwmolden.fh +++ b/src/util/nwmolden.fh @@ -3,3 +3,4 @@ external nwmolden_geom,nwmolden_basis,nwmolden_movecs external nwmolden_openfile,nwmolden_closefile +c $Id$ diff --git a/src/util/testutil.fh b/src/util/testutil.fh index e7d6ca1cab..0224f5db81 100644 --- a/src/util/testutil.fh +++ b/src/util/testutil.fh @@ -2,3 +2,4 @@ integer util_mitob, util_mdtob external util_drand, util_timer external util_mitob, util_mdtob +c $Id$ diff --git a/src/util/testutil.h b/src/util/testutil.h index 6f36a51b0d..fa324189c2 100644 --- a/src/util/testutil.h +++ b/src/util/testutil.h @@ -37,3 +37,4 @@ extern void print_subscript(char *pre,int ndim, int subscript[], char* post); extern void print_distribution(int g_a); +/* $Id$ */ diff --git a/src/util/util.c b/src/util/util.c index 48e120a27e..27356954b6 100644 --- a/src/util/util.c +++ b/src/util/util.c @@ -466,3 +466,4 @@ double FATR util_timer_() return tcg_time(); #endif } +/* $Id$ */ diff --git a/src/util/util_debug.c b/src/util/util_debug.c index 190f9aa19c..d07dc31e17 100644 --- a/src/util/util_debug.c +++ b/src/util/util_debug.c @@ -136,3 +136,4 @@ void FATR util_debug_(Integer *rtdb) } #endif +/* $Id$ */ diff --git a/src/util/util_eaf_test.F b/src/util/util_eaf_test.F index 3cbfa4f3e2..fca012d081 100644 --- a/src/util/util_eaf_test.F +++ b/src/util/util_eaf_test.F @@ -434,3 +434,4 @@ c endif end +c $Id$ diff --git a/src/util/util_erf.F b/src/util/util_erf.F index b6616b5dd6..2741720200 100644 --- a/src/util/util_erf.F +++ b/src/util/util_erf.F @@ -206,3 +206,4 @@ c !************************************************************************ return END +c $Id$ diff --git a/src/util/util_io_unit.F b/src/util/util_io_unit.F index 3bf393cf32..f0c88391ad 100644 --- a/src/util/util_io_unit.F +++ b/src/util/util_io_unit.F @@ -23,3 +23,4 @@ c return end +c $Id$ diff --git a/src/util/util_labelconv.F b/src/util/util_labelconv.F index ccbb69f6a7..3e3f020efc 100644 --- a/src/util/util_labelconv.F +++ b/src/util/util_labelconv.F @@ -51,3 +51,4 @@ return end +c $Id$ diff --git a/src/util/util_memcpy.c b/src/util/util_memcpy.c index ad0bb5d6a0..4a08c62c0c 100644 --- a/src/util/util_memcpy.c +++ b/src/util/util_memcpy.c @@ -15,3 +15,4 @@ void FATR util_memcpy_(void *dest, void *src, Integer *n) memcpy(dest, src, (size_t) *n); } +/* $Id$ */ diff --git a/src/util/util_nwchem_paper.F b/src/util/util_nwchem_paper.F index 12d9b70342..a24dcc3b1a 100644 --- a/src/util/util_nwchem_paper.F +++ b/src/util/util_nwchem_paper.F @@ -35,3 +35,4 @@ c & 40, .false.) c end +c $Id$ diff --git a/src/util/util_sf_test.F b/src/util/util_sf_test.F index ae2bdc4a6b..15bca73afd 100644 --- a/src/util/util_sf_test.F +++ b/src/util/util_sf_test.F @@ -160,3 +160,4 @@ c c call ga_terminate c call pend() end +c $Id$ diff --git a/src/util/util_v_stub.F b/src/util/util_v_stub.F index 9f7e62d7b8..f56037a011 100644 --- a/src/util/util_v_stub.F +++ b/src/util/util_v_stub.F @@ -2,3 +2,4 @@ write(6,*) ' util_version: stubbed out. Use ''make version''', $ ' in the util directory to build version info' end +c $Id$ diff --git a/src/util/util_xyz.F b/src/util/util_xyz.F index a42fce8803..82f33cfc50 100644 --- a/src/util/util_xyz.F +++ b/src/util/util_xyz.F @@ -110,3 +110,4 @@ c ---------- return end +c $Id$