From 8d1789fbbc8b4bbdd98f5994902f82891d2f4c6a Mon Sep 17 00:00:00 2001 From: Huub Van Dam Date: Fri, 29 Oct 2010 16:57:34 +0000 Subject: [PATCH] HvD: In the CVS era the $Id: $ tags in the source code files would automatically be expanded to include useful information about the checkin (including the file's revision number). With the switch over to SVN this was lost because SVN only does this expansion if you explicitly ask for it (for every single file). I have added a script to the contrib directory that sets the appropriate property to get SVN to do this expansion. This script will make it easy to do this every time new source files are added. It is called svn_expand_Id, the script contains some comments that explain the issue and how it addresses this. This checkin sets this property for a subset of the relevant files (trying to commit all files at once failed with svn crashing). In future the script will only affect those files for which the property was not set before. --- src/64to32blas/GNUmakefile | 2 +- src/64to32blas/ifily.F | 2 +- src/64to32blas/ixamax.F | 2 +- src/64to32blas/iyamax.F | 2 +- src/64to32blas/xaxpy.F | 2 +- src/64to32blas/xcopy.F | 2 +- src/64to32blas/xdotc.F | 2 +- src/64to32blas/xgemm.F | 2 +- src/64to32blas/xheev.F | 2 +- src/64to32blas/xscal.F | 2 +- src/64to32blas/yasum.F | 2 +- src/64to32blas/yaxpy.F | 2 +- src/64to32blas/ycopy.F | 2 +- src/64to32blas/ydot.F | 2 +- src/64to32blas/ygebak.F | 2 +- src/64to32blas/ygebal.F | 2 +- src/64to32blas/ygeev.F | 2 +- src/64to32blas/ygehrd.F | 2 +- src/64to32blas/ygemm.F | 2 +- src/64to32blas/ygemv.F | 2 +- src/64to32blas/yger.F | 2 +- src/64to32blas/ygesv.F | 2 +- src/64to32blas/ygesvd.F | 2 +- src/64to32blas/yhseqr.F | 2 +- src/64to32blas/ylacpy.F | 2 +- src/64to32blas/ylagtf.F | 2 +- src/64to32blas/ylagts.F | 2 +- src/64to32blas/ylange.F | 2 +- src/64to32blas/ylarnv.F | 2 +- src/64to32blas/ylascl.F | 2 +- src/64to32blas/ylaset.F | 2 +- src/64to32blas/ynrm2.F | 2 +- src/64to32blas/yorghr.F | 2 +- src/64to32blas/yposv.F | 2 +- src/64to32blas/ypotrf.f | 2 +- src/64to32blas/ypotri.f | 2 +- src/64to32blas/yrot.F | 2 +- src/64to32blas/yscal.F | 2 +- src/64to32blas/yspsvx.F | 2 +- src/64to32blas/ysterf.F | 2 +- src/64to32blas/yswap.F | 2 +- src/64to32blas/ysyev.F | 2 +- src/64to32blas/ysygv.F | 2 +- src/64to32blas/ytrevc.F | 2 +- src/bq/GNUmakefile | 2 +- src/bq/bq_data.F | 2 +- src/bq/bq_data.fh | 2 +- src/bq/bq_input.F | 2 +- src/bq/bq_main.F | 2 +- src/bq/bq_params.fh | 2 +- src/bq/bq_rtdb.F | 2 +- src/dplot/GNUmakefile | 2 +- src/dplot/create_contour.F | 2 +- src/dplot/dmat.F | 2 +- src/dplot/dplot.F | 2 +- src/dplot/dplot_dos.F | 2 +- src/dplot/dplot_input.F | 2 +- src/dplot/errmem.F | 2 +- src/dplot/get_charges.F | 2 +- src/dplot/get_dens.F | 2 +- src/dplot/get_grid.F | 2 +- src/driver/GNUmakefile | 2 +- src/driver/coptopt.fh | 2 +- src/driver/driver_input.F | 2 +- src/driver/lbfgs-b_driver.F | 2 +- src/driver/lbfgs_utils.F | 2 +- src/driver/lst_drv.F | 2 +- src/driver/oniom.F | 2 +- src/driver/opt_drv.F | 2 +- src/hessian/GNUmakefile | 2 +- src/hessian/analytic/GNUmakefile | 2 +- src/hessian/analytic/dft/GNUmakefile | 2 +- src/hessian/analytic/dft/dft_3dacc.F | 2 +- src/hessian/analytic/dft/xc_cpks_coeff.F | 2 +- src/hessian/analytic/dft/xc_d2expl.F | 2 +- src/hessian/analytic/dft/xc_exit_index.F | 2 +- src/hessian/analytic/dft/xc_init_index.F | 2 +- src/hessian/analytic/dft/xc_nucder_gen.F | 6 +++--- src/hessian/analytic/get_wdens.F | 2 +- src/hessian/analytic/hess_anal.F | 2 +- src/hessian/analytic/hess_cphf.F | 2 +- src/hessian/analytic/hess_dipder.F | 2 +- src/hessian/analytic/hess_hssout.F | 2 +- src/hessian/analytic/hess_info.fh | 2 +- src/hessian/analytic/hess_init.F | 2 +- src/hessian/analytic/hess_print.F | 2 +- src/hessian/analytic/hess_pxfy.F | 2 +- src/hessian/analytic/hess_restart.F | 2 +- src/hessian/analytic/hess_sxsy.F | 2 +- src/hessian/analytic/hess_tidy.F | 2 +- src/hessian/analytic/hess_wrt.F | 2 +- src/hessian/analytic/nucdd_calc.F | 2 +- src/hessian/analytic/nucdd_cont.F | 2 +- src/hessian/analytic/oned_calc.F | 2 +- src/hessian/analytic/onedd_calc.F | 2 +- src/hessian/analytic/onedd_cont.F | 2 +- src/hessian/analytic/shell_fock_build.F | 2 +- src/hessian/analytic/sx_dra.F | 2 +- src/hessian/analytic/twodd_cont.F | 2 +- src/hessian/analytic/twodd_coul_ex.F | 2 +- src/hessian/hess_blas.F | 2 +- src/hessian/hess_input.F | 2 +- src/hessian/rhf_hessian.F | 2 +- src/hessian/scf_hessian.F | 2 +- src/input/GNUmakefile | 2 +- src/input/get_inp_file.F | 2 +- src/input/input_mem.F | 2 +- src/input/input_parse.F | 2 +- src/input/input_set.F | 2 +- src/input/input_title.F | 2 +- src/input/memory_def.F | 2 +- src/input/memory_input.F | 2 +- src/input/speech_input.F | 2 +- src/lapack/GNUmakefile | 2 +- src/lapack/MakeFile | 2 +- src/lapack/double/MakeFile | 2 +- src/lapack/double/dbdsqr.f | 2 +- src/lapack/double/dgebak.f | 2 +- src/lapack/double/dgebal.f | 2 +- src/lapack/double/dgebd2.f | 2 +- src/lapack/double/dgebrd.f | 2 +- src/lapack/double/dgeev.f | 2 +- src/lapack/double/dgehd2.f | 2 +- src/lapack/double/dgehrd.f | 2 +- src/lapack/double/dgelq2.f | 2 +- src/lapack/double/dgelqf.f | 2 +- src/lapack/double/dgeqr2.f | 2 +- src/lapack/double/dgeqrf.f | 2 +- src/lapack/double/dgesv.f | 2 +- src/lapack/double/dgesvd.f | 2 +- src/lapack/double/dgetf2.f | 2 +- src/lapack/double/dgetrf.f | 2 +- src/lapack/double/dgetrs.f | 2 +- src/lapack/double/dhseqr.f | 2 +- src/lapack/double/dlabad.f | 2 +- src/lapack/double/dlabrd.f | 2 +- src/lapack/double/dlacon.f | 2 +- src/lapack/double/dlacpy.f | 2 +- src/lapack/double/dladiv.f | 2 +- src/lapack/double/dlae2.f | 2 +- src/lapack/double/dlaev2.f | 2 +- src/lapack/double/dlagtf.f | 2 +- src/lapack/double/dlagts.f | 2 +- src/lapack/double/dlahqr.f | 2 +- src/lapack/double/dlahrd.f | 2 +- src/lapack/double/dlaln2.f | 2 +- src/lapack/double/dlamch.f | 2 +- src/lapack/double/dlange.f | 2 +- src/lapack/double/dlanhs.f | 2 +- src/lapack/double/dlansp.f | 2 +- src/lapack/double/dlanst.f | 2 +- src/lapack/double/dlansy.f | 2 +- src/lapack/double/dlanv2.f | 2 +- src/lapack/double/dlapy2.f | 2 +- src/lapack/double/dlapy3.f | 2 +- src/lapack/double/dlarf.f | 2 +- src/lapack/double/dlarfb.f | 2 +- src/lapack/double/dlarfg.f | 2 +- src/lapack/double/dlarft.f | 2 +- src/lapack/double/dlarfx.f | 2 +- src/lapack/double/dlarnv.f | 2 +- src/lapack/double/dlartg.f | 2 +- src/lapack/double/dlaruv.f | 2 +- src/lapack/double/dlas2.f | 2 +- src/lapack/double/dlascl.f | 2 +- src/lapack/double/dlaset.f | 2 +- src/lapack/double/dlasq1.f | 2 +- src/lapack/double/dlasq2.f | 2 +- src/lapack/double/dlasq3.f | 2 +- src/lapack/double/dlasq4.f | 2 +- src/lapack/double/dlasq5.f | 2 +- src/lapack/double/dlasq6.f | 2 +- src/lapack/double/dlasr.f | 2 +- src/lapack/double/dlasrt.f | 2 +- src/lapack/double/dlassq.f | 2 +- src/lapack/double/dlasv2.f | 2 +- src/lapack/double/dlaswp.f | 2 +- src/lapack/double/dlatrd.f | 2 +- src/lapack/double/dlauu2.f | 2 +- src/lapack/double/dlauum.f | 2 +- src/lapack/double/dorg2l.f | 2 +- src/lapack/double/dorg2r.f | 2 +- src/lapack/double/dorgbr.f | 2 +- src/lapack/double/dorghr.f | 2 +- src/lapack/double/dorgl2.f | 2 +- src/lapack/double/dorglq.f | 2 +- src/lapack/double/dorgql.f | 2 +- src/lapack/double/dorgqr.f | 2 +- src/lapack/double/dorgtr.f | 2 +- src/lapack/double/dorm2r.f | 2 +- src/lapack/double/dormbr.f | 2 +- src/lapack/double/dorml2.f | 2 +- src/lapack/double/dormlq.f | 2 +- src/lapack/double/dormqr.f | 2 +- src/lapack/double/dposv.f | 2 +- src/lapack/double/dpotf2.f | 2 +- src/lapack/double/dpotrf.f | 2 +- src/lapack/double/dpotri.f | 2 +- src/lapack/double/dpotrs.f | 2 +- src/lapack/double/dspcon.f | 2 +- src/lapack/double/dsprfs.f | 2 +- src/lapack/double/dspsvx.f | 2 +- src/lapack/double/dsptrf.f | 2 +- src/lapack/double/dsptrs.f | 2 +- src/lapack/double/dsteqr.f | 2 +- src/lapack/double/dsterf.f | 2 +- src/lapack/double/dsyev.f | 2 +- src/lapack/double/dsygs2.f | 2 +- src/lapack/double/dsygst.f | 2 +- src/lapack/double/dsygv.f | 2 +- src/lapack/double/dsytd2.f | 2 +- src/lapack/double/dsytrd.f | 2 +- src/lapack/double/dtrevc.f | 2 +- src/lapack/double/dtrti2.f | 2 +- src/lapack/double/dtrtri.f | 2 +- src/lapack/double/ieeeck.f | 2 +- src/lapack/double/ilaenv.f | 2 +- src/lapack/double/lsamen.f | 2 +- src/lapack/double/zgebak.f | 2 +- src/lapack/double/zgebal.f | 2 +- src/lapack/double/zgeev.f | 2 +- src/lapack/double/zgehd2.f | 2 +- src/lapack/double/zgehrd.f | 2 +- src/lapack/double/zgesv.f | 2 +- src/lapack/double/zgetf2.f | 2 +- src/lapack/double/zgetrf.f | 2 +- src/lapack/double/zgetrs.f | 2 +- src/lapack/double/zheev.f | 2 +- src/lapack/double/zhegs2.f | 2 +- src/lapack/double/zhegst.f | 2 +- src/lapack/double/zhegv.f | 2 +- src/lapack/double/zhetd2.f | 2 +- src/lapack/double/zhetrd.f | 2 +- src/lapack/double/zhseqr.f | 2 +- src/lapack/double/zlacgv.f | 2 +- src/lapack/double/zlacon.f | 2 +- src/lapack/double/zlacpy.f | 2 +- src/lapack/double/zladiv.f | 2 +- src/lapack/double/zlahqr.f | 2 +- src/lapack/double/zlahrd.f | 2 +- src/lapack/double/zlange.f | 2 +- src/lapack/double/zlanhe.f | 2 +- src/lapack/double/zlanhs.f | 2 +- src/lapack/double/zlansp.f | 2 +- src/lapack/double/zlarf.f | 2 +- src/lapack/double/zlarfb.f | 2 +- src/lapack/double/zlarfg.f | 2 +- src/lapack/double/zlarft.f | 2 +- src/lapack/double/zlarfx.f | 2 +- src/lapack/double/zlascl.f | 2 +- src/lapack/double/zlaset.f | 2 +- src/lapack/double/zlasr.f | 2 +- src/lapack/double/zlassq.f | 2 +- src/lapack/double/zlaswp.f | 2 +- src/lapack/double/zlatrd.f | 2 +- src/lapack/double/zlatrs.f | 2 +- src/lapack/double/zpotf2.f | 2 +- src/lapack/double/zpotrf.f | 2 +- src/lapack/double/zspcon.f | 2 +- src/lapack/double/zspmv.f | 2 +- src/lapack/double/zspr.f | 2 +- src/lapack/double/zsprfs.f | 2 +- src/lapack/double/zspsvx.f | 2 +- src/lapack/double/zsptrf.f | 2 +- src/lapack/double/zsptrs.f | 2 +- src/lapack/double/zsteqr.f | 2 +- src/lapack/double/ztrevc.f | 2 +- src/lapack/double/zung2l.f | 2 +- src/lapack/double/zung2r.f | 2 +- src/lapack/double/zunghr.f | 2 +- src/lapack/double/zungql.f | 2 +- src/lapack/double/zungqr.f | 2 +- src/lapack/double/zungtr.f | 2 +- src/lapack/single/cgebak.f | 2 +- src/lapack/single/cgebal.f | 2 +- src/lapack/single/cgeev.f | 2 +- src/lapack/single/cgehd2.f | 2 +- src/lapack/single/cgehrd.f | 2 +- src/lapack/single/cheev.f | 2 +- src/lapack/single/chegs2.f | 2 +- src/lapack/single/chegst.f | 2 +- src/lapack/single/chegv.f | 2 +- src/lapack/single/chetd2.f | 2 +- src/lapack/single/chetrd.f | 2 +- src/lapack/single/chseqr.f | 2 +- src/lapack/single/clacgv.f | 2 +- src/lapack/single/clacpy.f | 2 +- src/lapack/single/cladiv.f | 2 +- src/lapack/single/clahqr.f | 2 +- src/lapack/single/clahrd.f | 2 +- src/lapack/single/clange.f | 2 +- src/lapack/single/clanhe.f | 2 +- src/lapack/single/clanhs.f | 2 +- src/lapack/single/clarf.f | 2 +- src/lapack/single/clarfb.f | 2 +- src/lapack/single/clarfg.f | 2 +- src/lapack/single/clarft.f | 2 +- src/lapack/single/clarfx.f | 2 +- src/lapack/single/clascl.f | 2 +- src/lapack/single/claset.f | 2 +- src/lapack/single/clasr.f | 2 +- src/lapack/single/classq.f | 2 +- src/lapack/single/claswp.f | 2 +- src/lapack/single/clatrd.f | 2 +- src/lapack/single/clatrs.f | 2 +- src/lapack/single/cpotf2.f | 2 +- src/lapack/single/cpotrf.f | 2 +- src/lapack/single/csteqr.f | 2 +- src/lapack/single/ctrevc.f | 2 +- src/lapack/single/cung2l.f | 2 +- src/lapack/single/cung2r.f | 2 +- src/lapack/single/cunghr.f | 2 +- src/lapack/single/cungql.f | 2 +- src/lapack/single/cungqr.f | 2 +- src/lapack/single/cungtr.f | 2 +- src/lapack/single/ieeeck.f | 2 +- src/lapack/single/ilaenv.f | 2 +- src/lapack/single/lsamen.f | 2 +- src/lapack/single/sbdsqr.f | 2 +- src/lapack/single/sgebak.f | 2 +- src/lapack/single/sgebal.f | 2 +- src/lapack/single/sgebd2.f | 2 +- src/lapack/single/sgebrd.f | 2 +- src/lapack/single/sgehrd.f | 2 +- src/lapack/single/sgelq2.f | 2 +- src/lapack/single/sgelqf.f | 2 +- src/lapack/single/sgeqr2.f | 2 +- src/lapack/single/sgeqrf.f | 2 +- src/lapack/single/sgesv.f | 2 +- src/lapack/single/sgesvd.f | 2 +- src/lapack/single/sgetf2.f | 2 +- src/lapack/single/sgetrf.f | 2 +- src/lapack/single/sgetrs.f | 2 +- src/lapack/single/shseqr.f | 2 +- src/lapack/single/slabad.f | 2 +- src/lapack/single/slabrd.f | 2 +- src/lapack/single/slacon.f | 2 +- src/lapack/single/slacpy.f | 2 +- src/lapack/single/sladiv.f | 2 +- src/lapack/single/slae2.f | 2 +- src/lapack/single/slaev2.f | 2 +- src/lapack/single/slagtf.f | 2 +- src/lapack/single/slagts.f | 2 +- src/lapack/single/slamch.f | 2 +- src/lapack/single/slange.f | 2 +- src/lapack/single/slansp.f | 2 +- src/lapack/single/slanst.f | 2 +- src/lapack/single/slansy.f | 2 +- src/lapack/single/slapy2.f | 2 +- src/lapack/single/slapy3.f | 2 +- src/lapack/single/slarf.f | 2 +- src/lapack/single/slarfb.f | 2 +- src/lapack/single/slarfg.f | 2 +- src/lapack/single/slarft.f | 2 +- src/lapack/single/slarnv.f | 2 +- src/lapack/single/slartg.f | 2 +- src/lapack/single/slaruv.f | 2 +- src/lapack/single/slas2.f | 2 +- src/lapack/single/slascl.f | 2 +- src/lapack/single/slaset.f | 2 +- src/lapack/single/slasq1.f | 2 +- src/lapack/single/slasq2.f | 2 +- src/lapack/single/slasq3.f | 2 +- src/lapack/single/slasq4.f | 2 +- src/lapack/single/slasq5.f | 2 +- src/lapack/single/slasr.f | 2 +- src/lapack/single/slasrt.f | 2 +- src/lapack/single/slassq.f | 2 +- src/lapack/single/slasv2.f | 2 +- src/lapack/single/slaswp.f | 2 +- src/lapack/single/slatrd.f | 2 +- src/lapack/single/slauu2.f | 2 +- src/lapack/single/slauum.f | 2 +- src/lapack/single/sorg2l.f | 2 +- src/lapack/single/sorg2r.f | 2 +- src/lapack/single/sorgbr.f | 2 +- src/lapack/single/sorghr.f | 2 +- src/lapack/single/sorgl2.f | 2 +- src/lapack/single/sorglq.f | 2 +- src/lapack/single/sorgql.f | 2 +- src/lapack/single/sorgqr.f | 2 +- src/lapack/single/sorgtr.f | 2 +- src/lapack/single/sorm2r.f | 2 +- src/lapack/single/sormbr.f | 2 +- src/lapack/single/sorml2.f | 2 +- src/lapack/single/sormlq.f | 2 +- src/lapack/single/sormqr.f | 2 +- src/lapack/single/spotf2.f | 2 +- src/lapack/single/spotrf.f | 2 +- src/lapack/single/spotri.f | 2 +- src/lapack/single/sspcon.f | 2 +- src/lapack/single/ssprfs.f | 2 +- src/lapack/single/sspsvx.f | 2 +- src/lapack/single/ssptrf.f | 2 +- src/lapack/single/ssptrs.f | 2 +- src/lapack/single/ssteqr.f | 2 +- src/lapack/single/ssterf.f | 2 +- src/lapack/single/ssyev.f | 2 +- src/lapack/single/ssygs2.f | 2 +- src/lapack/single/ssygst.f | 2 +- src/lapack/single/ssygv.f | 2 +- src/lapack/single/ssytd2.f | 2 +- src/lapack/single/ssytrd.f | 2 +- src/lapack/single/strevc.f | 2 +- src/lapack/single/strti2.f | 2 +- src/lapack/single/strtri.f | 2 +- src/ncc/GNUmakefile | 2 +- src/ncc/ncc_doubles.F | 2 +- src/ncc/ncc_driver.F | 2 +- src/ncc/ncc_fourindex.F | 2 +- src/ncc/ncc_input.F | 2 +- src/ncc/ncc_input.fh | 2 +- src/ncc/ncc_singles.F | 2 +- src/prepar/GNUmakefile | 2 +- src/prepar/pre_admin.F | 2 +- src/prepar/pre_align.F | 2 +- src/prepar/pre_ang.F | 2 +- src/prepar/pre_angl.F | 2 +- src/prepar/pre_atmscn.F | 2 +- src/prepar/pre_atnam.F | 2 +- src/prepar/pre_atnum.F | 2 +- src/prepar/pre_atom_index.F | 2 +- src/prepar/pre_atrad.F | 2 +- src/prepar/pre_atype.F | 2 +- src/prepar/pre_base.F | 2 +- src/prepar/pre_bnd.F | 2 +- src/prepar/pre_bonds.F | 2 +- src/prepar/pre_boxsiz.F | 2 +- src/prepar/pre_center.F | 2 +- src/prepar/pre_charge.F | 2 +- src/prepar/pre_check.F | 2 +- src/prepar/pre_common.fh | 2 +- src/prepar/pre_dih.F | 2 +- src/prepar/pre_dihimp.F | 2 +- src/prepar/pre_dihsel.F | 2 +- src/prepar/pre_dimens.F | 2 +- src/prepar/pre_disres.F | 2 +- src/prepar/pre_dummy.F | 2 +- src/prepar/pre_equiv.F | 2 +- src/prepar/pre_excl.F | 2 +- src/prepar/pre_ffield.F | 2 +- src/prepar/pre_fix.F | 2 +- src/prepar/pre_frgrd.F | 2 +- src/prepar/pre_frgsiz.F | 2 +- src/prepar/pre_gensgm.F | 2 +- src/prepar/pre_his.F | 2 +- src/prepar/pre_hnames.F | 2 +- src/prepar/pre_hybrid.F | 2 +- src/prepar/pre_imp.F | 2 +- src/prepar/pre_impctr.F | 2 +- src/prepar/pre_input.F | 2 +- src/prepar/pre_links.F | 2 +- src/prepar/pre_merge.F | 2 +- src/prepar/pre_misfit.F | 2 +- src/prepar/pre_mkfrg.F | 2 +- src/prepar/pre_mklist.F | 2 +- src/prepar/pre_mknoe.F | 2 +- src/prepar/pre_mkrst.F | 2 +- src/prepar/pre_mkseq.F | 2 +- src/prepar/pre_mksgm.F | 2 +- src/prepar/pre_mktop.F | 2 +- src/prepar/pre_modify.F | 2 +- src/prepar/pre_multip.F | 2 +- src/prepar/pre_namiup.F | 2 +- src/prepar/pre_natyps.F | 2 +- src/prepar/pre_nonbon.F | 2 +- src/prepar/pre_nucleic.F | 2 +- src/prepar/pre_orient.F | 2 +- src/prepar/pre_params.F | 2 +- src/prepar/pre_parcnv.F | 2 +- src/prepar/pre_parcom.F | 2 +- src/prepar/pre_paths.F | 2 +- src/prepar/pre_paths2.F | 2 +- src/prepar/pre_pdbseq.F | 2 +- src/prepar/pre_pdbsiz.F | 2 +- src/prepar/pre_protein.F | 2 +- src/prepar/pre_rdgeom.F | 2 +- src/prepar/pre_rdpdb.F | 2 +- src/prepar/pre_rdrst.F | 4 ++-- src/prepar/pre_rdseq.F | 2 +- src/prepar/pre_rdsgm.F | 2 +- src/prepar/pre_removw.F | 2 +- src/prepar/pre_rename.F | 2 +- src/prepar/pre_repeat.F | 2 +- src/prepar/pre_rot.F | 2 +- src/prepar/pre_rotate.F | 2 +- src/prepar/pre_rstmod.F | 2 +- src/prepar/pre_rstsiz.F | 4 ++-- src/prepar/pre_rtdbin.F | 2 +- src/prepar/pre_rtdbsq.F | 2 +- src/prepar/pre_scnseq.F | 2 +- src/prepar/pre_select.F | 2 +- src/prepar/pre_seqsiz.F | 2 +- src/prepar/pre_sgmfil.F | 2 +- src/prepar/pre_sgmndx.F | 2 +- src/prepar/pre_sgmnum.F | 2 +- src/prepar/pre_sgmsiz.F | 2 +- src/prepar/pre_short.F | 4 ++-- src/prepar/pre_slvnum.F | 2 +- src/prepar/pre_slvrd.F | 2 +- src/prepar/pre_slvsiz.F | 2 +- src/prepar/pre_solvat.F | 2 +- src/prepar/pre_task.F | 2 +- src/prepar/pre_task1.F | 2 +- src/prepar/pre_term.F | 2 +- src/prepar/pre_third.F | 2 +- src/prepar/pre_toprd.F | 2 +- src/prepar/pre_topsiz.F | 2 +- src/prepar/pre_torang.F | 2 +- src/prepar/pre_transl.F | 2 +- src/prepar/pre_wrtnam.F | 2 +- src/prepar/pre_wrtpdb.F | 2 +- src/prepar/pre_wrtpov.F | 2 +- src/prepar/pre_wrtrst.F | 2 +- src/prepar/pre_wrtseq.F | 2 +- src/prepar/pre_wrtsgm.F | 2 +- src/prepar/pre_wrttop.F | 2 +- src/prepar/pre_wrtxyz.F | 2 +- src/prepar/prepar.F | 2 +- src/rimp2/GNUmakefile | 2 +- src/rimp2/MakeFile | 4 ++-- src/rimp2/close_3ci.F | 2 +- src/rimp2/debugging/stupid_e.F | 2 +- src/rimp2/debugging/stupid_xf.F | 2 +- src/rimp2/dgecop.F | 2 +- src/rimp2/eval_3ci.F | 2 +- src/rimp2/ftnio.fh | 2 +- src/rimp2/ga_by_shells.F | 2 +- src/rimp2/get_3cints.F | 2 +- src/rimp2/iamax.f | 2 +- src/rimp2/lnblnk.f | 2 +- src/rimp2/max_v_diag.F | 2 +- src/rimp2/mk_1d_shdist.F | 2 +- src/rimp2/mk_v.F | 2 +- src/rimp2/occ_ranges.F | 2 +- src/rimp2/open_3ci.F | 2 +- src/rimp2/panel_diag.f | 2 +- src/rimp2/pr_corr_map.F | 2 +- src/rimp2/prog_report.F | 2 +- src/rimp2/put_3cints.F | 2 +- src/rimp2/rimp2.F | 2 +- src/rimp2/rimp2_denom.F | 2 +- src/rimp2/rimp2_e_mem.F | 2 +- src/rimp2/rimp2_parm.F | 2 +- src/rimp2/rimp2_timers.F | 2 +- src/rimp2/rimp2_timers.fh | 2 +- src/rimp2/rimp2_v_e2.F | 2 +- src/rimp2/rimp2_xf.F | 2 +- src/rimp2/sum_pairs.F | 2 +- src/rimp2/xf3ci_mem12.F | 2 +- src/rimp2/xf3ci_s12a.F | 2 +- src/rimp2/xf3ci_s12b.F | 2 +- src/rimp2/xf3ci_step12.F | 2 +- src/rimp2/xf3ci_step3.F | 2 +- src/rimp2/xform_3cints.F | 2 +- src/rimp2_grad/GNUmakefile | 2 +- src/rimp2_grad/NOTES | 2 +- src/rimp2_grad/TEMPLATE | 2 +- src/rimp2_grad/asym_i.F | 2 +- src/rimp2_grad/clean_sep.F | 2 +- src/rimp2_grad/create_dra.F | 2 +- src/rimp2_grad/delete_dra.F | 2 +- src/rimp2_grad/denom2.F | 2 +- src/rimp2_grad/doc/GNUmakefile | 2 +- src/rimp2_grad/driver_e.F | 2 +- src/rimp2_grad/driver_g.F | 2 +- src/rimp2_grad/driver_p.F | 2 +- src/rimp2_grad/driver_xf.F | 2 +- src/rimp2_grad/e_final.F | 2 +- src/rimp2_grad/e_ij.F | 2 +- src/rimp2_grad/g_ij.F | 2 +- src/rimp2_grad/gamma3.F | 2 +- src/rimp2_grad/ij_int.F | 2 +- src/rimp2_grad/l1.F | 2 +- src/rimp2_grad/l2.F | 2 +- src/rimp2_grad/mk_l.F | 2 +- src/rimp2_grad/mk_t.F | 2 +- src/rimp2_grad/mk_w2.F | 2 +- src/rimp2_grad/nonsep2.F | 2 +- src/rimp2_grad/ns2_2e2c.F | 2 +- src/rimp2_grad/ns2_i3g3.F | 2 +- src/rimp2_grad/p2ab.F | 2 +- src/rimp2_grad/p2am.F | 2 +- src/rimp2_grad/p2ij.F | 2 +- src/rimp2_grad/paire.F | 2 +- src/rimp2_grad/prep_dra.F | 2 +- src/rimp2_grad/prep_sep.F | 2 +- src/rimp2_grad/rimp2g.F | 2 +- src/rimp2_grad/rimp2g_e_mem.F | 2 +- src/rimp2_grad/rimp2g_parm.F | 2 +- src/rimp2_grad/rimp2g_timers.F | 2 +- src/rimp2_grad/rimp2g_timers.fh | 2 +- src/rimp2_grad/t_stats.F | 14 +++++++------- src/rimp2_grad/util_detri.F | 2 +- src/rimp2_grad/util_sqz_spc.F | 2 +- src/rimp2_grad/xform_3cintsg.F | 2 +- src/tools/MakeFile | 2 +- src/tools/README | 2 +- src/tools/cvs-tools | 2 +- src/tools/get-tools | 2 +- src/tools/get-tools-expect | 2 +- src/tools/get-tools-remote-expect | 2 +- src/uccsdt/acefterms.F | 2 +- src/uccsdt/aterm.F | 2 +- src/uccsdt/bgxterms.F | 2 +- src/uccsdt/cterm.F | 2 +- src/uccsdt/cuccsdtps.fh | 2 +- src/uccsdt/eterm.F | 2 +- src/uccsdt/fterm.F | 2 +- src/uccsdt/uccsdt_pstat.F | 2 +- 610 files changed, 622 insertions(+), 622 deletions(-) diff --git a/src/64to32blas/GNUmakefile b/src/64to32blas/GNUmakefile index 9371d5bbd7..7b699628e0 100644 --- a/src/64to32blas/GNUmakefile +++ b/src/64to32blas/GNUmakefile @@ -1,4 +1,4 @@ -# $Id: GNUmakefile,v 1.8 2008-09-29 20:21:59 edo Exp $ +# $Id$ LIBRARY = lib64to32.a OBJ_OPTIMIZE = yscal.o ycopy.o ydot.o ygemm.o ygemv.o \ diff --git a/src/64to32blas/ifily.F b/src/64to32blas/ifily.F index 415e3c9e64..b4e6ac5476 100644 --- a/src/64to32blas/ifily.F +++ b/src/64to32blas/ifily.F @@ -1,5 +1,5 @@ subroutine ifily(n,val,a,ia) -C$Id: ifily.F,v 1.1 2005-11-09 21:39:31 edo Exp $ +C$Id$ implicit none integer n, val, a(*), ia, i c diff --git a/src/64to32blas/ixamax.F b/src/64to32blas/ixamax.F index 96529e659b..7173e223f1 100644 --- a/src/64to32blas/ixamax.F +++ b/src/64to32blas/ixamax.F @@ -1,6 +1,6 @@ integer function ixamax(n,dx,incx) * -* $Id: ixamax.F,v 1.1 2005-12-28 18:09:49 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/iyamax.F b/src/64to32blas/iyamax.F index ca9afaa1f4..0f030ad481 100644 --- a/src/64to32blas/iyamax.F +++ b/src/64to32blas/iyamax.F @@ -1,6 +1,6 @@ integer function iyamax(n,dx,incx) * -* $Id: iyamax.F,v 1.1 2005-11-02 17:13:58 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/xaxpy.F b/src/64to32blas/xaxpy.F index 3b5c12542d..24a12fdad4 100644 --- a/src/64to32blas/xaxpy.F +++ b/src/64to32blas/xaxpy.F @@ -1,6 +1,6 @@ subroutine xaxpy(n,za,zx,incx,zy,incy) * -* $Id: xaxpy.F,v 1.1 2005-11-02 17:13:58 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/xcopy.F b/src/64to32blas/xcopy.F index f7e57416ea..f0f9b9a841 100644 --- a/src/64to32blas/xcopy.F +++ b/src/64to32blas/xcopy.F @@ -1,6 +1,6 @@ subroutine xcopy(n,dx,incx,dy,incy) * -* $Id: xcopy.F,v 1.1 2005-12-28 18:09:49 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/xdotc.F b/src/64to32blas/xdotc.F index 713aa217b9..c42ce691ea 100644 --- a/src/64to32blas/xdotc.F +++ b/src/64to32blas/xdotc.F @@ -1,6 +1,6 @@ double complex function xdotc(n,dx,incx,dy,incy) * -* $Id: xdotc.F,v 1.1 2005-12-28 18:09:49 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/xgemm.F b/src/64to32blas/xgemm.F index a32e9317e3..e13206831d 100644 --- a/src/64to32blas/xgemm.F +++ b/src/64to32blas/xgemm.F @@ -1,6 +1,6 @@ SUBROUTINE XGEMM (TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB, $ BETA, C, LDC ) -C $Id: xgemm.F,v 1.1 2005-11-02 17:13:58 edo Exp $ +C $Id$ implicit none #include "y64.fh" * .. Scalar Arguments .. diff --git a/src/64to32blas/xheev.F b/src/64to32blas/xheev.F index 9033987a83..99ef1832a7 100644 --- a/src/64to32blas/xheev.F +++ b/src/64to32blas/xheev.F @@ -1,7 +1,7 @@ SUBROUTINE xHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ INFO ) c -* $Id: xheev.F,v 1.2 2005-11-03 06:09:53 edo Exp $ +* $Id$ c implicit none #include "y64.fh" diff --git a/src/64to32blas/xscal.F b/src/64to32blas/xscal.F index 6bba58ac8f..8d80ceb563 100644 --- a/src/64to32blas/xscal.F +++ b/src/64to32blas/xscal.F @@ -1,6 +1,6 @@ subroutine xscal(n,za,zx,incx) * -* $Id: xscal.F,v 1.1 2005-11-02 17:13:59 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/yasum.F b/src/64to32blas/yasum.F index ac32a90863..5f43cb55e4 100644 --- a/src/64to32blas/yasum.F +++ b/src/64to32blas/yasum.F @@ -1,6 +1,6 @@ double precision function yasum(n,dx,incx) * -* $Id: yasum.F,v 1.1 2005-11-02 17:13:59 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/yaxpy.F b/src/64to32blas/yaxpy.F index 3da8a34eab..45cf1c5ece 100644 --- a/src/64to32blas/yaxpy.F +++ b/src/64to32blas/yaxpy.F @@ -1,6 +1,6 @@ subroutine yaxpy(n,da,dx,incx,dy,incy) * -* $Id: yaxpy.F,v 1.1 2005-11-02 17:13:59 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/ycopy.F b/src/64to32blas/ycopy.F index 576c3460be..3dea2c6d9e 100644 --- a/src/64to32blas/ycopy.F +++ b/src/64to32blas/ycopy.F @@ -1,6 +1,6 @@ subroutine ycopy(n,dx,incx,dy,incy) * -* $Id: ycopy.F,v 1.1 2005-11-02 17:13:59 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/ydot.F b/src/64to32blas/ydot.F index 5080a1ff1d..8dc1ed8911 100644 --- a/src/64to32blas/ydot.F +++ b/src/64to32blas/ydot.F @@ -1,6 +1,6 @@ double precision function ydot(n,dx,incx,dy,incy) * -* $Id: ydot.F,v 1.1 2005-11-02 17:13:59 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/ygebak.F b/src/64to32blas/ygebak.F index be1b724e78..2bdf7d34f5 100644 --- a/src/64to32blas/ygebak.F +++ b/src/64to32blas/ygebak.F @@ -1,6 +1,6 @@ SUBROUTINE YGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) -c $Id: ygebak.F,v 1.1 2005-11-02 17:13:59 edo Exp $ +c $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/ygebal.F b/src/64to32blas/ygebal.F index 7396e9dc49..f36d06f41d 100644 --- a/src/64to32blas/ygebal.F +++ b/src/64to32blas/ygebal.F @@ -1,5 +1,5 @@ SUBROUTINE YGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -c $Id: ygebal.F,v 1.1 2005-11-02 17:13:59 edo Exp $ +c $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/ygeev.F b/src/64to32blas/ygeev.F index 826eb99db3..032a12010f 100644 --- a/src/64to32blas/ygeev.F +++ b/src/64to32blas/ygeev.F @@ -1,7 +1,7 @@ SUBROUTINE YGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, $ LDVR, WORK, LWORK, INFO ) * -* $Id: ygeev.F,v 1.1 2008-09-29 20:21:59 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/ygehrd.F b/src/64to32blas/ygehrd.F index eee30a5443..f81fdef770 100644 --- a/src/64to32blas/ygehrd.F +++ b/src/64to32blas/ygehrd.F @@ -1,5 +1,5 @@ SUBROUTINE YGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -c $Id: ygehrd.F,v 1.2 2005-11-09 02:07:17 edo Exp $ +c $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/ygemm.F b/src/64to32blas/ygemm.F index cdddd09581..33622c29a6 100644 --- a/src/64to32blas/ygemm.F +++ b/src/64to32blas/ygemm.F @@ -1,6 +1,6 @@ SUBROUTINE YGEMM (TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB, $ BETA, C, LDC ) -C $Id: ygemm.F,v 1.1 2005-11-02 17:14:00 edo Exp $ +C $Id$ implicit none #include "y64.fh" CHARACTER*1 TRANSA, TRANSB diff --git a/src/64to32blas/ygemv.F b/src/64to32blas/ygemv.F index 13d9376437..d3ea950edf 100644 --- a/src/64to32blas/ygemv.F +++ b/src/64to32blas/ygemv.F @@ -1,7 +1,7 @@ SUBROUTINE YGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, $ BETA, Y, INCY ) * -* $Id: ygemv.F,v 1.1 2005-11-02 17:14:00 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/yger.F b/src/64to32blas/yger.F index 422fce059c..7e95d47346 100644 --- a/src/64to32blas/yger.F +++ b/src/64to32blas/yger.F @@ -1,6 +1,6 @@ SUBROUTINE YGER ( M, N, ALPHA, X, INCX, Y, INCY, A, LDA ) * -* $Id: yger.F,v 1.1 2005-11-02 17:14:00 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/ygesv.F b/src/64to32blas/ygesv.F index 5c0f1866d0..130bd5e636 100644 --- a/src/64to32blas/ygesv.F +++ b/src/64to32blas/ygesv.F @@ -1,6 +1,6 @@ SUBROUTINE YGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* $Id: ygesv.F,v 1.1 2005-11-02 17:14:00 edo Exp $ +* $Id$ * .. Scalar Arguments .. implicit none #include "y64.fh" diff --git a/src/64to32blas/ygesvd.F b/src/64to32blas/ygesvd.F index 4fcb5e5b71..cae13a6e4c 100644 --- a/src/64to32blas/ygesvd.F +++ b/src/64to32blas/ygesvd.F @@ -1,6 +1,6 @@ SUBROUTINE YGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, $ WORK, LWORK, INFO ) -* $Id: ygesvd.F,v 1.2 2005-11-03 03:55:56 edo Exp $ +* $Id$ implicit none #include "y64.fh" CHARACTER JOBU, JOBVT diff --git a/src/64to32blas/yhseqr.F b/src/64to32blas/yhseqr.F index 28e61d956d..a236c94e6d 100644 --- a/src/64to32blas/yhseqr.F +++ b/src/64to32blas/yhseqr.F @@ -1,6 +1,6 @@ SUBROUTINE YHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, $ LDZ, WORK, LWORK, INFO ) -c $Id: yhseqr.F,v 1.1 2005-11-02 17:14:00 edo Exp $ +c $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/ylacpy.F b/src/64to32blas/ylacpy.F index 2b66be4b1f..50c6a3aa4a 100644 --- a/src/64to32blas/ylacpy.F +++ b/src/64to32blas/ylacpy.F @@ -1,6 +1,6 @@ SUBROUTINE YLACPY( UPLO, M, N, A, LDA, B, LDB ) c -* $Id: ylacpy.F,v 1.1 2005-11-02 17:14:00 edo Exp $ +* $Id$ c implicit none #include "y64.fh" diff --git a/src/64to32blas/ylagtf.F b/src/64to32blas/ylagtf.F index 405382ebb3..e162ba401a 100644 --- a/src/64to32blas/ylagtf.F +++ b/src/64to32blas/ylagtf.F @@ -1,6 +1,6 @@ SUBROUTINE yLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) c -* $Id: ylagtf.F,v 1.1 2005-11-02 17:14:01 edo Exp $ +* $Id$ c implicit none #include "y64.fh" diff --git a/src/64to32blas/ylagts.F b/src/64to32blas/ylagts.F index 3f58572945..8ec0305464 100644 --- a/src/64to32blas/ylagts.F +++ b/src/64to32blas/ylagts.F @@ -2,7 +2,7 @@ implicit none #include "y64.fh" c -* $Id: ylagts.F,v 1.1 2005-11-02 17:14:01 edo Exp $ +* $Id$ c INTEGER INFO, JOB, N DOUBLE PRECISION TOL diff --git a/src/64to32blas/ylange.F b/src/64to32blas/ylange.F index ac695be26b..9bdef097e8 100644 --- a/src/64to32blas/ylange.F +++ b/src/64to32blas/ylange.F @@ -1,6 +1,6 @@ DOUBLE PRECISION FUNCTION YLANGE( NORM, M, N, A, LDA, WORK ) c -* $Id: ylange.F,v 1.1 2005-11-02 17:14:01 edo Exp $ +* $Id$ c implicit none #include "y64.fh" diff --git a/src/64to32blas/ylarnv.F b/src/64to32blas/ylarnv.F index 016e78a2c4..e5667c7773 100644 --- a/src/64to32blas/ylarnv.F +++ b/src/64to32blas/ylarnv.F @@ -1,6 +1,6 @@ subroutine yLARNV( IDIST, ISEED, N, X ) c -* $Id: ylarnv.F,v 1.1 2005-11-02 17:14:01 edo Exp $ +* $Id$ c implicit none #include "y64.fh" diff --git a/src/64to32blas/ylascl.F b/src/64to32blas/ylascl.F index 501d6641bb..20adb06a54 100644 --- a/src/64to32blas/ylascl.F +++ b/src/64to32blas/ylascl.F @@ -1,6 +1,6 @@ SUBROUTINE YLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) c -* $Id: ylascl.F,v 1.1 2005-11-02 17:14:01 edo Exp $ +* $Id$ c implicit none #include "y64.fh" diff --git a/src/64to32blas/ylaset.F b/src/64to32blas/ylaset.F index fcef85120b..831a5b6ff4 100644 --- a/src/64to32blas/ylaset.F +++ b/src/64to32blas/ylaset.F @@ -1,6 +1,6 @@ SUBROUTINE YLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) c -* $Id: ylaset.F,v 1.1 2005-11-02 17:14:01 edo Exp $ +* $Id$ c implicit none #include "y64.fh" diff --git a/src/64to32blas/ynrm2.F b/src/64to32blas/ynrm2.F index afa2471b4a..dd64f3506d 100644 --- a/src/64to32blas/ynrm2.F +++ b/src/64to32blas/ynrm2.F @@ -1,6 +1,6 @@ DOUBLE PRECISION FUNCTION YNRM2 ( N, X, INCX ) * -* $Id: ynrm2.F,v 1.1 2005-11-02 17:14:01 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/yorghr.F b/src/64to32blas/yorghr.F index 753d5583b8..0c5ed94885 100644 --- a/src/64to32blas/yorghr.F +++ b/src/64to32blas/yorghr.F @@ -1,5 +1,5 @@ SUBROUTINE YORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -c $Id: yorghr.F,v 1.1 2005-11-02 17:14:02 edo Exp $ +c $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/yposv.F b/src/64to32blas/yposv.F index ae4f3fc467..62141d6dff 100644 --- a/src/64to32blas/yposv.F +++ b/src/64to32blas/yposv.F @@ -1,5 +1,5 @@ * -* $Id: yposv.F,v 1.1 2005-11-02 17:14:02 edo Exp $ +* $Id$ * SUBROUTINE YPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) diff --git a/src/64to32blas/ypotrf.f b/src/64to32blas/ypotrf.f index d9f530b54c..7c2ecb92a6 100644 --- a/src/64to32blas/ypotrf.f +++ b/src/64to32blas/ypotrf.f @@ -1,6 +1,6 @@ SUBROUTINE YPOTRF( UPLO, N, A, LDA, INFO ) c -* $Id: ypotrf.f,v 1.1 2005-12-06 16:59:50 edo Exp $ +* $Id$ c CHARACTER UPLO INTEGER INFO, LDA, N diff --git a/src/64to32blas/ypotri.f b/src/64to32blas/ypotri.f index df913ec1e0..05fe4525d4 100644 --- a/src/64to32blas/ypotri.f +++ b/src/64to32blas/ypotri.f @@ -1,6 +1,6 @@ SUBROUTINE YPOTRI( UPLO, N, A, LDA, INFO ) c -* $Id: ypotri.f,v 1.1 2005-12-06 16:59:50 edo Exp $ +* $Id$ c CHARACTER UPLO INTEGER INFO, LDA, N diff --git a/src/64to32blas/yrot.F b/src/64to32blas/yrot.F index cb3194a17c..8dede693b4 100644 --- a/src/64to32blas/yrot.F +++ b/src/64to32blas/yrot.F @@ -1,6 +1,6 @@ subroutine yrot (n,dx,incx,dy,incy,c,s) * -* $Id: yrot.F,v 1.1 2005-11-02 17:14:02 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/yscal.F b/src/64to32blas/yscal.F index f916056df3..eb50797da3 100644 --- a/src/64to32blas/yscal.F +++ b/src/64to32blas/yscal.F @@ -1,6 +1,6 @@ subroutine yscal(n,da,dx,incx) * -* $Id: yscal.F,v 1.1 2005-11-02 17:14:02 edo Exp $ +* $Id$ * c implicit none diff --git a/src/64to32blas/yspsvx.F b/src/64to32blas/yspsvx.F index 4531b80da9..3e3a55312a 100644 --- a/src/64to32blas/yspsvx.F +++ b/src/64to32blas/yspsvx.F @@ -1,7 +1,7 @@ SUBROUTINE YSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) c -* $Id: yspsvx.F,v 1.1 2005-11-02 17:14:02 edo Exp $ +* $Id$ c implicit none #include "y64.fh" diff --git a/src/64to32blas/ysterf.F b/src/64to32blas/ysterf.F index 9c83c06c45..8bd79db154 100644 --- a/src/64to32blas/ysterf.F +++ b/src/64to32blas/ysterf.F @@ -1,6 +1,6 @@ SUBROUTINE YSTERF( N, D, E, INFO ) c -* $Id: ysterf.F,v 1.1 2005-11-02 17:14:02 edo Exp $ +* $Id$ c implicit none #include "y64.fh" diff --git a/src/64to32blas/yswap.F b/src/64to32blas/yswap.F index 1a619d07f6..13967fa777 100644 --- a/src/64to32blas/yswap.F +++ b/src/64to32blas/yswap.F @@ -1,6 +1,6 @@ subroutine yswap (n,dx,incx,dy,incy) * -* $Id: yswap.F,v 1.1 2005-11-02 17:14:02 edo Exp $ +* $Id$ * implicit none #include "y64.fh" diff --git a/src/64to32blas/ysyev.F b/src/64to32blas/ysyev.F index 38efd86a05..bda8f4621f 100644 --- a/src/64to32blas/ysyev.F +++ b/src/64to32blas/ysyev.F @@ -1,6 +1,6 @@ SUBROUTINE YSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) c -* $Id: ysyev.F,v 1.1 2005-11-02 17:14:03 edo Exp $ +* $Id$ c implicit none #include "y64.fh" diff --git a/src/64to32blas/ysygv.F b/src/64to32blas/ysygv.F index 3880f6349d..ee8cd4015e 100644 --- a/src/64to32blas/ysygv.F +++ b/src/64to32blas/ysygv.F @@ -1,7 +1,7 @@ SUBROUTINE YSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, INFO ) c -* $Id: ysygv.F,v 1.1 2005-12-28 18:09:49 edo Exp $ +* $Id$ c implicit none #include "y64.fh" diff --git a/src/64to32blas/ytrevc.F b/src/64to32blas/ytrevc.F index a42345db08..9754e585d7 100644 --- a/src/64to32blas/ytrevc.F +++ b/src/64to32blas/ytrevc.F @@ -1,6 +1,6 @@ SUBROUTINE YTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, INFO ) -c $Id: ytrevc.F,v 1.1 2005-11-02 17:14:03 edo Exp $ +c $Id$ * implicit none #include "y64.fh" diff --git a/src/bq/GNUmakefile b/src/bq/GNUmakefile index d6e0a9ab2e..9c87b356d9 100644 --- a/src/bq/GNUmakefile +++ b/src/bq/GNUmakefile @@ -1,4 +1,4 @@ -# $Id: GNUmakefile,v 1.5 2008-04-22 21:59:58 niri Exp $ +# $Id$ LIBRARY = libbq.a OBJ = bq_input.o bq_data.o bq_rtdb.o bq_main.o diff --git a/src/bq/bq_data.F b/src/bq/bq_data.F index 347c824797..846fb86830 100644 --- a/src/bq/bq_data.F +++ b/src/bq/bq_data.F @@ -1,4 +1,4 @@ -c $Id: bq_data.F,v 1.12 2008-03-18 18:10:11 marat Exp $ +c $Id$ block data initial_bq_data implicit none #include "bq_data.fh" diff --git a/src/bq/bq_data.fh b/src/bq/bq_data.fh index cc1c0edc7f..62e7634f82 100644 --- a/src/bq/bq_data.fh +++ b/src/bq/bq_data.fh @@ -1,5 +1,5 @@ * -* $Id: bq_data.fh,v 1.2 2005-04-13 02:02:01 marat Exp $ +* $Id$ * integer max_bq diff --git a/src/bq/bq_input.F b/src/bq/bq_input.F index e571bbd40a..ff669de2da 100644 --- a/src/bq/bq_input.F +++ b/src/bq/bq_input.F @@ -1,4 +1,4 @@ -c $Id: bq_input.F,v 1.8 2006-10-06 06:56:59 marat Exp $ +c $Id$ subroutine bq_input(rtdb) implicit none diff --git a/src/bq/bq_main.F b/src/bq/bq_main.F index db38430268..2cce170d71 100644 --- a/src/bq/bq_main.F +++ b/src/bq/bq_main.F @@ -1,4 +1,4 @@ -c $Id: bq_main.F,v 1.6 2008-04-22 21:59:58 niri Exp $ +c $Id$ function bq_init(rtdb) implicit none diff --git a/src/bq/bq_params.fh b/src/bq/bq_params.fh index 8e3557b02b..1aa27a0082 100644 --- a/src/bq/bq_params.fh +++ b/src/bq/bq_params.fh @@ -1,5 +1,5 @@ * -* $Id: bq_params.fh,v 1.2 2008-04-22 21:59:58 niri Exp $ +* $Id$ * character*(*) bq_default parameter(bq_default="default") diff --git a/src/bq/bq_rtdb.F b/src/bq/bq_rtdb.F index f5ee713145..e468131142 100644 --- a/src/bq/bq_rtdb.F +++ b/src/bq/bq_rtdb.F @@ -1,4 +1,4 @@ -c $Id: bq_rtdb.F,v 1.3 2005-04-06 19:53:06 edo Exp $ +c $Id$ subroutine bq_tag_ncent(namespace,tag) implicit none diff --git a/src/dplot/GNUmakefile b/src/dplot/GNUmakefile index 9e47d83519..ee5678db13 100644 --- a/src/dplot/GNUmakefile +++ b/src/dplot/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.18 2009-03-05 18:11:21 d3p975 Exp $ +#$Id$ # makefile,v 1.8 1994/12/05 20:37:08 og845 Exp OBJ_OPTIMIZE = dplot.o get_grid.o create_contour.o dmat.o errmem.o \ diff --git a/src/dplot/create_contour.F b/src/dplot/create_contour.F index 7f348f29cc..fd158cb910 100644 --- a/src/dplot/create_contour.F +++ b/src/dplot/create_contour.F @@ -4,7 +4,7 @@ . no_of_spacings, & What,Spin,Orb_No) * -* $Id: create_contour.F,v 1.35 2009-03-05 17:53:50 d3p975 Exp $ +* $Id$ * Implicit None #include "errquit.fh" diff --git a/src/dplot/dmat.F b/src/dplot/dmat.F index 23b2896902..c738931815 100644 --- a/src/dplot/dmat.F +++ b/src/dplot/dmat.F @@ -1,6 +1,6 @@ SubRoutine DMat(Geom,Basis,g_Vec,g_Dns,nOcc,nBF) * -* $Id: dmat.F,v 1.7 2003-10-17 22:54:43 carlfahl Exp $ +* $Id$ * Implicit None #include "errquit.fh" diff --git a/src/dplot/dplot.F b/src/dplot/dplot.F index 59857a42ac..12ecbdac25 100644 --- a/src/dplot/dplot.F +++ b/src/dplot/dplot.F @@ -1,6 +1,6 @@ Logical Function DPlot(rtdb) * -* $Id: dplot.F,v 1.34 2009-03-05 17:59:26 d3p975 Exp $ +* $Id$ * Implicit None #include "errquit.fh" diff --git a/src/dplot/dplot_dos.F b/src/dplot/dplot_dos.F index bdde4a9e7c..24a076f5cc 100644 --- a/src/dplot/dplot_dos.F +++ b/src/dplot/dplot_dos.F @@ -1,5 +1,5 @@ subroutine dplot_dosinit(rtdb,filename) -C $Id: dplot_dos.F,v 1.4 2005-09-20 21:04:16 edo Exp $ +C $Id$ implicit none #include "geom.fh" #include "bas.fh" diff --git a/src/dplot/dplot_input.F b/src/dplot/dplot_input.F index b4ffa33190..0ebe3d167f 100644 --- a/src/dplot/dplot_input.F +++ b/src/dplot/dplot_input.F @@ -1,6 +1,6 @@ SubRoutine DPlot_Input(rtdb) * -* $Id: dplot_input.F,v 1.14 2009-03-05 17:57:27 d3p975 Exp $ +* $Id$ * Implicit none #include "errquit.fh" diff --git a/src/dplot/errmem.F b/src/dplot/errmem.F index bbb8c54e9f..3ffe01635e 100644 --- a/src/dplot/errmem.F +++ b/src/dplot/errmem.F @@ -1,6 +1,6 @@ SubRoutine ErrMem(LResult,Note,iRC) * -* $Id: errmem.F,v 1.4 2003-10-17 22:54:43 carlfahl Exp $ +* $Id$ * Implicit None #include "errquit.fh" diff --git a/src/dplot/get_charges.F b/src/dplot/get_charges.F index c841f212bc..e22f23e895 100644 --- a/src/dplot/get_charges.F +++ b/src/dplot/get_charges.F @@ -3,7 +3,7 @@ & XYZ,Charge,Tags,AMt,BMt,Dst, & STD,Tot_Charge) * -* $Id: get_charges.F,v 1.8 2003-10-27 02:34:17 edo Exp $ +* $Id$ * Implicit None * diff --git a/src/dplot/get_dens.F b/src/dplot/get_dens.F index e8fa2f54a3..4e96f2e463 100644 --- a/src/dplot/get_dens.F +++ b/src/dplot/get_dens.F @@ -1,7 +1,7 @@ SubRoutine Get_Dens(Geom,Basis,nSet,nBF,g_Vec,g_Dns, & Spin,File_Vec,nOrb,k_Orb,iProc) * -* $Id: get_dens.F,v 1.4 2003-10-17 22:54:43 carlfahl Exp $ +* $Id$ * Implicit None #include "errquit.fh" diff --git a/src/dplot/get_grid.F b/src/dplot/get_grid.F index 6eede4083a..96e191928e 100644 --- a/src/dplot/get_grid.F +++ b/src/dplot/get_grid.F @@ -2,7 +2,7 @@ & Volume,Out_Unit,iProc,Where, & nAtom,XYZ,What,lgaussian,charge) * -* $Id: get_grid.F,v 1.8 2003-10-17 22:54:43 carlfahl Exp $ +* $Id$ * Implicit None #include "errquit.fh" diff --git a/src/driver/GNUmakefile b/src/driver/GNUmakefile index a160218705..38408bb573 100644 --- a/src/driver/GNUmakefile +++ b/src/driver/GNUmakefile @@ -1,5 +1,5 @@ # -# $Id: GNUmakefile,v 1.26 2008-02-29 19:27:43 niri Exp $ +# $Id$ # LIBRARY = libdriver.a diff --git a/src/driver/coptopt.fh b/src/driver/coptopt.fh index ad088410a8..23bb4f3fc6 100644 --- a/src/driver/coptopt.fh +++ b/src/driver/coptopt.fh @@ -1,5 +1,5 @@ * -* $Id: coptopt.fh,v 1.14 2007-05-23 22:13:12 d3p307 Exp $ +* $Id$ * c c Defintions of /coptopt/ and /coptimize/ diff --git a/src/driver/driver_input.F b/src/driver/driver_input.F index 6d90287b42..41b03cd216 100644 --- a/src/driver/driver_input.F +++ b/src/driver/driver_input.F @@ -1,6 +1,6 @@ subroutine driver_input(rtdb) * -* $Id: driver_input.F,v 1.13 2008-02-29 19:27:43 niri Exp $ +* $Id$ * implicit none #include "errquit.fh" diff --git a/src/driver/lbfgs-b_driver.F b/src/driver/lbfgs-b_driver.F index 2717ab9f42..a83c95c85f 100644 --- a/src/driver/lbfgs-b_driver.F +++ b/src/driver/lbfgs-b_driver.F @@ -1,5 +1,5 @@ * -* $Id: lbfgs-b_driver.F,v 1.9 2007-05-23 22:13:55 d3p307 Exp $ +* $Id$ * c Modified driver for use in NWChem (MV) c diff --git a/src/driver/lbfgs_utils.F b/src/driver/lbfgs_utils.F index 7d9c4f476c..7344fcf2ed 100644 --- a/src/driver/lbfgs_utils.F +++ b/src/driver/lbfgs_utils.F @@ -1,5 +1,5 @@ * -* $Id: lbfgs_utils.F,v 1.2 2005-09-01 00:47:50 marat Exp $ +* $Id$ subroutine lbfgs_compute_info(n,x,x0,g,xmax,xrms,gmax,grms) implicit none #include "rtdb.fh" diff --git a/src/driver/lst_drv.F b/src/driver/lst_drv.F index 06da21654c..320c680c36 100644 --- a/src/driver/lst_drv.F +++ b/src/driver/lst_drv.F @@ -1,6 +1,6 @@ logical function drv_lst(rtdb) * -* $Id: lst_drv.F,v 1.9 2003-10-17 22:54:49 carlfahl Exp $ +* $Id$ * implicit none #include "mafdecls.fh" diff --git a/src/driver/oniom.F b/src/driver/oniom.F index 5a8f949d87..63730af2fc 100644 --- a/src/driver/oniom.F +++ b/src/driver/oniom.F @@ -1,6 +1,6 @@ logical function oniom_energy(rtdb) * -* $Id: oniom.F,v 1.13 2009-03-12 20:42:05 niri Exp $ +* $Id$ * implicit none integer rtdb diff --git a/src/driver/opt_drv.F b/src/driver/opt_drv.F index 4b04d605b8..11d473afa4 100644 --- a/src/driver/opt_drv.F +++ b/src/driver/opt_drv.F @@ -1,6 +1,6 @@ logical function driver(rtdb) * -* $Id: opt_drv.F,v 1.118 2009-03-12 20:42:05 niri Exp $ +* $Id$ * implicit none #include "errquit.fh" diff --git a/src/hessian/GNUmakefile b/src/hessian/GNUmakefile index 263ee7cd6b..92d0834f63 100644 --- a/src/hessian/GNUmakefile +++ b/src/hessian/GNUmakefile @@ -1,5 +1,5 @@ # -# $Id: GNUmakefile,v 1.19 2004-07-29 16:28:52 windus Exp $ +# $Id$ # SUBDIRS = analytic diff --git a/src/hessian/analytic/GNUmakefile b/src/hessian/analytic/GNUmakefile index 126402bd13..7e87653448 100644 --- a/src/hessian/analytic/GNUmakefile +++ b/src/hessian/analytic/GNUmakefile @@ -1,4 +1,4 @@ -# $Id: GNUmakefile,v 1.17 2009-01-16 05:29:55 niri Exp $ +# $Id$ SUBDIRS = dft diff --git a/src/hessian/analytic/dft/GNUmakefile b/src/hessian/analytic/dft/GNUmakefile index 75deef3ea8..290b6aa6b1 100644 --- a/src/hessian/analytic/dft/GNUmakefile +++ b/src/hessian/analytic/dft/GNUmakefile @@ -1,4 +1,4 @@ -# $Id: GNUmakefile,v 1.12 2005-09-27 20:05:05 edo Exp $ +# $Id$ OBJ = xc_d2expl.o OBJ_OPTIMIZE = xc_cpks_coeff.o \ diff --git a/src/hessian/analytic/dft/dft_3dacc.F b/src/hessian/analytic/dft/dft_3dacc.F index a8682cc068..9e3e295d9a 100644 --- a/src/hessian/analytic/dft/dft_3dacc.F +++ b/src/hessian/analytic/dft/dft_3dacc.F @@ -1,6 +1,6 @@ subroutine dft_3dacc(g_fock,buf,imat,imat2, , ifirst,ilast,jfirst,jlast,ldin) -C$Id: dft_3dacc.F,v 1.4 2003-10-17 22:55:14 carlfahl Exp $ +C$Id$ implicit none integer g_fock integer imat,imat2 diff --git a/src/hessian/analytic/dft/xc_cpks_coeff.F b/src/hessian/analytic/dft/xc_cpks_coeff.F index 96dffff2a9..955b761221 100644 --- a/src/hessian/analytic/dft/xc_cpks_coeff.F +++ b/src/hessian/analytic/dft/xc_cpks_coeff.F @@ -4,7 +4,7 @@ c making multiple XC matrices for CPKS c c BGJ - 8/98 c -c $Id: xc_cpks_coeff.F,v 1.12 2008-02-01 22:27:00 niri Exp $ +c $Id$ c c 2/02 So Hirata --- added a code for triplet excitation or c instability calculation and the corresponding logical argu- diff --git a/src/hessian/analytic/dft/xc_d2expl.F b/src/hessian/analytic/dft/xc_d2expl.F index 178a0e6037..fc4838e796 100644 --- a/src/hessian/analytic/dft/xc_d2expl.F +++ b/src/hessian/analytic/dft/xc_d2expl.F @@ -3,7 +3,7 @@ c Computes explicit nuclear 2nd derivatives of the XC energy c c BGJ - 8/98 c -c $Id: xc_d2expl.F,v 1.14 2008-02-01 22:27:00 niri Exp $ +c $Id$ c Subroutine xc_d2expl(tol_rho, scr, & Amat, Amat2, Acof2, Cmat, Cmat2, Ccof2, Mmat, Mmat2, Mcof2, diff --git a/src/hessian/analytic/dft/xc_exit_index.F b/src/hessian/analytic/dft/xc_exit_index.F index 48d4f47e14..5c3f1896ed 100644 --- a/src/hessian/analytic/dft/xc_exit_index.F +++ b/src/hessian/analytic/dft/xc_exit_index.F @@ -1,7 +1,7 @@ subroutine xc_exit_index(l_cntoce, l_cntobfr, l_cetobfr, & l_rdens_atom) c -c $Id: xc_exit_index.F,v 1.2 2003-10-17 22:55:14 carlfahl Exp $ +c $Id$ c c Cleans up indexing and reduced density arrays used by several c XC routines diff --git a/src/hessian/analytic/dft/xc_init_index.F b/src/hessian/analytic/dft/xc_init_index.F index 72c2017eb5..7f09fa4f0b 100644 --- a/src/hessian/analytic/dft/xc_init_index.F +++ b/src/hessian/analytic/dft/xc_init_index.F @@ -3,7 +3,7 @@ & k_cntobfr, l_cetobfr, k_cetobfr, & l_rdens_atom, k_rdens_atom) c -c $Id: xc_init_index.F,v 1.4 2005-02-11 07:27:42 edo Exp $ +c $Id$ c c Sets up indexing and reduced density arrays used by several c XC routines diff --git a/src/hessian/analytic/dft/xc_nucder_gen.F b/src/hessian/analytic/dft/xc_nucder_gen.F index 635f6c5dee..672d105b51 100644 --- a/src/hessian/analytic/dft/xc_nucder_gen.F +++ b/src/hessian/analytic/dft/xc_nucder_gen.F @@ -1,7 +1,7 @@ subroutine xc_hessian(geom,rtdb, nbf,basis, , g_dens, nactive,oactive, hess, scftype) c -c $Id: xc_nucder_gen.F,v 1.18 2005-10-07 19:48:06 edo Exp $ +c $Id$ c c Wrapper routine for XC hessian without fitting c @@ -33,7 +33,7 @@ c subroutine xc_cpks_rhs(geom,rtdb,nbf,basis, , g_dens, nactive, oactive, g_rhs,scftype) c -c $Id: xc_nucder_gen.F,v 1.18 2005-10-07 19:48:06 edo Exp $ +c $Id$ c c Wrapper routine for XC CPKS RHS without fitting c @@ -63,7 +63,7 @@ c , g_dens, nactive, oactive, hess, g_rhs, & calc_type) c -c $Id: xc_nucder_gen.F,v 1.18 2005-10-07 19:48:06 edo Exp $ +c $Id$ c c General routine for XC hessian and CPKS RHS without fitting c Should not be called directly by client, but through wrapper routines diff --git a/src/hessian/analytic/get_wdens.F b/src/hessian/analytic/get_wdens.F index c8ce9c5177..4e3694d6fc 100644 --- a/src/hessian/analytic/get_wdens.F +++ b/src/hessian/analytic/get_wdens.F @@ -1,5 +1,5 @@ C -C $Id: get_wdens.F,v 1.3 2003-10-17 22:55:13 carlfahl Exp $ +C $Id$ C subroutine get_wdens(g_dens,ndens,theory,scftype,rtdb, * g_wdens,nbfs) diff --git a/src/hessian/analytic/hess_anal.F b/src/hessian/analytic/hess_anal.F index e1647abd31..37634a1852 100644 --- a/src/hessian/analytic/hess_anal.F +++ b/src/hessian/analytic/hess_anal.F @@ -1,5 +1,5 @@ C -C $Id: hess_anal.F,v 1.26 2007-09-14 18:29:11 niri Exp $ +C $Id$ C logical function hess_anal(rtdb) C diff --git a/src/hessian/analytic/hess_cphf.F b/src/hessian/analytic/hess_cphf.F index 44a9c6b7f5..db3e5c0fe2 100644 --- a/src/hessian/analytic/hess_cphf.F +++ b/src/hessian/analytic/hess_cphf.F @@ -1,5 +1,5 @@ C -C $Id: hess_cphf.F,v 1.53 2003-10-17 22:55:13 carlfahl Exp $ +C $Id$ C subroutine hess_cphf(rtdb) c diff --git a/src/hessian/analytic/hess_dipder.F b/src/hessian/analytic/hess_dipder.F index 5dca9368cf..4f41b623b7 100644 --- a/src/hessian/analytic/hess_dipder.F +++ b/src/hessian/analytic/hess_dipder.F @@ -1,5 +1,5 @@ C -C $Id: hess_dipder.F,v 1.7 2003-10-17 22:55:13 carlfahl Exp $ +C $Id$ C subroutine hess_dipder(geom,basis,dder,g_dens,n3xyz,ncent) implicit none diff --git a/src/hessian/analytic/hess_hssout.F b/src/hessian/analytic/hess_hssout.F index 56eb78c2f9..8112bac564 100644 --- a/src/hessian/analytic/hess_hssout.F +++ b/src/hessian/analytic/hess_hssout.F @@ -1,4 +1,4 @@ -c $Id: hess_hssout.F,v 1.1 2001-04-05 22:25:06 windus Exp $ +c $Id$ SUBROUTINE hess_hssout(V,M,N,NDIM) IMPLICIT none #include "stdio.fh" diff --git a/src/hessian/analytic/hess_info.fh b/src/hessian/analytic/hess_info.fh index aed79f51cc..3ca44f8303 100644 --- a/src/hessian/analytic/hess_info.fh +++ b/src/hessian/analytic/hess_info.fh @@ -1,5 +1,5 @@ C -C $Id: hess_info.fh,v 1.13 2008-05-13 21:29:35 niri Exp $ +C $Id$ C c Hold all of the variables common to all hessian calculations. c Wavefunction specific variables are set in the directories below. diff --git a/src/hessian/analytic/hess_init.F b/src/hessian/analytic/hess_init.F index 2160a9adbe..25928a1d4b 100644 --- a/src/hessian/analytic/hess_init.F +++ b/src/hessian/analytic/hess_init.F @@ -1,5 +1,5 @@ C -C $Id: hess_init.F,v 1.63 2009-01-25 02:27:01 niri Exp $ +C $Id$ C subroutine hess_init(rtdb) c diff --git a/src/hessian/analytic/hess_print.F b/src/hessian/analytic/hess_print.F index 7b8f1e0dbf..7db75ea2cd 100644 --- a/src/hessian/analytic/hess_print.F +++ b/src/hessian/analytic/hess_print.F @@ -1,5 +1,5 @@ c -C $Id: hess_print.F,v 1.1 2002-10-24 00:33:12 edo Exp $ +C $Id$ c subroutine hess_print implicit none diff --git a/src/hessian/analytic/hess_pxfy.F b/src/hessian/analytic/hess_pxfy.F index 39693b2d9e..47a7240298 100644 --- a/src/hessian/analytic/hess_pxfy.F +++ b/src/hessian/analytic/hess_pxfy.F @@ -1,4 +1,4 @@ -c $Id: hess_pxfy.F,v 1.7 2002-01-16 17:21:38 windus Exp $ +c $Id$ c subroutine hess_pxfy(hess, g_sol, g_rhs, oactive, ncent, & restr, vlen) diff --git a/src/hessian/analytic/hess_restart.F b/src/hessian/analytic/hess_restart.F index 8667f846ca..61e27e3e52 100644 --- a/src/hessian/analytic/hess_restart.F +++ b/src/hessian/analytic/hess_restart.F @@ -1,5 +1,5 @@ C -C $Id: hess_restart.F,v 1.10 2003-10-17 22:55:13 carlfahl Exp $ +C $Id$ C subroutine hess_restart(rtdb, restr) c diff --git a/src/hessian/analytic/hess_sxsy.F b/src/hessian/analytic/hess_sxsy.F index 80b1db5200..c3e2c70fe5 100644 --- a/src/hessian/analytic/hess_sxsy.F +++ b/src/hessian/analytic/hess_sxsy.F @@ -1,5 +1,5 @@ C -C $Id: hess_sxsy.F,v 1.7 2003-10-17 22:55:13 carlfahl Exp $ +C $Id$ C subroutine hess_sxsy(hess, e, g_tx, oactive, ncent, nocc, & noffset, urestr) diff --git a/src/hessian/analytic/hess_tidy.F b/src/hessian/analytic/hess_tidy.F index 5413e04ca3..4e8e2f1388 100644 --- a/src/hessian/analytic/hess_tidy.F +++ b/src/hessian/analytic/hess_tidy.F @@ -1,5 +1,5 @@ C -C $Id: hess_tidy.F,v 1.13 2003-10-17 22:55:13 carlfahl Exp $ +C $Id$ C subroutine hess_tidy() c diff --git a/src/hessian/analytic/hess_wrt.F b/src/hessian/analytic/hess_wrt.F index 7b89943cf5..87110bc8d0 100644 --- a/src/hessian/analytic/hess_wrt.F +++ b/src/hessian/analytic/hess_wrt.F @@ -1,5 +1,5 @@ subroutine hess_wrt -* $Id: hess_wrt.F,v 1.6 2003-10-25 18:07:17 edo Exp $ +* $Id$ implicit none #include "mafdecls.fh" #include "hess_info.fh" diff --git a/src/hessian/analytic/nucdd_calc.F b/src/hessian/analytic/nucdd_calc.F index f82657a4a5..ed746296ac 100644 --- a/src/hessian/analytic/nucdd_calc.F +++ b/src/hessian/analytic/nucdd_calc.F @@ -1,5 +1,5 @@ c -c $Id: nucdd_calc.F,v 1.4 2001-10-02 21:52:34 windus Exp $ +c $Id$ c subroutine nucdd_calc(c,zan,nat,dde) c diff --git a/src/hessian/analytic/nucdd_cont.F b/src/hessian/analytic/nucdd_cont.F index 5beaa37869..f8a647fe0c 100644 --- a/src/hessian/analytic/nucdd_cont.F +++ b/src/hessian/analytic/nucdd_cont.F @@ -1,5 +1,5 @@ C -C $Id: nucdd_cont.F,v 1.4 2001-04-05 22:25:06 windus Exp $ +C $Id$ C subroutine nucdd_cont(rtdb) c diff --git a/src/hessian/analytic/oned_calc.F b/src/hessian/analytic/oned_calc.F index df2d5c4855..56369d5ef0 100644 --- a/src/hessian/analytic/oned_calc.F +++ b/src/hessian/analytic/oned_calc.F @@ -1,5 +1,5 @@ c -c $Id: oned_calc.F,v 1.11 2007-11-16 22:35:17 edo Exp $ +c $Id$ c subroutine oned_calc(nxyz,g_rhs,Ibuf,lbuf,Iscr,lscr, * skelsym,doS,doT,doV,geom,basis,nat) diff --git a/src/hessian/analytic/onedd_calc.F b/src/hessian/analytic/onedd_calc.F index 6f3a19fbfb..97169b2cd9 100644 --- a/src/hessian/analytic/onedd_calc.F +++ b/src/hessian/analytic/onedd_calc.F @@ -1,5 +1,5 @@ c -c $Id: onedd_calc.F,v 1.13 2003-03-28 17:12:04 bert Exp $ +c $Id$ c subroutine onedd_calc(Hxy,nxyz,Ibuf,lbuf,Iscr,lscr, * skelsym,doS,doT,doV,doECP, diff --git a/src/hessian/analytic/onedd_cont.F b/src/hessian/analytic/onedd_cont.F index 3cb44bb6dd..60fe3f75af 100644 --- a/src/hessian/analytic/onedd_cont.F +++ b/src/hessian/analytic/onedd_cont.F @@ -1,5 +1,5 @@ C -C $Id: onedd_cont.F,v 1.28 2003-10-17 22:55:13 carlfahl Exp $ +C $Id$ C subroutine onedd_cont(rtdb) c diff --git a/src/hessian/analytic/shell_fock_build.F b/src/hessian/analytic/shell_fock_build.F index dc7041bb9a..1d2fecf55c 100644 --- a/src/hessian/analytic/shell_fock_build.F +++ b/src/hessian/analytic/shell_fock_build.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(geom,basis, nder, ndens, $ jfac, kfac, tol2e, g_dens, g_fock, osym) diff --git a/src/hessian/analytic/sx_dra.F b/src/hessian/analytic/sx_dra.F index d145a72a6f..d88a9825ac 100644 --- a/src/hessian/analytic/sx_dra.F +++ b/src/hessian/analytic/sx_dra.F @@ -1,5 +1,5 @@ c -c $Id: sx_dra.F,v 1.5 2003-10-17 22:55:13 carlfahl Exp $ +c $Id$ c c This file holds the DRA write and read routines for the Sx matrices c diff --git a/src/hessian/analytic/twodd_cont.F b/src/hessian/analytic/twodd_cont.F index e8b2d90f0a..60284dad0f 100644 --- a/src/hessian/analytic/twodd_cont.F +++ b/src/hessian/analytic/twodd_cont.F @@ -1,5 +1,5 @@ C -C $Id: twodd_cont.F,v 1.38 2003-10-17 22:55:13 carlfahl Exp $ +C $Id$ C subroutine twodd_cont(rtdb) c diff --git a/src/hessian/analytic/twodd_coul_ex.F b/src/hessian/analytic/twodd_coul_ex.F index a6b4abf098..43359e6c23 100644 --- a/src/hessian/analytic/twodd_coul_ex.F +++ b/src/hessian/analytic/twodd_coul_ex.F @@ -14,7 +14,7 @@ $ nopen,nbf,pdm2,pdm2a,pdm2b,pdm2c,pdm2d,coeff, $ nshblocks, shmap, shglo, shghi, bfglo, bfghi, bfmap, rbfmap, $ bftoat, shbflo, shbfhi, jfac, kfac) -c $Id: twodd_coul_ex.F,v 1.14 2004-02-02 23:22:22 edo Exp $ +c $Id$ c c This routine was essentially stolen from gradients/grad2.F. I will work c to make these routines one after I get things working. diff --git a/src/hessian/hess_blas.F b/src/hessian/hess_blas.F index 9b3fbdf4d4..a0af533afa 100644 --- a/src/hessian/hess_blas.F +++ b/src/hessian/hess_blas.F @@ -3,7 +3,7 @@ $ evals, occ, ndens, nbf, nbf2, nopen, nclosed, scftype, $ movecs) -* $Id: hess_blas.F,v 1.2 2003-10-17 22:55:10 carlfahl Exp $ +* $Id$ C calculate the density and energy-weighted density matrices from the C movecs (and Lagrangian in ROHF case) on disk diff --git a/src/hessian/hess_input.F b/src/hessian/hess_input.F index 6730859d06..3e86216639 100644 --- a/src/hessian/hess_input.F +++ b/src/hessian/hess_input.F @@ -1,6 +1,6 @@ subroutine hess_input(rtdb) * -* $Id: hess_input.F,v 1.3 2003-10-17 22:55:10 carlfahl Exp $ +* $Id$ * implicit none #include "errquit.fh" diff --git a/src/hessian/rhf_hessian.F b/src/hessian/rhf_hessian.F index 79a522104d..1912551fd4 100644 --- a/src/hessian/rhf_hessian.F +++ b/src/hessian/rhf_hessian.F @@ -1,6 +1,6 @@ c********************************************************************** c subroutines interfaced with and adapted from HONDO -c $Id: rhf_hessian.F,v 1.35 2004-07-27 12:27:38 edo Exp $ +c $Id$ c********************************************************************** subroutine hnd_der_init(rtdb,geom,basis) implicit double precision (a-h,o-z) diff --git a/src/hessian/scf_hessian.F b/src/hessian/scf_hessian.F index eccf179084..d3d26df270 100644 --- a/src/hessian/scf_hessian.F +++ b/src/hessian/scf_hessian.F @@ -1,5 +1,5 @@ logical function scf_hessian(rtdb) -* $Id: scf_hessian.F,v 1.11 2003-10-17 22:55:10 carlfahl Exp $ +* $Id$ implicit none #include "errquit.fh" #include "mafdecls.fh" diff --git a/src/input/GNUmakefile b/src/input/GNUmakefile index c722e00bbc..d0110b252c 100644 --- a/src/input/GNUmakefile +++ b/src/input/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.50 2003-04-17 04:16:16 edo Exp $ +#$Id$ # Put into task library so that it occurs at the front of the link path diff --git a/src/input/get_inp_file.F b/src/input/get_inp_file.F index a3682af36b..8f10c1bd3f 100644 --- a/src/input/get_inp_file.F +++ b/src/input/get_inp_file.F @@ -1,5 +1,5 @@ subroutine get_input_filename(input_filename) -C $Id: get_inp_file.F,v 1.17 2007-12-05 01:31:40 d3p307 Exp $ +C $Id$ implicit none #include "inp.fh" #include "global.fh" diff --git a/src/input/input_mem.F b/src/input/input_mem.F index 4ff57567f7..f1f9c4b757 100644 --- a/src/input/input_mem.F +++ b/src/input/input_mem.F @@ -1,6 +1,6 @@ subroutine input_mem_size(stack_size, heap_size, global_size, $ overify, ohardfail) -C$Id: input_mem.F,v 1.5 2000-04-13 17:32:05 hvd Exp $ +C$Id$ implicit none #include "inp.fh" #include "mafdecls.fh" diff --git a/src/input/input_parse.F b/src/input/input_parse.F index 32d6235dc5..cd8ad10e59 100644 --- a/src/input/input_parse.F +++ b/src/input/input_parse.F @@ -10,7 +10,7 @@ c Otherwise FALSE is returned by all processes. c logical function input_parse(rtdb) -C $Id: input_parse.F,v 1.88 2009/02/03 22:49:53 niri Exp $ +C $Id$ c implicit none c diff --git a/src/input/input_set.F b/src/input/input_set.F index 7da63d0ea4..05b8c00ec6 100644 --- a/src/input/input_set.F +++ b/src/input/input_set.F @@ -1,5 +1,5 @@ subroutine input_set(rtdb) -C$Id: input_set.F,v 1.16 2003-10-17 22:55:18 carlfahl Exp $ +C$Id$ implicit none #include "errquit.fh" #include "inp.fh" diff --git a/src/input/input_title.F b/src/input/input_title.F index a56b41733a..876a63d064 100644 --- a/src/input/input_title.F +++ b/src/input/input_title.F @@ -1,5 +1,5 @@ subroutine input_title(rtdb) -C$Id: input_title.F,v 1.9 2004-08-25 01:08:47 marat Exp $ +C$Id$ implicit none #include "errquit.fh" #include "rtdb.fh" diff --git a/src/input/memory_def.F b/src/input/memory_def.F index c2f5ab2003..ea20e657d6 100644 --- a/src/input/memory_def.F +++ b/src/input/memory_def.F @@ -4,7 +4,7 @@ C memory_defaults -- Set default memory partition based on platform C and other factors C C REVISION -C $Id: memory_def.F,v 1.29 2008-06-20 20:22:35 d3p307 Exp $ +C $Id$ C C SYNOPSIS Subroutine Memory_defaults(Total, TSource, Heap, HSource, diff --git a/src/input/memory_input.F b/src/input/memory_input.F index f5ca577e35..a756b609a0 100644 --- a/src/input/memory_input.F +++ b/src/input/memory_input.F @@ -1,6 +1,6 @@ subroutine memory_input(rtdb, ostore, stack_size, heap_size, $ global_size, total_size, overify, ohardfail) -C$Id: memory_input.F,v 1.9 2003-10-17 22:55:18 carlfahl Exp $ +C$Id$ implicit none #include "errquit.fh" #include "inp.fh" diff --git a/src/input/speech_input.F b/src/input/speech_input.F index 9466dd11f5..7685af2819 100644 --- a/src/input/speech_input.F +++ b/src/input/speech_input.F @@ -1,6 +1,6 @@ subroutine speech_input(rtdb) * -* $Id: speech_input.F,v 1.3 2003-10-17 22:55:18 carlfahl Exp $ +* $Id$ * implicit none #include "errquit.fh" diff --git a/src/lapack/GNUmakefile b/src/lapack/GNUmakefile index e62c0217d6..55ce455674 100644 --- a/src/lapack/GNUmakefile +++ b/src/lapack/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.57 2007-12-17 17:42:48 d3p708 Exp $ +#$Id$ ifdef USE_64TO32 USE_I4FLAGS=y endif diff --git a/src/lapack/MakeFile b/src/lapack/MakeFile index e387ebf6f4..a8219f917c 100644 --- a/src/lapack/MakeFile +++ b/src/lapack/MakeFile @@ -1,5 +1,5 @@ # -# $Id: MakeFile,v 1.2 2000-07-18 18:22:38 edo Exp $ +# $Id$ # SUBDIRS = double diff --git a/src/lapack/double/MakeFile b/src/lapack/double/MakeFile index 4c43bc69aa..3576c80001 100644 --- a/src/lapack/double/MakeFile +++ b/src/lapack/double/MakeFile @@ -1,5 +1,5 @@ # -# $Id: MakeFile,v 1.6 2003-10-28 23:53:46 edo Exp $ +# $Id$ # OBJ_OPTIMIZE = $(OBJDIR)\dbdsqr.obj \ diff --git a/src/lapack/double/dbdsqr.f b/src/lapack/double/dbdsqr.f index 1096b0092c..e5188add99 100644 --- a/src/lapack/double/dbdsqr.f +++ b/src/lapack/double/dbdsqr.f @@ -16,7 +16,7 @@ * .. * c -* $Id: dbdsqr.f,v 1.4 2000-10-25 22:50:11 windus Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dgebak.f b/src/lapack/double/dgebak.f index 37725371f8..7956006baa 100644 --- a/src/lapack/double/dgebak.f +++ b/src/lapack/double/dgebak.f @@ -1,6 +1,6 @@ SUBROUTINE DGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) -c $Id: dgebak.f,v 1.1 2002-04-12 22:59:22 sohirata Exp $ +c $Id$ * * -- LAPACK routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dgebal.f b/src/lapack/double/dgebal.f index b949a633be..06c98761a4 100644 --- a/src/lapack/double/dgebal.f +++ b/src/lapack/double/dgebal.f @@ -1,5 +1,5 @@ SUBROUTINE DGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -c $Id: dgebal.f,v 1.1 2002-04-12 22:59:22 sohirata Exp $ +c $Id$ * * -- LAPACK routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dgebd2.f b/src/lapack/double/dgebd2.f index 4eb6792a95..eb8ea8f2e1 100644 --- a/src/lapack/double/dgebd2.f +++ b/src/lapack/double/dgebd2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dgebd2.f,v 1.3 1997-03-17 21:23:11 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dgebrd.f b/src/lapack/double/dgebrd.f index 7597f4ada3..be9f955d20 100644 --- a/src/lapack/double/dgebrd.f +++ b/src/lapack/double/dgebrd.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dgebrd.f,v 1.3 1997-03-17 21:23:13 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dgeev.f b/src/lapack/double/dgeev.f index 2d46f9c240..d57612ef56 100644 --- a/src/lapack/double/dgeev.f +++ b/src/lapack/double/dgeev.f @@ -1,6 +1,6 @@ SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, $ LDVR, WORK, LWORK, INFO ) -c $Id: dgeev.f,v 1.1 2002-04-12 22:59:22 sohirata Exp $ +c $Id$ * * -- LAPACK driver routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dgehd2.f b/src/lapack/double/dgehd2.f index b68e96e509..1daba7f295 100644 --- a/src/lapack/double/dgehd2.f +++ b/src/lapack/double/dgehd2.f @@ -1,5 +1,5 @@ SUBROUTINE DGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) -c $Id: dgehd2.f,v 1.1 2002-04-12 22:59:23 sohirata Exp $ +c $Id$ * * -- LAPACK routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dgehrd.f b/src/lapack/double/dgehrd.f index c7be42e0e7..178ddd5b75 100644 --- a/src/lapack/double/dgehrd.f +++ b/src/lapack/double/dgehrd.f @@ -1,5 +1,5 @@ SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -c $Id: dgehrd.f,v 1.1 2002-04-12 22:59:23 sohirata Exp $ +c $Id$ * * -- LAPACK routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dgelq2.f b/src/lapack/double/dgelq2.f index 18d5d25a90..228e88728a 100644 --- a/src/lapack/double/dgelq2.f +++ b/src/lapack/double/dgelq2.f @@ -13,7 +13,7 @@ * .. * c -* $Id: dgelq2.f,v 1.3 1997-03-17 21:23:15 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dgelqf.f b/src/lapack/double/dgelqf.f index 0e619542ee..8f7f42e250 100644 --- a/src/lapack/double/dgelqf.f +++ b/src/lapack/double/dgelqf.f @@ -13,7 +13,7 @@ * .. * c -* $Id: dgelqf.f,v 1.3 1997-03-17 21:23:17 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dgeqr2.f b/src/lapack/double/dgeqr2.f index 6733a0b806..ed3a463428 100644 --- a/src/lapack/double/dgeqr2.f +++ b/src/lapack/double/dgeqr2.f @@ -13,7 +13,7 @@ * .. * c -* $Id: dgeqr2.f,v 1.3 1997-03-17 21:23:19 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dgeqrf.f b/src/lapack/double/dgeqrf.f index 5c85c508f0..90b4cedd85 100644 --- a/src/lapack/double/dgeqrf.f +++ b/src/lapack/double/dgeqrf.f @@ -13,7 +13,7 @@ * .. * c -* $Id: dgeqrf.f,v 1.3 1997-03-17 21:23:20 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dgesv.f b/src/lapack/double/dgesv.f index d3c71234eb..56ae6fdeae 100644 --- a/src/lapack/double/dgesv.f +++ b/src/lapack/double/dgesv.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dgesv.f,v 1.3 1997-03-17 21:23:21 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dgesvd.f b/src/lapack/double/dgesvd.f index 44b393de35..59c53dd221 100644 --- a/src/lapack/double/dgesvd.f +++ b/src/lapack/double/dgesvd.f @@ -16,7 +16,7 @@ * .. * c -* $Id: dgesvd.f,v 1.4 2000-10-25 22:50:11 windus Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dgetf2.f b/src/lapack/double/dgetf2.f index d84f7ced79..9a4410caeb 100644 --- a/src/lapack/double/dgetf2.f +++ b/src/lapack/double/dgetf2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dgetf2.f,v 1.3 1997-03-17 21:23:27 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dgetrf.f b/src/lapack/double/dgetrf.f index 6764efefa4..34bb06417f 100644 --- a/src/lapack/double/dgetrf.f +++ b/src/lapack/double/dgetrf.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dgetrf.f,v 1.3 1997-03-17 21:23:29 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dgetrs.f b/src/lapack/double/dgetrs.f index d11db66b5e..218886845a 100644 --- a/src/lapack/double/dgetrs.f +++ b/src/lapack/double/dgetrs.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dgetrs.f,v 1.3 1997-03-17 21:23:31 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dhseqr.f b/src/lapack/double/dhseqr.f index 7154898b96..f54268a373 100644 --- a/src/lapack/double/dhseqr.f +++ b/src/lapack/double/dhseqr.f @@ -1,6 +1,6 @@ SUBROUTINE DHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, $ LDZ, WORK, LWORK, INFO ) -c $Id: dhseqr.f,v 1.1 2002-04-12 22:59:23 sohirata Exp $ +c $Id$ * * -- LAPACK routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dlabad.f b/src/lapack/double/dlabad.f index a5e44408fc..7862e959f0 100644 --- a/src/lapack/double/dlabad.f +++ b/src/lapack/double/dlabad.f @@ -1,5 +1,5 @@ SUBROUTINE DLABAD( SMALL, LARGE ) -C$Id: dlabad.f,v 1.1 2002-01-19 05:30:59 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dlabrd.f b/src/lapack/double/dlabrd.f index e110cd5c02..2124edb370 100644 --- a/src/lapack/double/dlabrd.f +++ b/src/lapack/double/dlabrd.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dlabrd.f,v 1.3 1997-03-17 21:23:33 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlacon.f b/src/lapack/double/dlacon.f index 7995448b15..6e27586538 100644 --- a/src/lapack/double/dlacon.f +++ b/src/lapack/double/dlacon.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dlacon.f,v 1.3 1997-03-17 21:23:34 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlacpy.f b/src/lapack/double/dlacpy.f index 3d0bc33951..12ec667e06 100644 --- a/src/lapack/double/dlacpy.f +++ b/src/lapack/double/dlacpy.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlacpy.f,v 1.3 1997-03-17 21:23:36 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dladiv.f b/src/lapack/double/dladiv.f index e395ac5e6d..88cb328d1d 100644 --- a/src/lapack/double/dladiv.f +++ b/src/lapack/double/dladiv.f @@ -10,7 +10,7 @@ * .. * c -* $Id: dladiv.f,v 1.2 1997-03-17 21:23:39 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlae2.f b/src/lapack/double/dlae2.f index d29c70c4f6..d7dbca57b8 100644 --- a/src/lapack/double/dlae2.f +++ b/src/lapack/double/dlae2.f @@ -10,7 +10,7 @@ * .. * c -* $Id: dlae2.f,v 1.3 1997-03-17 21:23:41 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlaev2.f b/src/lapack/double/dlaev2.f index 9850bf1ba0..3405e8dfb1 100644 --- a/src/lapack/double/dlaev2.f +++ b/src/lapack/double/dlaev2.f @@ -10,7 +10,7 @@ * .. * c -* $Id: dlaev2.f,v 1.3 1997-03-17 21:23:43 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlagtf.f b/src/lapack/double/dlagtf.f index bf026e9d85..080004a432 100644 --- a/src/lapack/double/dlagtf.f +++ b/src/lapack/double/dlagtf.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dlagtf.f,v 1.3 1997-03-17 21:23:45 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlagts.f b/src/lapack/double/dlagts.f index 674863f94e..d30bd22f03 100644 --- a/src/lapack/double/dlagts.f +++ b/src/lapack/double/dlagts.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dlagts.f,v 1.3 1997-03-17 21:23:47 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlahqr.f b/src/lapack/double/dlahqr.f index 700f17cf02..badba5e3b0 100644 --- a/src/lapack/double/dlahqr.f +++ b/src/lapack/double/dlahqr.f @@ -1,6 +1,6 @@ SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, INFO ) -c $Id: dlahqr.f,v 1.1 2002-04-12 22:59:23 sohirata Exp $ +c $Id$ * * -- LAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dlahrd.f b/src/lapack/double/dlahrd.f index f1090574b3..7a91b3c8ad 100644 --- a/src/lapack/double/dlahrd.f +++ b/src/lapack/double/dlahrd.f @@ -1,5 +1,5 @@ SUBROUTINE DLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -c $Id: dlahrd.f,v 1.1 2002-04-12 22:59:23 sohirata Exp $ +c $Id$ * * -- LAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dlaln2.f b/src/lapack/double/dlaln2.f index 7002b63ceb..0c9145ebbe 100644 --- a/src/lapack/double/dlaln2.f +++ b/src/lapack/double/dlaln2.f @@ -1,6 +1,6 @@ SUBROUTINE DLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, $ LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) -c $Id: dlaln2.f,v 1.1 2002-04-12 22:59:23 sohirata Exp $ +c $Id$ * * -- LAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dlamch.f b/src/lapack/double/dlamch.f index 648d1f3aa5..2a211f791d 100644 --- a/src/lapack/double/dlamch.f +++ b/src/lapack/double/dlamch.f @@ -10,7 +10,7 @@ * .. * c -* $Id: dlamch.f,v 1.3 1997-03-17 21:23:48 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlange.f b/src/lapack/double/dlange.f index 0d520b5296..a865844691 100644 --- a/src/lapack/double/dlange.f +++ b/src/lapack/double/dlange.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlange.f,v 1.3 1997-03-17 21:23:51 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlanhs.f b/src/lapack/double/dlanhs.f index 2386c97453..8e39dd18df 100644 --- a/src/lapack/double/dlanhs.f +++ b/src/lapack/double/dlanhs.f @@ -1,5 +1,5 @@ DOUBLE PRECISION FUNCTION DLANHS( NORM, N, A, LDA, WORK ) -c $Id: dlanhs.f,v 1.1 2002-04-12 22:59:23 sohirata Exp $ +c $Id$ * * -- LAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dlansp.f b/src/lapack/double/dlansp.f index 7ecedf2f93..812557e726 100644 --- a/src/lapack/double/dlansp.f +++ b/src/lapack/double/dlansp.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlansp.f,v 1.3 1997-03-17 21:23:52 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlanst.f b/src/lapack/double/dlanst.f index bef8ab25db..46caa83130 100644 --- a/src/lapack/double/dlanst.f +++ b/src/lapack/double/dlanst.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlanst.f,v 1.2 1997-03-17 21:23:53 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlansy.f b/src/lapack/double/dlansy.f index afdccd5251..d9147c8b9f 100644 --- a/src/lapack/double/dlansy.f +++ b/src/lapack/double/dlansy.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlansy.f,v 1.2 1997-03-17 21:23:54 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlanv2.f b/src/lapack/double/dlanv2.f index 11a32ed891..bdc6955261 100644 --- a/src/lapack/double/dlanv2.f +++ b/src/lapack/double/dlanv2.f @@ -1,5 +1,5 @@ SUBROUTINE DLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) -c $Id: dlanv2.f,v 1.1 2002-04-12 22:59:23 sohirata Exp $ +c $Id$ * * -- LAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dlapy2.f b/src/lapack/double/dlapy2.f index 0d559e047a..20d336113c 100644 --- a/src/lapack/double/dlapy2.f +++ b/src/lapack/double/dlapy2.f @@ -10,7 +10,7 @@ * .. * c -* $Id: dlapy2.f,v 1.3 1997-03-17 21:23:57 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlapy3.f b/src/lapack/double/dlapy3.f index 94f3f651a2..4d426af468 100644 --- a/src/lapack/double/dlapy3.f +++ b/src/lapack/double/dlapy3.f @@ -10,7 +10,7 @@ * .. * c -* $Id: dlapy3.f,v 1.2 1997-03-17 21:23:59 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlarf.f b/src/lapack/double/dlarf.f index 2a2f235aaa..e37cb602d9 100644 --- a/src/lapack/double/dlarf.f +++ b/src/lapack/double/dlarf.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dlarf.f,v 1.3 1997-03-17 21:24:01 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlarfb.f b/src/lapack/double/dlarfb.f index 4983f65a6d..08c540f6ba 100644 --- a/src/lapack/double/dlarfb.f +++ b/src/lapack/double/dlarfb.f @@ -16,7 +16,7 @@ * .. * c -* $Id: dlarfb.f,v 1.3 1997-03-17 21:24:03 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlarfg.f b/src/lapack/double/dlarfg.f index 9e13f176ea..3efea0409a 100644 --- a/src/lapack/double/dlarfg.f +++ b/src/lapack/double/dlarfg.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlarfg.f,v 1.3 1997-03-17 21:24:04 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlarft.f b/src/lapack/double/dlarft.f index 7b7d8c7801..56e87d0c5c 100644 --- a/src/lapack/double/dlarft.f +++ b/src/lapack/double/dlarft.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlarft.f,v 1.3 1997-03-17 21:24:05 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlarfx.f b/src/lapack/double/dlarfx.f index 588086dbab..321fd48e14 100644 --- a/src/lapack/double/dlarfx.f +++ b/src/lapack/double/dlarfx.f @@ -1,5 +1,5 @@ SUBROUTINE DLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) -c $Id: dlarfx.f,v 1.1 2002-04-12 22:59:24 sohirata Exp $ +c $Id$ * * -- LAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dlarnv.f b/src/lapack/double/dlarnv.f index aca6d7716a..2893f96fc4 100644 --- a/src/lapack/double/dlarnv.f +++ b/src/lapack/double/dlarnv.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlarnv.f,v 1.3 1997-03-17 21:24:06 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlartg.f b/src/lapack/double/dlartg.f index bd116c7e5f..9c8b294f6e 100644 --- a/src/lapack/double/dlartg.f +++ b/src/lapack/double/dlartg.f @@ -10,7 +10,7 @@ * .. * c -* $Id: dlartg.f,v 1.3 1997-03-17 21:24:09 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlaruv.f b/src/lapack/double/dlaruv.f index 1adacb010b..7668f77d60 100644 --- a/src/lapack/double/dlaruv.f +++ b/src/lapack/double/dlaruv.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlaruv.f,v 1.4 2000-10-25 22:50:11 windus Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlas2.f b/src/lapack/double/dlas2.f index 185af4b871..27b9de3a23 100644 --- a/src/lapack/double/dlas2.f +++ b/src/lapack/double/dlas2.f @@ -10,7 +10,7 @@ * .. * c -* $Id: dlas2.f,v 1.3 1997-03-17 21:24:13 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlascl.f b/src/lapack/double/dlascl.f index 5cce48b122..959586b313 100644 --- a/src/lapack/double/dlascl.f +++ b/src/lapack/double/dlascl.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dlascl.f,v 1.3 1997-03-17 21:24:15 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlaset.f b/src/lapack/double/dlaset.f index c229645489..b0653dbd9c 100644 --- a/src/lapack/double/dlaset.f +++ b/src/lapack/double/dlaset.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dlaset.f,v 1.3 1997-03-17 21:24:16 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlasq1.f b/src/lapack/double/dlasq1.f index 64495e7be4..2dc48db521 100644 --- a/src/lapack/double/dlasq1.f +++ b/src/lapack/double/dlasq1.f @@ -1,4 +1,4 @@ -* $Id: dlasq1.f,v 1.1 2001-10-09 00:19:29 edo Exp $ +* $Id$ SUBROUTINE DLASQ1( N, D, E, WORK, INFO ) * * -- LAPACK routine (instrumented to count ops, version 3.0) -- diff --git a/src/lapack/double/dlasq2.f b/src/lapack/double/dlasq2.f index 6c4de5da31..fe7b206443 100644 --- a/src/lapack/double/dlasq2.f +++ b/src/lapack/double/dlasq2.f @@ -1,4 +1,4 @@ -* $Id: dlasq2.f,v 1.1 2001-10-09 00:19:29 edo Exp $ +* $Id$ SUBROUTINE DLASQ2( N, Z, INFO ) * * -- LAPACK routine (instrumented to count ops, version 3.0) -- diff --git a/src/lapack/double/dlasq3.f b/src/lapack/double/dlasq3.f index 7252a4f530..cb7330cd11 100644 --- a/src/lapack/double/dlasq3.f +++ b/src/lapack/double/dlasq3.f @@ -1,4 +1,4 @@ -* $Id: dlasq3.f,v 1.1 2001-10-09 00:19:29 edo Exp $ +* $Id$ SUBROUTINE DLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, $ ITER, NDIV, IEEE ) * diff --git a/src/lapack/double/dlasq4.f b/src/lapack/double/dlasq4.f index 509fe9086e..ced5a18974 100644 --- a/src/lapack/double/dlasq4.f +++ b/src/lapack/double/dlasq4.f @@ -1,4 +1,4 @@ -* $Id: dlasq4.f,v 1.1 2001-10-09 00:19:29 edo Exp $ +* $Id$ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE ) * diff --git a/src/lapack/double/dlasq5.f b/src/lapack/double/dlasq5.f index ce7eff78f0..edef39322a 100644 --- a/src/lapack/double/dlasq5.f +++ b/src/lapack/double/dlasq5.f @@ -1,4 +1,4 @@ -* $Id: dlasq5.f,v 1.1 2001-10-09 00:19:29 edo Exp $ +* $Id$ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, DMIN, DMIN1, DMIN2, DN, $ DNM1, DNM2, IEEE ) * diff --git a/src/lapack/double/dlasq6.f b/src/lapack/double/dlasq6.f index c00035df7d..a57afdb7f2 100644 --- a/src/lapack/double/dlasq6.f +++ b/src/lapack/double/dlasq6.f @@ -1,4 +1,4 @@ -* $Id: dlasq6.f,v 1.1 2001-10-09 23:51:47 windus Exp $ +* $Id$ SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, $ DNM1, DNM2 ) * diff --git a/src/lapack/double/dlasr.f b/src/lapack/double/dlasr.f index c9c9d9640c..d05aaca171 100644 --- a/src/lapack/double/dlasr.f +++ b/src/lapack/double/dlasr.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlasr.f,v 1.3 1997-03-17 21:24:17 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlasrt.f b/src/lapack/double/dlasrt.f index 5a4c33ccce..c0ed4eef79 100644 --- a/src/lapack/double/dlasrt.f +++ b/src/lapack/double/dlasrt.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlasrt.f,v 1.2 1997-03-17 21:24:20 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlassq.f b/src/lapack/double/dlassq.f index a30a41a370..c0a7f34368 100644 --- a/src/lapack/double/dlassq.f +++ b/src/lapack/double/dlassq.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlassq.f,v 1.3 1997-03-17 21:24:22 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlasv2.f b/src/lapack/double/dlasv2.f index 3ed9686a64..1b9206aee1 100644 --- a/src/lapack/double/dlasv2.f +++ b/src/lapack/double/dlasv2.f @@ -10,7 +10,7 @@ * .. * c -* $Id: dlasv2.f,v 1.3 1997-03-17 21:24:24 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlaswp.f b/src/lapack/double/dlaswp.f index e4d920b273..03d8d13ed8 100644 --- a/src/lapack/double/dlaswp.f +++ b/src/lapack/double/dlaswp.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlaswp.f,v 1.3 1997-03-17 21:24:27 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlatrd.f b/src/lapack/double/dlatrd.f index b901e12d67..f36dce962b 100644 --- a/src/lapack/double/dlatrd.f +++ b/src/lapack/double/dlatrd.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlatrd.f,v 1.2 1997-03-17 21:24:29 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlauu2.f b/src/lapack/double/dlauu2.f index 368c27ba18..f962287740 100644 --- a/src/lapack/double/dlauu2.f +++ b/src/lapack/double/dlauu2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlauu2.f,v 1.3 1997-03-17 21:24:31 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dlauum.f b/src/lapack/double/dlauum.f index 21d4fa835b..0a736f6a41 100644 --- a/src/lapack/double/dlauum.f +++ b/src/lapack/double/dlauum.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dlauum.f,v 1.3 1997-03-17 21:24:33 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dorg2l.f b/src/lapack/double/dorg2l.f index 61723ed71a..9a683eba75 100644 --- a/src/lapack/double/dorg2l.f +++ b/src/lapack/double/dorg2l.f @@ -13,7 +13,7 @@ * .. * c -* $Id: dorg2l.f,v 1.2 1997-03-17 21:24:34 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dorg2r.f b/src/lapack/double/dorg2r.f index 93047b74cf..98d1c622fa 100644 --- a/src/lapack/double/dorg2r.f +++ b/src/lapack/double/dorg2r.f @@ -13,7 +13,7 @@ * .. * c -* $Id: dorg2r.f,v 1.3 1997-03-17 21:24:35 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dorgbr.f b/src/lapack/double/dorgbr.f index 50da40a489..4f71aa8b11 100644 --- a/src/lapack/double/dorgbr.f +++ b/src/lapack/double/dorgbr.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dorgbr.f,v 1.3 1997-03-17 21:24:38 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dorghr.f b/src/lapack/double/dorghr.f index c4e9ee1170..22469ce834 100644 --- a/src/lapack/double/dorghr.f +++ b/src/lapack/double/dorghr.f @@ -1,5 +1,5 @@ SUBROUTINE DORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -c $Id: dorghr.f,v 1.1 2002-04-12 22:59:24 sohirata Exp $ +c $Id$ * * -- LAPACK routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dorgl2.f b/src/lapack/double/dorgl2.f index 4bbca566cb..dd07b79aad 100644 --- a/src/lapack/double/dorgl2.f +++ b/src/lapack/double/dorgl2.f @@ -13,7 +13,7 @@ * .. * c -* $Id: dorgl2.f,v 1.3 1997-03-17 21:24:40 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dorglq.f b/src/lapack/double/dorglq.f index a56daa3511..cef314bde9 100644 --- a/src/lapack/double/dorglq.f +++ b/src/lapack/double/dorglq.f @@ -13,7 +13,7 @@ * .. * c -* $Id: dorglq.f,v 1.4 2000-10-25 22:50:12 windus Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dorgql.f b/src/lapack/double/dorgql.f index 65f10785b7..b4c2e03d9a 100644 --- a/src/lapack/double/dorgql.f +++ b/src/lapack/double/dorgql.f @@ -13,7 +13,7 @@ * .. * c -* $Id: dorgql.f,v 1.2 1997-03-17 21:24:43 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dorgqr.f b/src/lapack/double/dorgqr.f index 6c8644dbd2..24ab368e38 100644 --- a/src/lapack/double/dorgqr.f +++ b/src/lapack/double/dorgqr.f @@ -13,7 +13,7 @@ * .. * c -* $Id: dorgqr.f,v 1.4 2000-10-25 22:50:12 windus Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dorgtr.f b/src/lapack/double/dorgtr.f index b4aa7cec45..e2befc5aa5 100644 --- a/src/lapack/double/dorgtr.f +++ b/src/lapack/double/dorgtr.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dorgtr.f,v 1.2 1997-03-17 21:24:48 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dorm2r.f b/src/lapack/double/dorm2r.f index d667d2766f..18d963230b 100644 --- a/src/lapack/double/dorm2r.f +++ b/src/lapack/double/dorm2r.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dorm2r.f,v 1.4 2000-10-25 22:50:12 windus Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dormbr.f b/src/lapack/double/dormbr.f index 707736fe08..e547d61a99 100644 --- a/src/lapack/double/dormbr.f +++ b/src/lapack/double/dormbr.f @@ -16,7 +16,7 @@ * .. * c -* $Id: dormbr.f,v 1.3 1997-03-17 21:24:52 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dorml2.f b/src/lapack/double/dorml2.f index bc6e800f9e..4f3bd515a4 100644 --- a/src/lapack/double/dorml2.f +++ b/src/lapack/double/dorml2.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dorml2.f,v 1.4 2000-10-25 22:50:12 windus Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dormlq.f b/src/lapack/double/dormlq.f index 48a02035c2..ae35ba30bc 100644 --- a/src/lapack/double/dormlq.f +++ b/src/lapack/double/dormlq.f @@ -16,7 +16,7 @@ * .. * c -* $Id: dormlq.f,v 1.5 2000-10-25 22:50:12 windus Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dormqr.f b/src/lapack/double/dormqr.f index 93112a888d..6ee1f717d1 100644 --- a/src/lapack/double/dormqr.f +++ b/src/lapack/double/dormqr.f @@ -16,7 +16,7 @@ * .. * c -* $Id: dormqr.f,v 1.5 2000-10-25 22:50:12 windus Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dposv.f b/src/lapack/double/dposv.f index 9408d783b0..5dcf14f817 100644 --- a/src/lapack/double/dposv.f +++ b/src/lapack/double/dposv.f @@ -1,5 +1,5 @@ * -* $Id: dposv.f,v 1.1 2001-10-09 00:19:29 edo Exp $ +* $Id$ * SUBROUTINE DPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) diff --git a/src/lapack/double/dpotf2.f b/src/lapack/double/dpotf2.f index 976e7974ca..4a81142574 100644 --- a/src/lapack/double/dpotf2.f +++ b/src/lapack/double/dpotf2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dpotf2.f,v 1.3 1997-03-17 21:25:00 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dpotrf.f b/src/lapack/double/dpotrf.f index 6a152a95ad..65e00382be 100644 --- a/src/lapack/double/dpotrf.f +++ b/src/lapack/double/dpotrf.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dpotrf.f,v 1.3 1997-03-17 21:25:02 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dpotri.f b/src/lapack/double/dpotri.f index 5707e39ba9..f3f59c3613 100644 --- a/src/lapack/double/dpotri.f +++ b/src/lapack/double/dpotri.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dpotri.f,v 1.3 1997-03-17 21:25:03 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dpotrs.f b/src/lapack/double/dpotrs.f index c884f3daa7..cc661e484a 100644 --- a/src/lapack/double/dpotrs.f +++ b/src/lapack/double/dpotrs.f @@ -13,7 +13,7 @@ DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. c -* $Id: dpotrs.f,v 1.1 2003-04-04 01:42:14 edo Exp $ +* $Id$ c * diff --git a/src/lapack/double/dspcon.f b/src/lapack/double/dspcon.f index f419c861fc..a22f2790d1 100644 --- a/src/lapack/double/dspcon.f +++ b/src/lapack/double/dspcon.f @@ -17,7 +17,7 @@ * .. * c -* $Id: dspcon.f,v 1.3 1997-03-17 21:25:06 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dsprfs.f b/src/lapack/double/dsprfs.f index 2f0994b81d..7d618a4295 100644 --- a/src/lapack/double/dsprfs.f +++ b/src/lapack/double/dsprfs.f @@ -17,7 +17,7 @@ * .. * c -* $Id: dsprfs.f,v 1.3 1997-03-17 21:25:08 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dspsvx.f b/src/lapack/double/dspsvx.f index 3b88d5b78c..66d1df8eea 100644 --- a/src/lapack/double/dspsvx.f +++ b/src/lapack/double/dspsvx.f @@ -18,7 +18,7 @@ * .. * c -* $Id: dspsvx.f,v 1.3 1997-03-17 21:25:10 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dsptrf.f b/src/lapack/double/dsptrf.f index db9c8209e8..81f3bf6a1c 100644 --- a/src/lapack/double/dsptrf.f +++ b/src/lapack/double/dsptrf.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dsptrf.f,v 1.4 2000-10-25 22:50:12 windus Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dsptrs.f b/src/lapack/double/dsptrs.f index 9b12d38f0c..88e1b24d5c 100644 --- a/src/lapack/double/dsptrs.f +++ b/src/lapack/double/dsptrs.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dsptrs.f,v 1.3 1997-03-17 21:25:13 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dsteqr.f b/src/lapack/double/dsteqr.f index fd5594d323..205bae8998 100644 --- a/src/lapack/double/dsteqr.f +++ b/src/lapack/double/dsteqr.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dsteqr.f,v 1.2 1997-03-17 21:25:15 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dsterf.f b/src/lapack/double/dsterf.f index 9c16dd486b..f03279e011 100644 --- a/src/lapack/double/dsterf.f +++ b/src/lapack/double/dsterf.f @@ -13,7 +13,7 @@ * .. * c -* $Id: dsterf.f,v 1.3 1997-03-17 21:25:17 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dsyev.f b/src/lapack/double/dsyev.f index 825ba21436..82494e914d 100644 --- a/src/lapack/double/dsyev.f +++ b/src/lapack/double/dsyev.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dsyev.f,v 1.2 1997-03-17 21:25:18 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dsygs2.f b/src/lapack/double/dsygs2.f index a397b36226..790ec41f05 100644 --- a/src/lapack/double/dsygs2.f +++ b/src/lapack/double/dsygs2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dsygs2.f,v 1.2 1997-03-17 21:25:19 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dsygst.f b/src/lapack/double/dsygst.f index bd68e227c4..3d517e9100 100644 --- a/src/lapack/double/dsygst.f +++ b/src/lapack/double/dsygst.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dsygst.f,v 1.2 1997-03-17 21:25:22 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dsygv.f b/src/lapack/double/dsygv.f index e5e7d16a19..95069fc6b8 100644 --- a/src/lapack/double/dsygv.f +++ b/src/lapack/double/dsygv.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dsygv.f,v 1.2 1997-03-17 21:25:24 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dsytd2.f b/src/lapack/double/dsytd2.f index 63040a490d..697a26fa62 100644 --- a/src/lapack/double/dsytd2.f +++ b/src/lapack/double/dsytd2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dsytd2.f,v 1.2 1997-03-17 21:25:26 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dsytrd.f b/src/lapack/double/dsytrd.f index ac0adc8ea8..51def42039 100644 --- a/src/lapack/double/dsytrd.f +++ b/src/lapack/double/dsytrd.f @@ -15,7 +15,7 @@ * .. * c -* $Id: dsytrd.f,v 1.2 1997-03-17 21:25:27 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dtrevc.f b/src/lapack/double/dtrevc.f index 049edceb53..119008d2a4 100644 --- a/src/lapack/double/dtrevc.f +++ b/src/lapack/double/dtrevc.f @@ -1,6 +1,6 @@ SUBROUTINE DTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, INFO ) -c $Id: dtrevc.f,v 1.1 2002-04-12 22:59:24 sohirata Exp $ +c $Id$ * * -- LAPACK routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/dtrti2.f b/src/lapack/double/dtrti2.f index 7c0eb3dacc..aeeef34fcb 100644 --- a/src/lapack/double/dtrti2.f +++ b/src/lapack/double/dtrti2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dtrti2.f,v 1.1 1997-03-17 21:42:28 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/dtrtri.f b/src/lapack/double/dtrtri.f index 154ffec9c2..09face2d74 100644 --- a/src/lapack/double/dtrtri.f +++ b/src/lapack/double/dtrtri.f @@ -14,7 +14,7 @@ * .. * c -* $Id: dtrtri.f,v 1.4 1997-03-17 21:25:28 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/ieeeck.f b/src/lapack/double/ieeeck.f index dab91bb616..cd87770e2e 100644 --- a/src/lapack/double/ieeeck.f +++ b/src/lapack/double/ieeeck.f @@ -1,5 +1,5 @@ INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) -* $Id: ieeeck.f,v 1.1 2004-11-16 23:03:44 edo Exp $ +* $Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/ilaenv.f b/src/lapack/double/ilaenv.f index 1783636dc5..03807d0be5 100644 --- a/src/lapack/double/ilaenv.f +++ b/src/lapack/double/ilaenv.f @@ -1,6 +1,6 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, $ N4 ) -* $Id: ilaenv.f,v 1.4 2004-11-16 23:03:44 edo Exp $ +* $Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/lsamen.f b/src/lapack/double/lsamen.f index 42c7353954..315d496596 100644 --- a/src/lapack/double/lsamen.f +++ b/src/lapack/double/lsamen.f @@ -11,7 +11,7 @@ * .. * c -* $Id: lsamen.f,v 1.2 1997-03-17 21:25:33 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zgebak.f b/src/lapack/double/zgebak.f index 3e7a51417d..fec3fd74b9 100644 --- a/src/lapack/double/zgebak.f +++ b/src/lapack/double/zgebak.f @@ -1,6 +1,6 @@ SUBROUTINE ZGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) -C$Id: zgebak.f,v 1.1 2002-01-19 05:30:59 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zgebal.f b/src/lapack/double/zgebal.f index 96621f86d2..a1adffac86 100644 --- a/src/lapack/double/zgebal.f +++ b/src/lapack/double/zgebal.f @@ -1,5 +1,5 @@ SUBROUTINE ZGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -C$Id: zgebal.f,v 1.1 2002-01-19 05:30:59 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zgeev.f b/src/lapack/double/zgeev.f index 88cda6af5b..4c69d406eb 100644 --- a/src/lapack/double/zgeev.f +++ b/src/lapack/double/zgeev.f @@ -1,6 +1,6 @@ SUBROUTINE ZGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LDVR, $ WORK, LWORK, RWORK, INFO ) -C$Id: zgeev.f,v 1.1 2002-01-19 05:30:59 edo Exp $ +C$Id$ * * -- LAPACK driver routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zgehd2.f b/src/lapack/double/zgehd2.f index 5907410d79..49a53300f3 100644 --- a/src/lapack/double/zgehd2.f +++ b/src/lapack/double/zgehd2.f @@ -1,5 +1,5 @@ SUBROUTINE ZGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) -C$Id: zgehd2.f,v 1.1 2002-01-19 05:30:59 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zgehrd.f b/src/lapack/double/zgehrd.f index 35c13b328e..5a216708b4 100644 --- a/src/lapack/double/zgehrd.f +++ b/src/lapack/double/zgehrd.f @@ -1,5 +1,5 @@ SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -C$Id: zgehrd.f,v 1.1 2002-01-19 05:30:59 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zgesv.f b/src/lapack/double/zgesv.f index 942c7c4650..9d1ae4e619 100644 --- a/src/lapack/double/zgesv.f +++ b/src/lapack/double/zgesv.f @@ -1,5 +1,5 @@ SUBROUTINE ZGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -C$Id: zgesv.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK driver routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zgetf2.f b/src/lapack/double/zgetf2.f index 5f84b65776..ef4744eba2 100644 --- a/src/lapack/double/zgetf2.f +++ b/src/lapack/double/zgetf2.f @@ -1,5 +1,5 @@ SUBROUTINE ZGETF2( M, N, A, LDA, IPIV, INFO ) -C$Id: zgetf2.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zgetrf.f b/src/lapack/double/zgetrf.f index 182e340f8f..d06f8da48a 100644 --- a/src/lapack/double/zgetrf.f +++ b/src/lapack/double/zgetrf.f @@ -1,5 +1,5 @@ SUBROUTINE ZGETRF( M, N, A, LDA, IPIV, INFO ) -C$Id: zgetrf.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zgetrs.f b/src/lapack/double/zgetrs.f index eb0320527b..d5e049aa66 100644 --- a/src/lapack/double/zgetrs.f +++ b/src/lapack/double/zgetrs.f @@ -1,5 +1,5 @@ SUBROUTINE ZGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -C$Id: zgetrs.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zheev.f b/src/lapack/double/zheev.f index d28040ff19..f58063a39a 100644 --- a/src/lapack/double/zheev.f +++ b/src/lapack/double/zheev.f @@ -16,7 +16,7 @@ * .. * c -* $Id: zheev.f,v 1.2 1997-03-17 21:25:37 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zhegs2.f b/src/lapack/double/zhegs2.f index d449acd7f2..ae85e1e95e 100644 --- a/src/lapack/double/zhegs2.f +++ b/src/lapack/double/zhegs2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: zhegs2.f,v 1.2 1997-03-17 21:25:39 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zhegst.f b/src/lapack/double/zhegst.f index 52c7873f5a..88411487b1 100644 --- a/src/lapack/double/zhegst.f +++ b/src/lapack/double/zhegst.f @@ -14,7 +14,7 @@ * .. * c -* $Id: zhegst.f,v 1.2 1997-03-17 21:25:40 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zhegv.f b/src/lapack/double/zhegv.f index 53c5ee3354..a9c34897c2 100644 --- a/src/lapack/double/zhegv.f +++ b/src/lapack/double/zhegv.f @@ -16,7 +16,7 @@ * .. * c -* $Id: zhegv.f,v 1.2 1997-03-17 21:25:41 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zhetd2.f b/src/lapack/double/zhetd2.f index 69172e6278..1c2532ebb9 100644 --- a/src/lapack/double/zhetd2.f +++ b/src/lapack/double/zhetd2.f @@ -15,7 +15,7 @@ * .. * c -* $Id: zhetd2.f,v 1.2 1997-03-17 21:25:44 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zhetrd.f b/src/lapack/double/zhetrd.f index d26341fb80..c678ac14fa 100644 --- a/src/lapack/double/zhetrd.f +++ b/src/lapack/double/zhetrd.f @@ -15,7 +15,7 @@ * .. * c -* $Id: zhetrd.f,v 1.2 1997-03-17 21:25:46 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zhseqr.f b/src/lapack/double/zhseqr.f index dad74ab8e5..32493894b5 100644 --- a/src/lapack/double/zhseqr.f +++ b/src/lapack/double/zhseqr.f @@ -1,6 +1,6 @@ SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, $ WORK, LWORK, INFO ) -C$Id: zhseqr.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zlacgv.f b/src/lapack/double/zlacgv.f index 22333096d6..89e02bcf58 100644 --- a/src/lapack/double/zlacgv.f +++ b/src/lapack/double/zlacgv.f @@ -13,7 +13,7 @@ * .. * c -* $Id: zlacgv.f,v 1.2 1997-03-17 21:25:47 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlacon.f b/src/lapack/double/zlacon.f index f5640cd17b..0ee5f03d49 100644 --- a/src/lapack/double/zlacon.f +++ b/src/lapack/double/zlacon.f @@ -1,6 +1,6 @@ SUBROUTINE ZLACON( N, V, X, EST, KASE ) c -c $Id: zlacon.f,v 1.1 2000-04-18 00:22:38 edo Exp $ +c $Id$ c * * -- LAPACK auxiliary routine (version 3.0) -- diff --git a/src/lapack/double/zlacpy.f b/src/lapack/double/zlacpy.f index 013c569c17..335e2b9dae 100644 --- a/src/lapack/double/zlacpy.f +++ b/src/lapack/double/zlacpy.f @@ -1,6 +1,6 @@ SUBROUTINE ZLACPY( UPLO, M, N, A, LDA, B, LDB ) c -c $Id: zlacpy.f,v 1.1 2000-04-18 00:22:38 edo Exp $ +c $Id$ c * * -- LAPACK auxiliary routine (version 3.0) -- diff --git a/src/lapack/double/zladiv.f b/src/lapack/double/zladiv.f index 7f4e0f8006..3f2b963216 100644 --- a/src/lapack/double/zladiv.f +++ b/src/lapack/double/zladiv.f @@ -10,7 +10,7 @@ * .. * c -* $Id: zladiv.f,v 1.2 1997-03-17 21:25:48 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlahqr.f b/src/lapack/double/zlahqr.f index db089da8d1..b95d7ad412 100644 --- a/src/lapack/double/zlahqr.f +++ b/src/lapack/double/zlahqr.f @@ -1,6 +1,6 @@ SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, INFO ) -C$Id: zlahqr.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zlahrd.f b/src/lapack/double/zlahrd.f index 9cd99d95f2..9ebeb119d3 100644 --- a/src/lapack/double/zlahrd.f +++ b/src/lapack/double/zlahrd.f @@ -1,5 +1,5 @@ SUBROUTINE ZLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -C$Id: zlahrd.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zlange.f b/src/lapack/double/zlange.f index b14d306714..2c1fe21b1e 100644 --- a/src/lapack/double/zlange.f +++ b/src/lapack/double/zlange.f @@ -1,5 +1,5 @@ DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK ) -C$Id: zlange.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zlanhe.f b/src/lapack/double/zlanhe.f index 37f60a5d95..df824428cc 100644 --- a/src/lapack/double/zlanhe.f +++ b/src/lapack/double/zlanhe.f @@ -15,7 +15,7 @@ * .. * c -* $Id: zlanhe.f,v 1.2 1997-03-17 21:25:51 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlanhs.f b/src/lapack/double/zlanhs.f index 3f40d144b6..a9fac1b9b3 100644 --- a/src/lapack/double/zlanhs.f +++ b/src/lapack/double/zlanhs.f @@ -1,5 +1,5 @@ DOUBLE PRECISION FUNCTION ZLANHS( NORM, N, A, LDA, WORK ) -C$Id: zlanhs.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zlansp.f b/src/lapack/double/zlansp.f index e1e41c3c97..6622384c94 100644 --- a/src/lapack/double/zlansp.f +++ b/src/lapack/double/zlansp.f @@ -1,6 +1,6 @@ DOUBLE PRECISION FUNCTION ZLANSP( NORM, UPLO, N, AP, WORK ) c -c $Id: zlansp.f,v 1.1 2000-04-18 00:22:39 edo Exp $ +c $Id$ c * * -- LAPACK auxiliary routine (version 3.0) -- diff --git a/src/lapack/double/zlarf.f b/src/lapack/double/zlarf.f index 3ab6599716..5c3065c9f4 100644 --- a/src/lapack/double/zlarf.f +++ b/src/lapack/double/zlarf.f @@ -15,7 +15,7 @@ * .. * c -* $Id: zlarf.f,v 1.2 1997-03-17 21:25:53 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlarfb.f b/src/lapack/double/zlarfb.f index 48a01d9885..1ba19429a2 100644 --- a/src/lapack/double/zlarfb.f +++ b/src/lapack/double/zlarfb.f @@ -16,7 +16,7 @@ * .. * c -* $Id: zlarfb.f,v 1.2 1997-03-17 21:25:55 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlarfg.f b/src/lapack/double/zlarfg.f index d8210e7156..f01a3f6a34 100644 --- a/src/lapack/double/zlarfg.f +++ b/src/lapack/double/zlarfg.f @@ -14,7 +14,7 @@ * .. * c -* $Id: zlarfg.f,v 1.2 1997-03-17 21:25:56 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlarft.f b/src/lapack/double/zlarft.f index e769559c9e..4d988cd619 100644 --- a/src/lapack/double/zlarft.f +++ b/src/lapack/double/zlarft.f @@ -14,7 +14,7 @@ * .. * c -* $Id: zlarft.f,v 1.2 1997-03-17 21:25:57 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlarfx.f b/src/lapack/double/zlarfx.f index 76efa86bbc..b8d827bea0 100644 --- a/src/lapack/double/zlarfx.f +++ b/src/lapack/double/zlarfx.f @@ -1,5 +1,5 @@ SUBROUTINE ZLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) -C$Id: zlarfx.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zlascl.f b/src/lapack/double/zlascl.f index 0b890d0455..fddf94f103 100644 --- a/src/lapack/double/zlascl.f +++ b/src/lapack/double/zlascl.f @@ -15,7 +15,7 @@ * .. * c -* $Id: zlascl.f,v 1.2 1997-03-17 21:26:00 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlaset.f b/src/lapack/double/zlaset.f index bd55bde369..690f0f3787 100644 --- a/src/lapack/double/zlaset.f +++ b/src/lapack/double/zlaset.f @@ -15,7 +15,7 @@ * .. * c -* $Id: zlaset.f,v 1.2 1997-03-17 21:26:02 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlasr.f b/src/lapack/double/zlasr.f index ffe3145cbb..6554376a40 100644 --- a/src/lapack/double/zlasr.f +++ b/src/lapack/double/zlasr.f @@ -15,7 +15,7 @@ * .. * c -* $Id: zlasr.f,v 1.2 1997-03-17 21:26:04 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlassq.f b/src/lapack/double/zlassq.f index d7d613cc3c..fa6b6ae5c9 100644 --- a/src/lapack/double/zlassq.f +++ b/src/lapack/double/zlassq.f @@ -14,7 +14,7 @@ * .. * c -* $Id: zlassq.f,v 1.2 1997-03-17 21:26:05 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlaswp.f b/src/lapack/double/zlaswp.f index b51f64db64..4ee6ca9410 100644 --- a/src/lapack/double/zlaswp.f +++ b/src/lapack/double/zlaswp.f @@ -1,5 +1,5 @@ SUBROUTINE ZLASWP( N, A, LDA, K1, K2, IPIV, INCX ) -* $Id: zlaswp.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +* $Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zlatrd.f b/src/lapack/double/zlatrd.f index 2caa617f00..5e911ecac3 100644 --- a/src/lapack/double/zlatrd.f +++ b/src/lapack/double/zlatrd.f @@ -15,7 +15,7 @@ * .. * c -* $Id: zlatrd.f,v 1.2 1997-03-17 21:26:06 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zlatrs.f b/src/lapack/double/zlatrs.f index e7c203d9a1..40f67e9920 100644 --- a/src/lapack/double/zlatrs.f +++ b/src/lapack/double/zlatrs.f @@ -1,6 +1,6 @@ SUBROUTINE ZLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) -C$Id: zlatrs.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zpotf2.f b/src/lapack/double/zpotf2.f index 5196078d89..412c986e1a 100644 --- a/src/lapack/double/zpotf2.f +++ b/src/lapack/double/zpotf2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: zpotf2.f,v 1.2 1997-03-17 21:26:14 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zpotrf.f b/src/lapack/double/zpotrf.f index 0f2c13e619..1f5300b13e 100644 --- a/src/lapack/double/zpotrf.f +++ b/src/lapack/double/zpotrf.f @@ -14,7 +14,7 @@ * .. * c -* $Id: zpotrf.f,v 1.2 1997-03-17 21:26:16 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zspcon.f b/src/lapack/double/zspcon.f index a18de77da9..a2a8f8e532 100644 --- a/src/lapack/double/zspcon.f +++ b/src/lapack/double/zspcon.f @@ -1,6 +1,6 @@ SUBROUTINE ZSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) c -c $Id: zspcon.f,v 1.1 2000-04-18 00:22:39 edo Exp $ +c $Id$ c * * -- LAPACK routine (version 3.0) -- diff --git a/src/lapack/double/zspmv.f b/src/lapack/double/zspmv.f index 5bac2ef2cd..0e09641136 100644 --- a/src/lapack/double/zspmv.f +++ b/src/lapack/double/zspmv.f @@ -1,6 +1,6 @@ SUBROUTINE ZSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) c -c $Id: zspmv.f,v 1.1 2000-04-18 00:22:39 edo Exp $ +c $Id$ c * * -- LAPACK auxiliary routine (version 3.0) -- diff --git a/src/lapack/double/zspr.f b/src/lapack/double/zspr.f index 0afd97b2cc..9fe4938111 100644 --- a/src/lapack/double/zspr.f +++ b/src/lapack/double/zspr.f @@ -1,6 +1,6 @@ SUBROUTINE ZSPR( UPLO, N, ALPHA, X, INCX, AP ) c -c $Id: zspr.f,v 1.2 2000-10-25 22:50:12 windus Exp $ +c $Id$ c * * -- LAPACK auxiliary routine (version 3.0) -- diff --git a/src/lapack/double/zsprfs.f b/src/lapack/double/zsprfs.f index 7a1b0c4fcb..fbf4359685 100644 --- a/src/lapack/double/zsprfs.f +++ b/src/lapack/double/zsprfs.f @@ -1,7 +1,7 @@ SUBROUTINE ZSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) c -c $Id: zsprfs.f,v 1.1 2000-04-18 00:22:39 edo Exp $ +c $Id$ c * * -- LAPACK routine (version 3.0) -- diff --git a/src/lapack/double/zspsvx.f b/src/lapack/double/zspsvx.f index f50f3acd36..df25636e94 100644 --- a/src/lapack/double/zspsvx.f +++ b/src/lapack/double/zspsvx.f @@ -1,7 +1,7 @@ SUBROUTINE ZSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) c -c $Id: zspsvx.f,v 1.1 2000-04-18 00:22:39 edo Exp $ +c $Id$ c * * -- LAPACK driver routine (version 3.0) -- diff --git a/src/lapack/double/zsptrf.f b/src/lapack/double/zsptrf.f index ea78fe475e..a107de2963 100644 --- a/src/lapack/double/zsptrf.f +++ b/src/lapack/double/zsptrf.f @@ -1,6 +1,6 @@ SUBROUTINE ZSPTRF( UPLO, N, AP, IPIV, INFO ) c -c $Id: zsptrf.f,v 1.2 2000-10-25 22:50:12 windus Exp $ +c $Id$ c * * -- LAPACK routine (version 3.0) -- diff --git a/src/lapack/double/zsptrs.f b/src/lapack/double/zsptrs.f index c6b9536c41..830246cd0f 100644 --- a/src/lapack/double/zsptrs.f +++ b/src/lapack/double/zsptrs.f @@ -1,6 +1,6 @@ SUBROUTINE ZSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) c -c $Id: zsptrs.f,v 1.1 2000-04-18 00:22:40 edo Exp $ +c $Id$ c * * -- LAPACK routine (version 3.0) -- diff --git a/src/lapack/double/zsteqr.f b/src/lapack/double/zsteqr.f index b5d68cbc2c..84a02df3f8 100644 --- a/src/lapack/double/zsteqr.f +++ b/src/lapack/double/zsteqr.f @@ -15,7 +15,7 @@ * .. * c -* $Id: zsteqr.f,v 1.2 1997-03-17 21:26:17 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/ztrevc.f b/src/lapack/double/ztrevc.f index 4474755036..f0b33f4be4 100644 --- a/src/lapack/double/ztrevc.f +++ b/src/lapack/double/ztrevc.f @@ -1,6 +1,6 @@ SUBROUTINE ZTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, RWORK, INFO ) -C$Id: ztrevc.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zung2l.f b/src/lapack/double/zung2l.f index 5ebb6daa3b..f56939d392 100644 --- a/src/lapack/double/zung2l.f +++ b/src/lapack/double/zung2l.f @@ -13,7 +13,7 @@ * .. * c -* $Id: zung2l.f,v 1.2 1997-03-17 21:26:18 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zung2r.f b/src/lapack/double/zung2r.f index 5cc87078c8..43f889e289 100644 --- a/src/lapack/double/zung2r.f +++ b/src/lapack/double/zung2r.f @@ -13,7 +13,7 @@ * .. * c -* $Id: zung2r.f,v 1.2 1997-03-17 21:26:21 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zunghr.f b/src/lapack/double/zunghr.f index 502e08f84e..733c2034fe 100644 --- a/src/lapack/double/zunghr.f +++ b/src/lapack/double/zunghr.f @@ -1,5 +1,5 @@ SUBROUTINE ZUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -C$Id: zunghr.f,v 1.1 2002-01-19 05:31:00 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/double/zungql.f b/src/lapack/double/zungql.f index 04eea2216c..ccdf808ab0 100644 --- a/src/lapack/double/zungql.f +++ b/src/lapack/double/zungql.f @@ -13,7 +13,7 @@ * .. * c -* $Id: zungql.f,v 1.2 1997-03-17 21:26:23 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zungqr.f b/src/lapack/double/zungqr.f index bd30aee297..469bf57759 100644 --- a/src/lapack/double/zungqr.f +++ b/src/lapack/double/zungqr.f @@ -13,7 +13,7 @@ * .. * c -* $Id: zungqr.f,v 1.3 2000-10-25 22:50:12 windus Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/double/zungtr.f b/src/lapack/double/zungtr.f index 5f603b2b52..6488e04ed4 100644 --- a/src/lapack/double/zungtr.f +++ b/src/lapack/double/zungtr.f @@ -14,7 +14,7 @@ * .. * c -* $Id: zungtr.f,v 1.2 1997-03-17 21:26:26 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/cgebak.f b/src/lapack/single/cgebak.f index ed8039dd23..7ad165c9dd 100644 --- a/src/lapack/single/cgebak.f +++ b/src/lapack/single/cgebak.f @@ -1,6 +1,6 @@ SUBROUTINE CGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) -C$Id: cgebak.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/cgebal.f b/src/lapack/single/cgebal.f index b62d3379d6..52cb539859 100644 --- a/src/lapack/single/cgebal.f +++ b/src/lapack/single/cgebal.f @@ -1,5 +1,5 @@ SUBROUTINE CGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -C$Id: cgebal.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/cgeev.f b/src/lapack/single/cgeev.f index 39b92c2a84..ed49e96100 100644 --- a/src/lapack/single/cgeev.f +++ b/src/lapack/single/cgeev.f @@ -1,6 +1,6 @@ SUBROUTINE CGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LDVR, $ WORK, LWORK, RWORK, INFO ) -C$Id: cgeev.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK driver routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/cgehd2.f b/src/lapack/single/cgehd2.f index 8f2ea86f6c..9b2e3e0979 100644 --- a/src/lapack/single/cgehd2.f +++ b/src/lapack/single/cgehd2.f @@ -1,5 +1,5 @@ SUBROUTINE CGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) -C$Id: cgehd2.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/cgehrd.f b/src/lapack/single/cgehrd.f index 7afe2c4786..d729353759 100644 --- a/src/lapack/single/cgehrd.f +++ b/src/lapack/single/cgehrd.f @@ -1,5 +1,5 @@ SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -C$Id: cgehrd.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/cheev.f b/src/lapack/single/cheev.f index 97ffc80449..ef84a74757 100644 --- a/src/lapack/single/cheev.f +++ b/src/lapack/single/cheev.f @@ -16,7 +16,7 @@ * .. * c -* $Id: cheev.f,v 1.1 1997-03-17 21:43:48 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/chegs2.f b/src/lapack/single/chegs2.f index cef55a13b3..da5a44893b 100644 --- a/src/lapack/single/chegs2.f +++ b/src/lapack/single/chegs2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: chegs2.f,v 1.1 1997-03-17 21:43:50 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/chegst.f b/src/lapack/single/chegst.f index 4a06c6a666..f7a4cc09f3 100644 --- a/src/lapack/single/chegst.f +++ b/src/lapack/single/chegst.f @@ -14,7 +14,7 @@ * .. * c -* $Id: chegst.f,v 1.1 1997-03-17 21:43:52 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/chegv.f b/src/lapack/single/chegv.f index ab8cc968ac..65131a4711 100644 --- a/src/lapack/single/chegv.f +++ b/src/lapack/single/chegv.f @@ -16,7 +16,7 @@ * .. * c -* $Id: chegv.f,v 1.1 1997-03-17 21:43:55 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/chetd2.f b/src/lapack/single/chetd2.f index e8a403a53b..32409e1ff1 100644 --- a/src/lapack/single/chetd2.f +++ b/src/lapack/single/chetd2.f @@ -15,7 +15,7 @@ * .. * c -* $Id: chetd2.f,v 1.1 1997-03-17 21:43:57 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/chetrd.f b/src/lapack/single/chetrd.f index 5d5bd3dbb8..fa367eb0ec 100644 --- a/src/lapack/single/chetrd.f +++ b/src/lapack/single/chetrd.f @@ -15,7 +15,7 @@ * .. * c -* $Id: chetrd.f,v 1.1 1997-03-17 21:43:59 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/chseqr.f b/src/lapack/single/chseqr.f index b11535feff..6daa189a88 100644 --- a/src/lapack/single/chseqr.f +++ b/src/lapack/single/chseqr.f @@ -1,6 +1,6 @@ SUBROUTINE CHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, $ WORK, LWORK, INFO ) -C$Id: chseqr.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/clacgv.f b/src/lapack/single/clacgv.f index 342f6f54c9..8ee464a7e6 100644 --- a/src/lapack/single/clacgv.f +++ b/src/lapack/single/clacgv.f @@ -13,7 +13,7 @@ * .. * c -* $Id: clacgv.f,v 1.1 1997-03-17 21:44:01 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/clacpy.f b/src/lapack/single/clacpy.f index dce07746d9..dab06ea1e9 100644 --- a/src/lapack/single/clacpy.f +++ b/src/lapack/single/clacpy.f @@ -1,5 +1,5 @@ SUBROUTINE CLACPY( UPLO, M, N, A, LDA, B, LDB ) -C$Id: clacpy.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/cladiv.f b/src/lapack/single/cladiv.f index f005798646..0b926a3e0a 100644 --- a/src/lapack/single/cladiv.f +++ b/src/lapack/single/cladiv.f @@ -10,7 +10,7 @@ * .. * c -* $Id: cladiv.f,v 1.1 1997-03-17 21:44:03 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/clahqr.f b/src/lapack/single/clahqr.f index bf9282b6d7..9ec5f5f35a 100644 --- a/src/lapack/single/clahqr.f +++ b/src/lapack/single/clahqr.f @@ -1,6 +1,6 @@ SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, INFO ) -C$Id: clahqr.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/clahrd.f b/src/lapack/single/clahrd.f index 96a3b612d0..d58ad2daf5 100644 --- a/src/lapack/single/clahrd.f +++ b/src/lapack/single/clahrd.f @@ -1,5 +1,5 @@ SUBROUTINE CLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -C$Id: clahrd.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/clange.f b/src/lapack/single/clange.f index 386e2068a2..8662ef4261 100644 --- a/src/lapack/single/clange.f +++ b/src/lapack/single/clange.f @@ -1,5 +1,5 @@ REAL FUNCTION CLANGE( NORM, M, N, A, LDA, WORK ) -C$Id: clange.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/clanhe.f b/src/lapack/single/clanhe.f index 2962d999d2..91038445f0 100644 --- a/src/lapack/single/clanhe.f +++ b/src/lapack/single/clanhe.f @@ -15,7 +15,7 @@ * .. * c -* $Id: clanhe.f,v 1.1 1997-03-17 21:44:04 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/clanhs.f b/src/lapack/single/clanhs.f index 3e71f2e131..024bd1ac3f 100644 --- a/src/lapack/single/clanhs.f +++ b/src/lapack/single/clanhs.f @@ -1,5 +1,5 @@ REAL FUNCTION CLANHS( NORM, N, A, LDA, WORK ) -C$Id: clanhs.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/clarf.f b/src/lapack/single/clarf.f index 82bf1f7305..6915503267 100644 --- a/src/lapack/single/clarf.f +++ b/src/lapack/single/clarf.f @@ -15,7 +15,7 @@ * .. * c -* $Id: clarf.f,v 1.1 1997-03-17 21:44:05 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/clarfb.f b/src/lapack/single/clarfb.f index b214e58015..8656751fa9 100644 --- a/src/lapack/single/clarfb.f +++ b/src/lapack/single/clarfb.f @@ -16,7 +16,7 @@ * .. * c -* $Id: clarfb.f,v 1.1 1997-03-17 21:44:06 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/clarfg.f b/src/lapack/single/clarfg.f index a89635f683..11cb6bb192 100644 --- a/src/lapack/single/clarfg.f +++ b/src/lapack/single/clarfg.f @@ -14,7 +14,7 @@ * .. * c -* $Id: clarfg.f,v 1.1 1997-03-17 21:44:07 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/clarft.f b/src/lapack/single/clarft.f index 0dc53f5030..b4624e31c9 100644 --- a/src/lapack/single/clarft.f +++ b/src/lapack/single/clarft.f @@ -14,7 +14,7 @@ * .. * c -* $Id: clarft.f,v 1.1 1997-03-17 21:44:08 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/clarfx.f b/src/lapack/single/clarfx.f index 9b49413a2b..e9a1fe8776 100644 --- a/src/lapack/single/clarfx.f +++ b/src/lapack/single/clarfx.f @@ -1,5 +1,5 @@ SUBROUTINE CLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) -C$Id: clarfx.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/clascl.f b/src/lapack/single/clascl.f index f3308f72f3..9e0f25de6a 100644 --- a/src/lapack/single/clascl.f +++ b/src/lapack/single/clascl.f @@ -15,7 +15,7 @@ * .. * c -* $Id: clascl.f,v 1.1 1997-03-17 21:44:10 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/claset.f b/src/lapack/single/claset.f index e20def46cc..d3454edfc4 100644 --- a/src/lapack/single/claset.f +++ b/src/lapack/single/claset.f @@ -15,7 +15,7 @@ * .. * c -* $Id: claset.f,v 1.1 1997-03-17 21:44:13 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/clasr.f b/src/lapack/single/clasr.f index ff2ffbdd82..6478a2b567 100644 --- a/src/lapack/single/clasr.f +++ b/src/lapack/single/clasr.f @@ -15,7 +15,7 @@ * .. * c -* $Id: clasr.f,v 1.1 1997-03-17 21:44:16 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/classq.f b/src/lapack/single/classq.f index c38f3719d0..4a3ca922a8 100644 --- a/src/lapack/single/classq.f +++ b/src/lapack/single/classq.f @@ -14,7 +14,7 @@ * .. * c -* $Id: classq.f,v 1.1 1997-03-17 21:44:18 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/claswp.f b/src/lapack/single/claswp.f index ba7e75923c..550bfa450b 100644 --- a/src/lapack/single/claswp.f +++ b/src/lapack/single/claswp.f @@ -1,5 +1,5 @@ SUBROUTINE CLASWP( N, A, LDA, K1, K2, IPIV, INCX ) -* $Id: claswp.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +* $Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/clatrd.f b/src/lapack/single/clatrd.f index 185b08c84a..3cb32fcaec 100644 --- a/src/lapack/single/clatrd.f +++ b/src/lapack/single/clatrd.f @@ -15,7 +15,7 @@ * .. * c -* $Id: clatrd.f,v 1.1 1997-03-17 21:44:19 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/clatrs.f b/src/lapack/single/clatrs.f index 998dab5e43..beb2a4d65e 100644 --- a/src/lapack/single/clatrs.f +++ b/src/lapack/single/clatrs.f @@ -1,6 +1,6 @@ SUBROUTINE CLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) -C$Id: clatrs.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/cpotf2.f b/src/lapack/single/cpotf2.f index 2d4a1e0673..58a160987e 100644 --- a/src/lapack/single/cpotf2.f +++ b/src/lapack/single/cpotf2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: cpotf2.f,v 1.1 1997-03-17 21:44:20 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/cpotrf.f b/src/lapack/single/cpotrf.f index 5048494795..de2fe19441 100644 --- a/src/lapack/single/cpotrf.f +++ b/src/lapack/single/cpotrf.f @@ -14,7 +14,7 @@ * .. * c -* $Id: cpotrf.f,v 1.1 1997-03-17 21:44:21 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/csteqr.f b/src/lapack/single/csteqr.f index 8464c7fe85..8b401d1ef8 100644 --- a/src/lapack/single/csteqr.f +++ b/src/lapack/single/csteqr.f @@ -15,7 +15,7 @@ * .. * c -* $Id: csteqr.f,v 1.1 1997-03-17 21:44:22 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ctrevc.f b/src/lapack/single/ctrevc.f index 0a1d14afb0..8c73296d86 100644 --- a/src/lapack/single/ctrevc.f +++ b/src/lapack/single/ctrevc.f @@ -1,6 +1,6 @@ SUBROUTINE CTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, RWORK, INFO ) -C$Id: ctrevc.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/cung2l.f b/src/lapack/single/cung2l.f index abc35da6c5..dbfa16a962 100644 --- a/src/lapack/single/cung2l.f +++ b/src/lapack/single/cung2l.f @@ -13,7 +13,7 @@ * .. * c -* $Id: cung2l.f,v 1.1 1997-03-17 21:44:25 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/cung2r.f b/src/lapack/single/cung2r.f index 3769b195eb..be7d72240d 100644 --- a/src/lapack/single/cung2r.f +++ b/src/lapack/single/cung2r.f @@ -13,7 +13,7 @@ * .. * c -* $Id: cung2r.f,v 1.1 1997-03-17 21:44:26 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/cunghr.f b/src/lapack/single/cunghr.f index c6ac547b7e..42b018a3ef 100644 --- a/src/lapack/single/cunghr.f +++ b/src/lapack/single/cunghr.f @@ -1,5 +1,5 @@ SUBROUTINE CUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -C$Id: cunghr.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/cungql.f b/src/lapack/single/cungql.f index 48a9b2787b..619d1cdc13 100644 --- a/src/lapack/single/cungql.f +++ b/src/lapack/single/cungql.f @@ -13,7 +13,7 @@ * .. * c -* $Id: cungql.f,v 1.1 1997-03-17 21:44:29 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/cungqr.f b/src/lapack/single/cungqr.f index 8b902a2160..b575cfea4c 100644 --- a/src/lapack/single/cungqr.f +++ b/src/lapack/single/cungqr.f @@ -13,7 +13,7 @@ * .. * c -* $Id: cungqr.f,v 1.1 1997-03-17 21:44:31 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/cungtr.f b/src/lapack/single/cungtr.f index edec06b6da..9001bfc01c 100644 --- a/src/lapack/single/cungtr.f +++ b/src/lapack/single/cungtr.f @@ -14,7 +14,7 @@ * .. * c -* $Id: cungtr.f,v 1.1 1997-03-17 21:44:33 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ieeeck.f b/src/lapack/single/ieeeck.f index 983e859b8e..cd87770e2e 100644 --- a/src/lapack/single/ieeeck.f +++ b/src/lapack/single/ieeeck.f @@ -1,5 +1,5 @@ INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) -* $Id: ieeeck.f,v 1.1 2004-11-16 23:03:46 edo Exp $ +* $Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/ilaenv.f b/src/lapack/single/ilaenv.f index 5b4838542b..03807d0be5 100644 --- a/src/lapack/single/ilaenv.f +++ b/src/lapack/single/ilaenv.f @@ -1,6 +1,6 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, $ N4 ) -* $Id: ilaenv.f,v 1.4 2004-11-16 23:03:46 edo Exp $ +* $Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/lsamen.f b/src/lapack/single/lsamen.f index f70937e52f..315d496596 100644 --- a/src/lapack/single/lsamen.f +++ b/src/lapack/single/lsamen.f @@ -11,7 +11,7 @@ * .. * c -* $Id: lsamen.f,v 1.2 1997-03-17 21:26:30 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sbdsqr.f b/src/lapack/single/sbdsqr.f index 0d3a60c17d..31c84871f0 100644 --- a/src/lapack/single/sbdsqr.f +++ b/src/lapack/single/sbdsqr.f @@ -16,7 +16,7 @@ * .. * c -* $Id: sbdsqr.f,v 1.3 1997-03-17 21:26:32 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sgebak.f b/src/lapack/single/sgebak.f index b7aa9ade17..9eef70db6f 100644 --- a/src/lapack/single/sgebak.f +++ b/src/lapack/single/sgebak.f @@ -1,6 +1,6 @@ SUBROUTINE SGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) -C$Id: sgebak.f,v 1.1 2004-05-14 15:43:08 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/sgebal.f b/src/lapack/single/sgebal.f index 9e60ea909f..2d90ab8a8c 100644 --- a/src/lapack/single/sgebal.f +++ b/src/lapack/single/sgebal.f @@ -1,5 +1,5 @@ SUBROUTINE SGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -C$Id: sgebal.f,v 1.1 2004-05-14 15:43:08 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/sgebd2.f b/src/lapack/single/sgebd2.f index 8794750a30..5a6199058a 100644 --- a/src/lapack/single/sgebd2.f +++ b/src/lapack/single/sgebd2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: sgebd2.f,v 1.3 1997-03-17 21:26:33 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sgebrd.f b/src/lapack/single/sgebrd.f index 6757db013f..53471b279d 100644 --- a/src/lapack/single/sgebrd.f +++ b/src/lapack/single/sgebrd.f @@ -15,7 +15,7 @@ * .. * c -* $Id: sgebrd.f,v 1.3 1997-03-17 21:26:36 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sgehrd.f b/src/lapack/single/sgehrd.f index 0ef3abad3f..eaaaf503bd 100644 --- a/src/lapack/single/sgehrd.f +++ b/src/lapack/single/sgehrd.f @@ -1,5 +1,5 @@ SUBROUTINE SGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -C$Id: sgehrd.f,v 1.1 2004-05-14 15:43:08 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/sgelq2.f b/src/lapack/single/sgelq2.f index 28ca53ff1f..4fe085420d 100644 --- a/src/lapack/single/sgelq2.f +++ b/src/lapack/single/sgelq2.f @@ -13,7 +13,7 @@ * .. * c -* $Id: sgelq2.f,v 1.3 1997-03-17 21:26:38 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sgelqf.f b/src/lapack/single/sgelqf.f index efff33ae9a..b4af3cdf72 100644 --- a/src/lapack/single/sgelqf.f +++ b/src/lapack/single/sgelqf.f @@ -13,7 +13,7 @@ * .. * c -* $Id: sgelqf.f,v 1.3 1997-03-17 21:26:40 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sgeqr2.f b/src/lapack/single/sgeqr2.f index e097b0aedf..a0caf3bb46 100644 --- a/src/lapack/single/sgeqr2.f +++ b/src/lapack/single/sgeqr2.f @@ -13,7 +13,7 @@ * .. * c -* $Id: sgeqr2.f,v 1.3 1997-03-17 21:26:41 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sgeqrf.f b/src/lapack/single/sgeqrf.f index 7e05d1dbab..ec01b64848 100644 --- a/src/lapack/single/sgeqrf.f +++ b/src/lapack/single/sgeqrf.f @@ -13,7 +13,7 @@ * .. * c -* $Id: sgeqrf.f,v 1.3 1997-03-17 21:26:42 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sgesv.f b/src/lapack/single/sgesv.f index fdd4865689..be535f0e21 100644 --- a/src/lapack/single/sgesv.f +++ b/src/lapack/single/sgesv.f @@ -14,7 +14,7 @@ * .. * c -* $Id: sgesv.f,v 1.3 1997-03-17 21:26:45 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sgesvd.f b/src/lapack/single/sgesvd.f index 3c45ed2e5f..868bb9fe54 100644 --- a/src/lapack/single/sgesvd.f +++ b/src/lapack/single/sgesvd.f @@ -16,7 +16,7 @@ * .. * c -* $Id: sgesvd.f,v 1.3 1997-03-17 21:26:48 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sgetf2.f b/src/lapack/single/sgetf2.f index 35c64e4144..152432fb9f 100644 --- a/src/lapack/single/sgetf2.f +++ b/src/lapack/single/sgetf2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: sgetf2.f,v 1.3 1997-03-17 21:26:51 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sgetrf.f b/src/lapack/single/sgetrf.f index b1fb86479d..4e022c40a8 100644 --- a/src/lapack/single/sgetrf.f +++ b/src/lapack/single/sgetrf.f @@ -14,7 +14,7 @@ * .. * c -* $Id: sgetrf.f,v 1.3 1997-03-17 21:26:52 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sgetrs.f b/src/lapack/single/sgetrs.f index e83ecb13fb..82b32dc0a2 100644 --- a/src/lapack/single/sgetrs.f +++ b/src/lapack/single/sgetrs.f @@ -15,7 +15,7 @@ * .. * c -* $Id: sgetrs.f,v 1.3 1997-03-17 21:26:53 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/shseqr.f b/src/lapack/single/shseqr.f index 828a812f17..ff4a1ea9e4 100644 --- a/src/lapack/single/shseqr.f +++ b/src/lapack/single/shseqr.f @@ -1,6 +1,6 @@ SUBROUTINE SHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, $ LDZ, WORK, LWORK, INFO ) -C$Id: shseqr.f,v 1.1 2004-05-14 15:43:08 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/slabad.f b/src/lapack/single/slabad.f index 2d9ee834c7..e2bb1dc842 100644 --- a/src/lapack/single/slabad.f +++ b/src/lapack/single/slabad.f @@ -1,5 +1,5 @@ SUBROUTINE SLABAD( SMALL, LARGE ) -C$Id: slabad.f,v 1.1 2002-01-19 05:31:01 edo Exp $ +C$Id$ * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/slabrd.f b/src/lapack/single/slabrd.f index 7d0f782b46..8eca43b821 100644 --- a/src/lapack/single/slabrd.f +++ b/src/lapack/single/slabrd.f @@ -15,7 +15,7 @@ * .. * c -* $Id: slabrd.f,v 1.3 1997-03-17 21:26:56 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slacon.f b/src/lapack/single/slacon.f index 76bae245d2..5964799916 100644 --- a/src/lapack/single/slacon.f +++ b/src/lapack/single/slacon.f @@ -15,7 +15,7 @@ * .. * c -* $Id: slacon.f,v 1.3 1997-03-17 21:26:58 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slacpy.f b/src/lapack/single/slacpy.f index 7598ea77fb..9480f14455 100644 --- a/src/lapack/single/slacpy.f +++ b/src/lapack/single/slacpy.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slacpy.f,v 1.3 1997-03-17 21:27:00 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sladiv.f b/src/lapack/single/sladiv.f index bb36868cb8..ce29512e1e 100644 --- a/src/lapack/single/sladiv.f +++ b/src/lapack/single/sladiv.f @@ -10,7 +10,7 @@ * .. * c -* $Id: sladiv.f,v 1.1 1997-03-17 21:43:43 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slae2.f b/src/lapack/single/slae2.f index 0c55807fca..3fcb35ede2 100644 --- a/src/lapack/single/slae2.f +++ b/src/lapack/single/slae2.f @@ -10,7 +10,7 @@ * .. * c -* $Id: slae2.f,v 1.2 1997-03-17 21:27:02 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slaev2.f b/src/lapack/single/slaev2.f index aaabe8af03..1fa1e695aa 100644 --- a/src/lapack/single/slaev2.f +++ b/src/lapack/single/slaev2.f @@ -10,7 +10,7 @@ * .. * c -* $Id: slaev2.f,v 1.3 1997-03-17 21:27:04 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slagtf.f b/src/lapack/single/slagtf.f index 8685387db2..a8680d7b3e 100644 --- a/src/lapack/single/slagtf.f +++ b/src/lapack/single/slagtf.f @@ -15,7 +15,7 @@ * .. * c -* $Id: slagtf.f,v 1.3 1997-03-17 21:27:06 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slagts.f b/src/lapack/single/slagts.f index 8ec2f1cec7..ac1d290f52 100644 --- a/src/lapack/single/slagts.f +++ b/src/lapack/single/slagts.f @@ -15,7 +15,7 @@ * .. * c -* $Id: slagts.f,v 1.3 1997-03-17 21:27:08 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slamch.f b/src/lapack/single/slamch.f index 52bcb76a6d..73d5aa08f9 100644 --- a/src/lapack/single/slamch.f +++ b/src/lapack/single/slamch.f @@ -10,7 +10,7 @@ * .. * c -* $Id: slamch.f,v 1.3 1997-03-17 21:27:09 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slange.f b/src/lapack/single/slange.f index acd4a33dac..ca516bd6ff 100644 --- a/src/lapack/single/slange.f +++ b/src/lapack/single/slange.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slange.f,v 1.3 1997-03-17 21:27:12 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slansp.f b/src/lapack/single/slansp.f index 76fbd42a03..c3614b8d06 100644 --- a/src/lapack/single/slansp.f +++ b/src/lapack/single/slansp.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slansp.f,v 1.3 1997-03-17 21:27:15 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slanst.f b/src/lapack/single/slanst.f index dd027c0503..4c7c37e26e 100644 --- a/src/lapack/single/slanst.f +++ b/src/lapack/single/slanst.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slanst.f,v 1.1 1997-03-17 21:43:44 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slansy.f b/src/lapack/single/slansy.f index 3eb9408520..4ccb33cb13 100644 --- a/src/lapack/single/slansy.f +++ b/src/lapack/single/slansy.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slansy.f,v 1.2 1997-03-17 21:27:17 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slapy2.f b/src/lapack/single/slapy2.f index 7968e6553c..868d800d63 100644 --- a/src/lapack/single/slapy2.f +++ b/src/lapack/single/slapy2.f @@ -10,7 +10,7 @@ * .. * c -* $Id: slapy2.f,v 1.3 1997-03-17 21:27:20 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slapy3.f b/src/lapack/single/slapy3.f index 1861875cd7..0efa39588d 100644 --- a/src/lapack/single/slapy3.f +++ b/src/lapack/single/slapy3.f @@ -10,7 +10,7 @@ * .. * c -* $Id: slapy3.f,v 1.1 1997-03-17 21:43:45 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slarf.f b/src/lapack/single/slarf.f index 88f703b099..a88a0d84b1 100644 --- a/src/lapack/single/slarf.f +++ b/src/lapack/single/slarf.f @@ -15,7 +15,7 @@ * .. * c -* $Id: slarf.f,v 1.3 1997-03-17 21:27:21 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slarfb.f b/src/lapack/single/slarfb.f index 7ec174747f..d0f33233d4 100644 --- a/src/lapack/single/slarfb.f +++ b/src/lapack/single/slarfb.f @@ -16,7 +16,7 @@ * .. * c -* $Id: slarfb.f,v 1.3 1997-03-17 21:27:22 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slarfg.f b/src/lapack/single/slarfg.f index 1f29406723..b5c347689c 100644 --- a/src/lapack/single/slarfg.f +++ b/src/lapack/single/slarfg.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slarfg.f,v 1.3 1997-03-17 21:27:25 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slarft.f b/src/lapack/single/slarft.f index 901426590c..d96c3d1395 100644 --- a/src/lapack/single/slarft.f +++ b/src/lapack/single/slarft.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slarft.f,v 1.3 1997-03-17 21:27:27 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slarnv.f b/src/lapack/single/slarnv.f index 1cba301e90..44e6cb014b 100644 --- a/src/lapack/single/slarnv.f +++ b/src/lapack/single/slarnv.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slarnv.f,v 1.3 1997-03-17 21:27:29 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slartg.f b/src/lapack/single/slartg.f index 071a4e95bc..12ae51df53 100644 --- a/src/lapack/single/slartg.f +++ b/src/lapack/single/slartg.f @@ -10,7 +10,7 @@ * .. * c -* $Id: slartg.f,v 1.3 1997-03-17 21:27:31 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slaruv.f b/src/lapack/single/slaruv.f index c761b62944..a4f1ea225e 100644 --- a/src/lapack/single/slaruv.f +++ b/src/lapack/single/slaruv.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slaruv.f,v 1.3 1997-03-17 21:27:33 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slas2.f b/src/lapack/single/slas2.f index 25bd570d90..7734feba1b 100644 --- a/src/lapack/single/slas2.f +++ b/src/lapack/single/slas2.f @@ -10,7 +10,7 @@ * .. * c -* $Id: slas2.f,v 1.3 1997-03-17 21:27:34 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slascl.f b/src/lapack/single/slascl.f index c9ff26ebcc..3bea2454d9 100644 --- a/src/lapack/single/slascl.f +++ b/src/lapack/single/slascl.f @@ -15,7 +15,7 @@ * .. * c -* $Id: slascl.f,v 1.3 1997-03-17 21:27:35 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slaset.f b/src/lapack/single/slaset.f index b74148f8c5..f46e095eaf 100644 --- a/src/lapack/single/slaset.f +++ b/src/lapack/single/slaset.f @@ -15,7 +15,7 @@ * .. * c -* $Id: slaset.f,v 1.3 1997-03-17 21:27:38 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slasq1.f b/src/lapack/single/slasq1.f index d18b881300..022ce2e959 100644 --- a/src/lapack/single/slasq1.f +++ b/src/lapack/single/slasq1.f @@ -1,4 +1,4 @@ -* $Id: slasq1.f,v 1.1 2001-10-09 00:19:29 edo Exp $ +* $Id$ SUBROUTINE SLASQ1( N, D, E, WORK, INFO ) * * -- LAPACK routine (instrumented to count ops, version 3.0) -- diff --git a/src/lapack/single/slasq2.f b/src/lapack/single/slasq2.f index 6416fe9efe..f64b445ac2 100644 --- a/src/lapack/single/slasq2.f +++ b/src/lapack/single/slasq2.f @@ -1,4 +1,4 @@ -* $Id: slasq2.f,v 1.1 2001-10-09 00:19:29 edo Exp $ +* $Id$ SUBROUTINE SLASQ2( N, Z, INFO ) * * -- LAPACK routine (instrumented to count ops, version 3.0) -- diff --git a/src/lapack/single/slasq3.f b/src/lapack/single/slasq3.f index 812b8a4eed..41b59377d6 100644 --- a/src/lapack/single/slasq3.f +++ b/src/lapack/single/slasq3.f @@ -1,4 +1,4 @@ -* $Id: slasq3.f,v 1.1 2001-10-09 00:19:29 edo Exp $ +* $Id$ SUBROUTINE SLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, $ ITER, NDIV, IEEE ) * diff --git a/src/lapack/single/slasq4.f b/src/lapack/single/slasq4.f index a6dad7bd41..1aaa6f55ff 100644 --- a/src/lapack/single/slasq4.f +++ b/src/lapack/single/slasq4.f @@ -1,4 +1,4 @@ -* $Id: slasq4.f,v 1.1 2001-10-09 00:19:29 edo Exp $ +* $Id$ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE ) * diff --git a/src/lapack/single/slasq5.f b/src/lapack/single/slasq5.f index 7d1c40c134..c4b10cdfa3 100644 --- a/src/lapack/single/slasq5.f +++ b/src/lapack/single/slasq5.f @@ -1,4 +1,4 @@ -* $Id: slasq5.f,v 1.1 2001-10-09 00:19:29 edo Exp $ +* $Id$ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, DMIN, DMIN1, DMIN2, DN, $ DNM1, DNM2, IEEE ) * diff --git a/src/lapack/single/slasr.f b/src/lapack/single/slasr.f index 2069808a68..fadb7be5c6 100644 --- a/src/lapack/single/slasr.f +++ b/src/lapack/single/slasr.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slasr.f,v 1.3 1997-03-17 21:27:40 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slasrt.f b/src/lapack/single/slasrt.f index 85b82249b6..ed0a34001c 100644 --- a/src/lapack/single/slasrt.f +++ b/src/lapack/single/slasrt.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slasrt.f,v 1.1 1997-03-17 21:43:46 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slassq.f b/src/lapack/single/slassq.f index d7633423bf..8b67bcf0b2 100644 --- a/src/lapack/single/slassq.f +++ b/src/lapack/single/slassq.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slassq.f,v 1.3 1997-03-17 21:27:42 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slasv2.f b/src/lapack/single/slasv2.f index 007a7eb673..106e7ead26 100644 --- a/src/lapack/single/slasv2.f +++ b/src/lapack/single/slasv2.f @@ -10,7 +10,7 @@ * .. * c -* $Id: slasv2.f,v 1.3 1997-03-17 21:27:44 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slaswp.f b/src/lapack/single/slaswp.f index bed961dd75..282fd66e88 100644 --- a/src/lapack/single/slaswp.f +++ b/src/lapack/single/slaswp.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slaswp.f,v 1.3 1997-03-17 21:27:46 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slatrd.f b/src/lapack/single/slatrd.f index ec1176a3d3..a592d48bb4 100644 --- a/src/lapack/single/slatrd.f +++ b/src/lapack/single/slatrd.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slatrd.f,v 1.2 1997-03-17 21:27:49 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slauu2.f b/src/lapack/single/slauu2.f index 4b53b1dd83..32dc949556 100644 --- a/src/lapack/single/slauu2.f +++ b/src/lapack/single/slauu2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slauu2.f,v 1.3 1997-03-17 21:27:51 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/slauum.f b/src/lapack/single/slauum.f index ec5d517ed6..b3865c0cdd 100644 --- a/src/lapack/single/slauum.f +++ b/src/lapack/single/slauum.f @@ -14,7 +14,7 @@ * .. * c -* $Id: slauum.f,v 1.3 1997-03-17 21:27:53 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sorg2l.f b/src/lapack/single/sorg2l.f index e40facf1b5..f3658ec15c 100644 --- a/src/lapack/single/sorg2l.f +++ b/src/lapack/single/sorg2l.f @@ -13,7 +13,7 @@ * .. * c -* $Id: sorg2l.f,v 1.2 1997-03-17 21:27:55 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sorg2r.f b/src/lapack/single/sorg2r.f index 0187419014..7497cd5291 100644 --- a/src/lapack/single/sorg2r.f +++ b/src/lapack/single/sorg2r.f @@ -13,7 +13,7 @@ * .. * c -* $Id: sorg2r.f,v 1.3 1997-03-17 21:27:56 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sorgbr.f b/src/lapack/single/sorgbr.f index 72e7e1d204..37aa391e68 100644 --- a/src/lapack/single/sorgbr.f +++ b/src/lapack/single/sorgbr.f @@ -14,7 +14,7 @@ * .. * c -* $Id: sorgbr.f,v 1.3 1997-03-17 21:27:58 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sorghr.f b/src/lapack/single/sorghr.f index 204ab51596..1c4b69e5dd 100644 --- a/src/lapack/single/sorghr.f +++ b/src/lapack/single/sorghr.f @@ -1,5 +1,5 @@ SUBROUTINE SORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -C$Id: sorghr.f,v 1.1 2004-05-14 15:43:08 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/sorgl2.f b/src/lapack/single/sorgl2.f index 7bc84dd8b2..fdc838074d 100644 --- a/src/lapack/single/sorgl2.f +++ b/src/lapack/single/sorgl2.f @@ -13,7 +13,7 @@ * .. * c -* $Id: sorgl2.f,v 1.3 1997-03-17 21:28:01 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sorglq.f b/src/lapack/single/sorglq.f index df58400760..dde66129a2 100644 --- a/src/lapack/single/sorglq.f +++ b/src/lapack/single/sorglq.f @@ -13,7 +13,7 @@ * .. * c -* $Id: sorglq.f,v 1.3 1997-03-17 21:28:03 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sorgql.f b/src/lapack/single/sorgql.f index 5c3c5ada70..5dfe8b0549 100644 --- a/src/lapack/single/sorgql.f +++ b/src/lapack/single/sorgql.f @@ -13,7 +13,7 @@ * .. * c -* $Id: sorgql.f,v 1.2 1997-03-17 21:28:04 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sorgqr.f b/src/lapack/single/sorgqr.f index 027c2280c6..dee2bd9410 100644 --- a/src/lapack/single/sorgqr.f +++ b/src/lapack/single/sorgqr.f @@ -13,7 +13,7 @@ * .. * c -* $Id: sorgqr.f,v 1.3 1997-03-17 21:28:05 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sorgtr.f b/src/lapack/single/sorgtr.f index 09c7d4463b..a4be24c9d3 100644 --- a/src/lapack/single/sorgtr.f +++ b/src/lapack/single/sorgtr.f @@ -14,7 +14,7 @@ * .. * c -* $Id: sorgtr.f,v 1.2 1997-03-17 21:28:08 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sorm2r.f b/src/lapack/single/sorm2r.f index 2723757895..19bc514526 100644 --- a/src/lapack/single/sorm2r.f +++ b/src/lapack/single/sorm2r.f @@ -15,7 +15,7 @@ * .. * c -* $Id: sorm2r.f,v 1.3 1997-03-17 21:28:10 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sormbr.f b/src/lapack/single/sormbr.f index 84f92fd9e1..9edb86ba2a 100644 --- a/src/lapack/single/sormbr.f +++ b/src/lapack/single/sormbr.f @@ -16,7 +16,7 @@ * .. * c -* $Id: sormbr.f,v 1.3 1997-03-17 21:28:12 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sorml2.f b/src/lapack/single/sorml2.f index 0e4b6e13ae..a786a94653 100644 --- a/src/lapack/single/sorml2.f +++ b/src/lapack/single/sorml2.f @@ -15,7 +15,7 @@ * .. * c -* $Id: sorml2.f,v 1.3 1997-03-17 21:28:13 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sormlq.f b/src/lapack/single/sormlq.f index 654368ad95..25952d694c 100644 --- a/src/lapack/single/sormlq.f +++ b/src/lapack/single/sormlq.f @@ -16,7 +16,7 @@ * .. * c -* $Id: sormlq.f,v 1.3 1997-03-17 21:28:14 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sormqr.f b/src/lapack/single/sormqr.f index 1d1d4e4486..f8a18876df 100644 --- a/src/lapack/single/sormqr.f +++ b/src/lapack/single/sormqr.f @@ -16,7 +16,7 @@ * .. * c -* $Id: sormqr.f,v 1.3 1997-03-17 21:28:17 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/spotf2.f b/src/lapack/single/spotf2.f index 461d0d2edc..17a35a4c95 100644 --- a/src/lapack/single/spotf2.f +++ b/src/lapack/single/spotf2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: spotf2.f,v 1.3 1997-03-17 21:28:19 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/spotrf.f b/src/lapack/single/spotrf.f index c54cfa3c39..64da5e7466 100644 --- a/src/lapack/single/spotrf.f +++ b/src/lapack/single/spotrf.f @@ -14,7 +14,7 @@ * .. * c -* $Id: spotrf.f,v 1.3 1997-03-17 21:28:21 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/spotri.f b/src/lapack/single/spotri.f index 1105e7c62f..876b1412b4 100644 --- a/src/lapack/single/spotri.f +++ b/src/lapack/single/spotri.f @@ -14,7 +14,7 @@ * .. * c -* $Id: spotri.f,v 1.3 1997-03-17 21:28:23 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sspcon.f b/src/lapack/single/sspcon.f index a9c6d1e88f..0a58becadc 100644 --- a/src/lapack/single/sspcon.f +++ b/src/lapack/single/sspcon.f @@ -17,7 +17,7 @@ * .. * c -* $Id: sspcon.f,v 1.3 1997-03-17 21:28:24 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ssprfs.f b/src/lapack/single/ssprfs.f index 190a897bf7..a54ee94607 100644 --- a/src/lapack/single/ssprfs.f +++ b/src/lapack/single/ssprfs.f @@ -17,7 +17,7 @@ * .. * c -* $Id: ssprfs.f,v 1.3 1997-03-17 21:28:25 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/sspsvx.f b/src/lapack/single/sspsvx.f index 9fe4ffdd86..55dd6759dc 100644 --- a/src/lapack/single/sspsvx.f +++ b/src/lapack/single/sspsvx.f @@ -18,7 +18,7 @@ * .. * c -* $Id: sspsvx.f,v 1.3 1997-03-17 21:28:28 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ssptrf.f b/src/lapack/single/ssptrf.f index 520bd794e5..feed118135 100644 --- a/src/lapack/single/ssptrf.f +++ b/src/lapack/single/ssptrf.f @@ -15,7 +15,7 @@ * .. * c -* $Id: ssptrf.f,v 1.3 1997-03-17 21:28:30 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ssptrs.f b/src/lapack/single/ssptrs.f index c2b93b7ecc..cccdff6553 100644 --- a/src/lapack/single/ssptrs.f +++ b/src/lapack/single/ssptrs.f @@ -15,7 +15,7 @@ * .. * c -* $Id: ssptrs.f,v 1.3 1997-03-17 21:28:31 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ssteqr.f b/src/lapack/single/ssteqr.f index 30a8150e2e..ef64755559 100644 --- a/src/lapack/single/ssteqr.f +++ b/src/lapack/single/ssteqr.f @@ -14,7 +14,7 @@ * .. * c -* $Id: ssteqr.f,v 1.2 1997-03-17 21:28:32 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ssterf.f b/src/lapack/single/ssterf.f index 4282a2f291..68c9961f84 100644 --- a/src/lapack/single/ssterf.f +++ b/src/lapack/single/ssterf.f @@ -13,7 +13,7 @@ * .. * c -* $Id: ssterf.f,v 1.2 1997-03-17 21:28:35 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ssyev.f b/src/lapack/single/ssyev.f index cc3b2cc4b5..03023c4c56 100644 --- a/src/lapack/single/ssyev.f +++ b/src/lapack/single/ssyev.f @@ -14,7 +14,7 @@ * .. * c -* $Id: ssyev.f,v 1.2 1997-03-17 21:28:37 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ssygs2.f b/src/lapack/single/ssygs2.f index 0ac7a389ab..164c5e4ed6 100644 --- a/src/lapack/single/ssygs2.f +++ b/src/lapack/single/ssygs2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: ssygs2.f,v 1.2 1997-03-17 21:28:39 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ssygst.f b/src/lapack/single/ssygst.f index f144149338..f76522fea9 100644 --- a/src/lapack/single/ssygst.f +++ b/src/lapack/single/ssygst.f @@ -14,7 +14,7 @@ * .. * c -* $Id: ssygst.f,v 1.2 1997-03-17 21:28:41 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ssygv.f b/src/lapack/single/ssygv.f index 4f21c3670d..02bf6d262b 100644 --- a/src/lapack/single/ssygv.f +++ b/src/lapack/single/ssygv.f @@ -15,7 +15,7 @@ * .. * c -* $Id: ssygv.f,v 1.2 1997-03-17 21:28:42 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ssytd2.f b/src/lapack/single/ssytd2.f index 81c8f730a7..2856583a82 100644 --- a/src/lapack/single/ssytd2.f +++ b/src/lapack/single/ssytd2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: ssytd2.f,v 1.2 1997-03-17 21:28:43 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/ssytrd.f b/src/lapack/single/ssytrd.f index 37401beebc..b4962ebb18 100644 --- a/src/lapack/single/ssytrd.f +++ b/src/lapack/single/ssytrd.f @@ -15,7 +15,7 @@ * .. * c -* $Id: ssytrd.f,v 1.2 1997-03-17 21:28:46 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/strevc.f b/src/lapack/single/strevc.f index b451d12d0f..9a9c9dbe8d 100644 --- a/src/lapack/single/strevc.f +++ b/src/lapack/single/strevc.f @@ -1,6 +1,6 @@ SUBROUTINE STREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, INFO ) -C$Id: strevc.f,v 1.1 2004-05-14 15:43:08 edo Exp $ +C$Id$ * * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/src/lapack/single/strti2.f b/src/lapack/single/strti2.f index c8ce404a9b..747f32cbf7 100644 --- a/src/lapack/single/strti2.f +++ b/src/lapack/single/strti2.f @@ -14,7 +14,7 @@ * .. * c -* $Id: strti2.f,v 1.1 1997-03-17 21:44:35 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/lapack/single/strtri.f b/src/lapack/single/strtri.f index fe8b6ecc06..5a8b645efd 100644 --- a/src/lapack/single/strtri.f +++ b/src/lapack/single/strtri.f @@ -14,7 +14,7 @@ * .. * c -* $Id: strtri.f,v 1.3 1997-03-17 21:28:48 d3e129 Exp $ +* $Id$ c * Purpose * ======= diff --git a/src/ncc/GNUmakefile b/src/ncc/GNUmakefile index ea503c7ead..6adc897527 100644 --- a/src/ncc/GNUmakefile +++ b/src/ncc/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.0 2009-21-06 18:37:00 jhammond Exp $ +#$Id$ SUBDIRS = diff --git a/src/ncc/ncc_doubles.F b/src/ncc/ncc_doubles.F index bd43df14e3..dcaffb783b 100644 --- a/src/ncc/ncc_doubles.F +++ b/src/ncc/ncc_doubles.F @@ -75,7 +75,7 @@ c 4 tszocc, ! tilesize of occupied orbitals 5 tszvir) ! tilesize of virtual orbitals c -c $Id: ncc_doubles.F,v 1.0 2009/20/10 23:48:58 jhammond Exp $ +c $Id$ c implicit none #include "mafdecls.fh" diff --git a/src/ncc/ncc_driver.F b/src/ncc/ncc_driver.F index a94ba7dcb1..8c65ef31df 100644 --- a/src/ncc/ncc_driver.F +++ b/src/ncc/ncc_driver.F @@ -22,7 +22,7 @@ c c c===============================================================c logical function ncc_driver(rtdb) c -c $Id: ncc_driver.F,v 1.0 2009/21/06 23:48:58 jhammond Exp $ +c $Id$ c implicit none #include "mafdecls.fh" diff --git a/src/ncc/ncc_fourindex.F b/src/ncc/ncc_fourindex.F index 6d287fde9c..9ae71db63c 100644 --- a/src/ncc/ncc_fourindex.F +++ b/src/ncc/ncc_fourindex.F @@ -25,7 +25,7 @@ c===============================================================c 2 v2oooo,v2ooov,v2oovv,v2ovvv,v2vvvv, 3 moveca,movecb) c -c $Id: ncc_fourindex.F,v 1.0 2009/21/06 23:48:58 jhammond Exp $ +c $Id$ c implicit none #include "mafdecls.fh" diff --git a/src/ncc/ncc_input.F b/src/ncc/ncc_input.F index f360685d06..36925c133d 100644 --- a/src/ncc/ncc_input.F +++ b/src/ncc/ncc_input.F @@ -22,7 +22,7 @@ c c c===============================================================c logical function ncc_input(rtdb) c -c $Id: ncc_input.F,v 1.0 2009/21/06 23:48:58 jhammond Exp $ +c $Id$ c implicit none #include "inp.fh" diff --git a/src/ncc/ncc_input.fh b/src/ncc/ncc_input.fh index 3a067ec0da..765dd9aba6 100644 --- a/src/ncc/ncc_input.fh +++ b/src/ncc/ncc_input.fh @@ -1,4 +1,4 @@ -c $Id: ncc_input.fh,v 1.0 2009-06-29 21:57:50 jhammond Exp $ +c $Id$ c c Include file for NCC module c diff --git a/src/ncc/ncc_singles.F b/src/ncc/ncc_singles.F index 1144856766..735883c021 100644 --- a/src/ncc/ncc_singles.F +++ b/src/ncc/ncc_singles.F @@ -25,7 +25,7 @@ c===============================================================c 2 nocc, ! number of occupied orbitals 3 nvir) ! number of virtual orbitals c -c $Id: ncc_singles.F,v 1.0 2009/20/10 23:48:58 jhammond Exp $ +c $Id$ c implicit none #include "mafdecls.fh" diff --git a/src/prepar/GNUmakefile b/src/prepar/GNUmakefile index 46f767e75a..59067e94c2 100644 --- a/src/prepar/GNUmakefile +++ b/src/prepar/GNUmakefile @@ -1,5 +1,5 @@ # -# $Id: GNUmakefile,v 1.38 2004-05-06 21:11:52 edo Exp $ +# $Id$ # OBJ_OPTIMIZE=prepar.o\ diff --git a/src/prepar/pre_admin.F b/src/prepar/pre_admin.F index 43e822c835..7e937b6e59 100644 --- a/src/prepar/pre_admin.F +++ b/src/prepar/pre_admin.F @@ -1,6 +1,6 @@ logical function pre_admin(lfncmd,filcmd,lfnout,lfnfrg) c -c $Id: pre_admin.F,v 1.4 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_align.F b/src/prepar/pre_align.F index 8107cc806c..64e324b7cc 100644 --- a/src/prepar/pre_align.F +++ b/src/prepar/pre_align.F @@ -2,7 +2,7 @@ + csa,isat,isgm,xs,vs,msa,nsa,xw,vw,mwm,mwa,nwm,nwa, + xwc,vwc,mwmc,nwmc) c -c $Id: pre_align.F,v 1.4 2001-07-06 03:45:13 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_ang.F b/src/prepar/pre_ang.F index 3a1564f6fb..2a516febff 100644 --- a/src/prepar/pre_ang.F +++ b/src/prepar/pre_ang.F @@ -1,6 +1,6 @@ logical function pre_ang(lbnd,mbnd,nbnd,lang,mang,nang) c -c $Id: pre_ang.F,v 1.2 1998-04-29 18:35:11 d3j191 Exp $ +c $Id$ c c function to extend the list of angles from a list of bonds c diff --git a/src/prepar/pre_angl.F b/src/prepar/pre_angl.F index 1399bf0ff6..ebf4486d15 100644 --- a/src/prepar/pre_angl.F +++ b/src/prepar/pre_angl.F @@ -1,6 +1,6 @@ logical function pre_ang(lbnd,mbnd,nbmd,lang,mang,nang) c -c $Id: pre_angl.F,v 1.2 1998-04-29 18:35:11 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_atmscn.F b/src/prepar/pre_atmscn.F index 872181f104..0e9a29f328 100644 --- a/src/prepar/pre_atmscn.F +++ b/src/prepar/pre_atmscn.F @@ -1,6 +1,6 @@ logical function pre_atmscn(lfnsgm,filsgm,atmnam,num,link) c -c $Id: pre_atmscn.F,v 1.4 2003-07-17 19:38:56 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_atnam.F b/src/prepar/pre_atnam.F index b552f3a25d..0e13f17f04 100644 --- a/src/prepar/pre_atnam.F +++ b/src/prepar/pre_atnam.F @@ -1,6 +1,6 @@ character*2 function pre_atnam(number) c -c $Id: pre_atnam.F,v 1.1 1998-04-28 23:10:44 d3j191 Exp $ +c $Id$ c implicit none integer number diff --git a/src/prepar/pre_atnum.F b/src/prepar/pre_atnum.F index b8119931d8..5580fd10ca 100644 --- a/src/prepar/pre_atnum.F +++ b/src/prepar/pre_atnum.F @@ -1,6 +1,6 @@ integer function pre_atnum(element) c -c $Id: pre_atnum.F,v 1.3 1998-09-23 16:17:38 d3j191 Exp $ +c $Id$ c implicit none character*2 element diff --git a/src/prepar/pre_atom_index.F b/src/prepar/pre_atom_index.F index 32ef482022..b8ba793a91 100644 --- a/src/prepar/pre_atom_index.F +++ b/src/prepar/pre_atom_index.F @@ -1,6 +1,6 @@ integer function pre_atom_index(card,isegm,csa,msa,nsa) c -c $Id: pre_atom_index.F,v 1.3 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_atrad.F b/src/prepar/pre_atrad.F index 2e86d2964a..314a625517 100644 --- a/src/prepar/pre_atrad.F +++ b/src/prepar/pre_atrad.F @@ -1,6 +1,6 @@ real*8 function pre_atsiz(number) c -c $Id: pre_atrad.F,v 1.7 2003-10-03 18:48:11 d3j191 Exp $ +c $Id$ c implicit none integer number diff --git a/src/prepar/pre_atype.F b/src/prepar/pre_atype.F index b4987d1391..b59f41d2a7 100644 --- a/src/prepar/pre_atype.F +++ b/src/prepar/pre_atype.F @@ -4,7 +4,7 @@ + nring3,nring4,nring5,nring6, + latmt,matmt,natmt,lbndt,mbndt,nbndt) c -c $Id: pre_atype.F,v 1.20 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_base.F b/src/prepar/pre_base.F index 887549c280..e19fc65762 100644 --- a/src/prepar/pre_base.F +++ b/src/prepar/pre_base.F @@ -1,6 +1,6 @@ integer function pre_base(isgm,isegm,csa,msa,nsa) c -c $Id: pre_base.F,v 1.2 2000-12-13 19:59:23 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_bnd.F b/src/prepar/pre_bnd.F index 87a11e31de..e044536791 100644 --- a/src/prepar/pre_bnd.F +++ b/src/prepar/pre_bnd.F @@ -2,7 +2,7 @@ + xato,lato,cato,mato,nato,lbnd,mbnd,nbnd,maxscf, + llnk,clnk,mlnk,nlnk,iconst,mang,lang,mdih,ldih,itmp) c -c $Id: pre_bnd.F,v 1.17 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c c function to append the list of bonds from atomic coordinates c for all atoms i in [ilo,ihi] diff --git a/src/prepar/pre_bonds.F b/src/prepar/pre_bonds.F index 54cf6f4b4e..a6cc7d9272 100644 --- a/src/prepar/pre_bonds.F +++ b/src/prepar/pre_bonds.F @@ -1,7 +1,7 @@ logical function pre_bonds(xatm,latm,matm,ilo,ihi,lbnd,mbnd,nbnd, + llnk,clnk,mlnk,nlnk) c -c $Id: pre_bonds.F,v 1.4 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c c function to append the list of bonds from atomic coordinates c for all atoms i in [ilo,ihi] diff --git a/src/prepar/pre_boxsiz.F b/src/prepar/pre_boxsiz.F index 121d886a56..18d4b8ba36 100644 --- a/src/prepar/pre_boxsiz.F +++ b/src/prepar/pre_boxsiz.F @@ -1,7 +1,7 @@ logical function pre_boxsiz(xw,xwc,mwm,mwmc,mwa,nwm,nwmc,nwa, + xs,msa,nsa,box,iopt) c -c $Id: pre_boxsiz.F,v 1.6 2002-01-30 21:08:25 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_center.F b/src/prepar/pre_center.F index 90ad30b7e3..5d1514f09d 100644 --- a/src/prepar/pre_center.F +++ b/src/prepar/pre_center.F @@ -1,7 +1,7 @@ logical function pre_center(lfnout,xw,mwm,mwa,nwm,nwa, + xwc,mwmc,nwmc,xs,msa,nsa,iopt) c -c $Id: pre_center.F,v 1.14 2002-01-30 20:29:20 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_charge.F b/src/prepar/pre_charge.F index ab057871ca..57e1d1bb31 100644 --- a/src/prepar/pre_charge.F +++ b/src/prepar/pre_charge.F @@ -2,7 +2,7 @@ + source,jlo,ilo,ihi,jhi, + latm,catm,xatm,qatm,matm,natm,lbnd,mbnd,nbnd,maxscf,qscale) c -c $Id: pre_charge.F,v 1.30 2004-04-07 19:39:03 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_check.F b/src/prepar/pre_check.F index 12dd9f6eab..2341a8a5db 100644 --- a/src/prepar/pre_check.F +++ b/src/prepar/pre_check.F @@ -3,7 +3,7 @@ + lang,mang,nang,ldih,mdih,ndih,limp,mimp,nimp, + lseq,cseq,mseq,nseq) c -c $Id: pre_check.F,v 1.18 2003-10-17 14:56:06 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_common.fh b/src/prepar/pre_common.fh index 85725ead02..a0e1389259 100644 --- a/src/prepar/pre_common.fh +++ b/src/prepar/pre_common.fh @@ -1,4 +1,4 @@ -c $Id: pre_common.fh,v 1.3 2003-08-12 11:12:26 d3j191 Exp $ +c $Id$ c c general parameters c diff --git a/src/prepar/pre_dih.F b/src/prepar/pre_dih.F index 80ee79f396..c334872a33 100644 --- a/src/prepar/pre_dih.F +++ b/src/prepar/pre_dih.F @@ -1,6 +1,6 @@ logical function pre_dih(lang,mang,nang,ldih,mdih,ndih) c -c $Id: pre_dih.F,v 1.2 1998-04-29 18:35:13 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_dihimp.F b/src/prepar/pre_dihimp.F index 4215792723..e570967c10 100644 --- a/src/prepar/pre_dihimp.F +++ b/src/prepar/pre_dihimp.F @@ -1,7 +1,7 @@ logical function pre_dihimp(latm,matm,natm,lang,mang,nang, + ldih,mdih,ndih,limp,mimp,nimp) c -c $Id: pre_dihimp.F,v 1.6 2003-07-31 04:09:31 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_dihsel.F b/src/prepar/pre_dihsel.F index 1334e77271..bd43339d8b 100644 --- a/src/prepar/pre_dihsel.F +++ b/src/prepar/pre_dihsel.F @@ -1,7 +1,7 @@ logical function pre_dihsel(catm,nparms,nparmsp,matm,natm, + ldih,mdih,ndih) c -c $Id: pre_dihsel.F,v 1.4 2003-07-31 04:09:31 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_dimens.F b/src/prepar/pre_dimens.F index 16aae54ea5..cff5488b6c 100644 --- a/src/prepar/pre_dimens.F +++ b/src/prepar/pre_dimens.F @@ -1,7 +1,7 @@ logical function pre_dimens(lfnout,lfnsgm, + lseq,cseq,mseq,nseq,natm,nbnd,nang,ndih,nimp,nparms) c -c $Id: pre_dimens.F,v 1.10 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c c function to determine total system array dimensions c diff --git a/src/prepar/pre_disres.F b/src/prepar/pre_disres.F index cdb3e14499..26abfae94a 100644 --- a/src/prepar/pre_disres.F +++ b/src/prepar/pre_disres.F @@ -1,7 +1,7 @@ logical function pre_disres(card,card2,isegm,csa,msa,nsa, + inoe,dnoe,mnoe,nnoe) c -c $Id: pre_disres.F,v 1.5 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_dummy.F b/src/prepar/pre_dummy.F index ac39affeb5..5a1dd812b2 100644 --- a/src/prepar/pre_dummy.F +++ b/src/prepar/pre_dummy.F @@ -3,7 +3,7 @@ + ldih,nfdih,kdih,rdih,mdih,ndih,limp,kimp,rimp,mimp,nimp, + nparms,mparms) c -c $Id: pre_dummy.F,v 1.5 2003-12-03 05:00:55 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_equiv.F b/src/prepar/pre_equiv.F index cc39562ff4..75d11d7bc6 100644 --- a/src/prepar/pre_equiv.F +++ b/src/prepar/pre_equiv.F @@ -1,6 +1,6 @@ logical function pre_equiv(csa,isml,isgm,msa,nsa,iequi,msm,nsm) c -c $Id: pre_equiv.F,v 1.3 2002-07-17 15:56:55 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_excl.F b/src/prepar/pre_excl.F index ff66ddf802..726c905e27 100644 --- a/src/prepar/pre_excl.F +++ b/src/prepar/pre_excl.F @@ -2,7 +2,7 @@ + lang,mang,nang,lexc,mexc,nexc,nval,ival,ndx,catt,matt, + lats,nparms,mats,latm,matm,natm,lupdat) c -c $Id: pre_excl.F,v 1.10 2003-11-21 21:16:51 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_ffield.F b/src/prepar/pre_ffield.F index 2e66398d70..54bb718074 100644 --- a/src/prepar/pre_ffield.F +++ b/src/prepar/pre_ffield.F @@ -5,7 +5,7 @@ + ldih,nfdih,kdih,rdih,mdih,ndih, + limp,kimp,rimp,mimp,nimp,nparms,mparms) c -c $Id: pre_ffield.F,v 1.25 2003-12-05 20:46:42 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_fix.F b/src/prepar/pre_fix.F index 0dec1de8ec..c65a35e9c9 100644 --- a/src/prepar/pre_fix.F +++ b/src/prepar/pre_fix.F @@ -2,7 +2,7 @@ + iwmr,xw,mwm,mwa,nwm,nwa,iwmrc,xwc,mwmc,nwmc, + isar,isgm,csa,xs,msa,nsa) c -c $Id: pre_fix.F,v 1.9 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_frgrd.F b/src/prepar/pre_frgrd.F index e9695fbf91..932909d443 100644 --- a/src/prepar/pre_frgrd.F +++ b/src/prepar/pre_frgrd.F @@ -2,7 +2,7 @@ + latm,catm,qatm,matm,natm,lbnd,mbnd,nbnd,izmat,zmat,mzmat,nzmat, + fils) c -c $Id: pre_frgrd.F,v 1.11 2003-08-07 21:47:55 d3j191 Exp $ +c $Id$ c c function to read dimensions from a frg file c diff --git a/src/prepar/pre_frgsiz.F b/src/prepar/pre_frgsiz.F index 2f1f0d81c7..db4f419608 100644 --- a/src/prepar/pre_frgsiz.F +++ b/src/prepar/pre_frgsiz.F @@ -1,7 +1,7 @@ logical function pre_frgsiz(lfn,fil,lfnout, + natm,nbnd,nzmat,nparms,ipardef) c -c $Id: pre_frgsiz.F,v 1.12 2003-08-29 15:32:24 d3j191 Exp $ +c $Id$ c c function to read dimensions from a frg file c diff --git a/src/prepar/pre_gensgm.F b/src/prepar/pre_gensgm.F index 83defb5336..5b4043201f 100644 --- a/src/prepar/pre_gensgm.F +++ b/src/prepar/pre_gensgm.F @@ -1,7 +1,7 @@ logical function pre_gensgm(lfnout,lfnfrg,lfnsgm, + lsgm,csgm,msgm,nsgm) c -c $Id: pre_gensgm.F,v 1.10 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c c function to generate segment files c diff --git a/src/prepar/pre_his.F b/src/prepar/pre_his.F index 26d0f60dba..a06c3d25f9 100644 --- a/src/prepar/pre_his.F +++ b/src/prepar/pre_his.F @@ -1,7 +1,7 @@ logical function pre_his(num,mat, + csa,isat,isgm,imol,ifra,xs,msa,nsa) c -c $Id: pre_his.F,v 1.1 2003-10-17 14:56:06 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_hnames.F b/src/prepar/pre_hnames.F index c494e6b824..79bbca2c6c 100644 --- a/src/prepar/pre_hnames.F +++ b/src/prepar/pre_hnames.F @@ -1,7 +1,7 @@ logical function pre_hnames(latm,catm,matm,natm, + lbnd,mbnd,nbnd) c -c $Id: pre_hnames.F,v 1.2 1998-04-29 18:35:16 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_hybrid.F b/src/prepar/pre_hybrid.F index f5f6fa5c3e..8ea986cfc1 100644 --- a/src/prepar/pre_hybrid.F +++ b/src/prepar/pre_hybrid.F @@ -1,6 +1,6 @@ logical function pre_hybrid(xatm,latm,matm,natm,lbnd,mbnd,nbnd) c -c $Id: pre_hybrid.F,v 1.11 2000-07-06 18:48:56 d3j191 Exp $ +c $Id$ c c in : xatm(3,matm) = atomic coordinates c : latm(2,matm) = atomic numbers diff --git a/src/prepar/pre_imp.F b/src/prepar/pre_imp.F index 55b7c9767f..9e8de43f42 100644 --- a/src/prepar/pre_imp.F +++ b/src/prepar/pre_imp.F @@ -1,7 +1,7 @@ logical function pre_imp(latm,matm,natm,lbnd,mbnd,nbnd, + limp,mimp,nimp) c -c $Id: pre_imp.F,v 1.7 2003-07-31 04:09:31 d3j191 Exp $ +c $Id$ c implicit none #include "pre_common.fh" diff --git a/src/prepar/pre_impctr.F b/src/prepar/pre_impctr.F index 77c062eab5..b44baecda6 100644 --- a/src/prepar/pre_impctr.F +++ b/src/prepar/pre_impctr.F @@ -2,7 +2,7 @@ + jlo,ilo,ihi,jhi,lbnd,mbnd,nbnd,lang,mang,nang,ldih,mdih,ndih, + lring,aring,mring,nring3,nring4,nring5,nring6) c -c $Id: pre_impctr.F,v 1.6 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c c function to determine the center type c diff --git a/src/prepar/pre_input.F b/src/prepar/pre_input.F index 2257aff101..bc3f0b30f3 100644 --- a/src/prepar/pre_input.F +++ b/src/prepar/pre_input.F @@ -1,6 +1,6 @@ subroutine pre_input(irtdb) c -c $Id: pre_input.F,v 1.127 2008-08-21 22:26:53 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_links.F b/src/prepar/pre_links.F index 5080519118..0649b0aa8c 100644 --- a/src/prepar/pre_links.F +++ b/src/prepar/pre_links.F @@ -2,7 +2,7 @@ + xatm,catm,latm,matm,lseq,cseq,mseq,nseq, + llnk,clnk,mlnk,nlnk,nlnkf) c -c $Id: pre_links.F,v 1.22 2003-10-31 03:12:01 d3j191 Exp $ +c $Id$ c c function to scan database for link segments in sequence c diff --git a/src/prepar/pre_merge.F b/src/prepar/pre_merge.F index 2488bde615..46a6bc6e9d 100644 --- a/src/prepar/pre_merge.F +++ b/src/prepar/pre_merge.F @@ -1,7 +1,7 @@ integer function pre_merge(iunit,xmerge,filnam, + lfnout,lfnpdb,namslv,inum,lrgpdb) c -c $Id: pre_merge.F,v 1.7 2003-10-31 21:32:47 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_misfit.F b/src/prepar/pre_misfit.F index 88f4dae4c1..fd49c83210 100644 --- a/src/prepar/pre_misfit.F +++ b/src/prepar/pre_misfit.F @@ -3,7 +3,7 @@ + idsb,cdsb,msb,nsb,grid,mgrid,ngrid,gdist,nmis,iwater,iwfnd,xw, + qwa,mwm,mwa,nwm,nwa,npbtyp,box,fcount,nrgrid,iogrid,rogrid) c -c $Id: pre_misfit.F,v 1.40 2004-04-20 14:46:24 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_mkfrg.F b/src/prepar/pre_mkfrg.F index afd0f3396a..d78fc72333 100644 --- a/src/prepar/pre_mkfrg.F +++ b/src/prepar/pre_mkfrg.F @@ -5,7 +5,7 @@ + lang,mang,ldih,mdih,limp,mimp, + maxscf,qscale,llnk,clnk,mlnk,nlnk) c -c $Id: pre_mkfrg.F,v 1.43 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c c function to prepare missing fragment definitions c diff --git a/src/prepar/pre_mklist.F b/src/prepar/pre_mklist.F index 3a232615fa..2d233344cf 100644 --- a/src/prepar/pre_mklist.F +++ b/src/prepar/pre_mklist.F @@ -9,7 +9,7 @@ + natmt,nbndt,nangt,ndiht,nimpt,wcorr, + nval,ival,rval,ndx,itopol) c -c $Id: pre_mklist.F,v 1.32 2003-12-03 05:00:55 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_mknoe.F b/src/prepar/pre_mknoe.F index c5960dbb1b..7101716958 100644 --- a/src/prepar/pre_mknoe.F +++ b/src/prepar/pre_mknoe.F @@ -1,7 +1,7 @@ logical function pre_mknoe(lfnout,lfntop,filtop,lfncmd,filcmd, + lfnnoe,filnoe,mnoe,lfnpmf,filpmf,slvnam) c -c $Id: pre_mknoe.F,v 1.34 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_mkrst.F b/src/prepar/pre_mkrst.F index 4d75a2c393..b6fa654027 100644 --- a/src/prepar/pre_mkrst.F +++ b/src/prepar/pre_mkrst.F @@ -5,7 +5,7 @@ + chain,model,lfnxyz,filxyz,lfnqqq,filqqq,lfnpov,filpov,scale,cpk, + lfnmat,lfnmrg,nmerge,xmerge,filmrg,fcount,lfnmod,filmod,itopol) c -c $Id: pre_mkrst.F,v 1.99 2006-07-20 14:18:53 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_mkseq.F b/src/prepar/pre_mkseq.F index aebe51526b..a1b810eae1 100644 --- a/src/prepar/pre_mkseq.F +++ b/src/prepar/pre_mkseq.F @@ -4,7 +4,7 @@ + slvnam,slvmdl,maxscf,qscale,altloc,chain,icyren,model,nxlnk, + mcount,ncount,icount,scount,mfract,nfract,ifract,iconst,his) c -c $Id: pre_mkseq.F,v 1.42 2003-10-19 03:30:58 d3j191 Exp $ +c $Id$ c c in : integer lfnout = logical file number output file c integer lfnpdb = logical file number for pdb file diff --git a/src/prepar/pre_mksgm.F b/src/prepar/pre_mksgm.F index 3bda0239ba..0f2fec9f23 100644 --- a/src/prepar/pre_mksgm.F +++ b/src/prepar/pre_mksgm.F @@ -1,6 +1,6 @@ logical function pre_mksgm(lfnout,lfnfrg,filfrg,lfnsgm,filsgm) c -c $Id: pre_mksgm.F,v 1.18 2006-02-10 17:26:42 d3j191 Exp $ +c $Id$ c c function to make segment file c diff --git a/src/prepar/pre_mktop.F b/src/prepar/pre_mktop.F index 9ee7db083d..acedc6137e 100644 --- a/src/prepar/pre_mktop.F +++ b/src/prepar/pre_mktop.F @@ -3,7 +3,7 @@ + lfnmod,filmod,lfnmat,lfnhdb,lfnhop,filhop, + lfnbsg,filbsg,ignore,slvnam,itopol,icomb) c -c $Id: pre_mktop.F,v 1.39 2008-08-21 16:27:14 d3j191 Exp $ +c $Id$ c c in : integer lfnout = logical file number output file c char*80 ffield = force field from [amber] diff --git a/src/prepar/pre_modify.F b/src/prepar/pre_modify.F index 7489ac655c..c9c8529b26 100644 --- a/src/prepar/pre_modify.F +++ b/src/prepar/pre_modify.F @@ -4,7 +4,7 @@ + ldih,nfdih,kdih,rdih,mdih,ndih,ndiht,limp,kimp,rimp,mimp,nimp, + nimpt,lupdat) c -c $Id: pre_modify.F,v 1.19 2003-12-03 05:00:56 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_multip.F b/src/prepar/pre_multip.F index cf39c9f762..1120b4d81a 100644 --- a/src/prepar/pre_multip.F +++ b/src/prepar/pre_multip.F @@ -2,7 +2,7 @@ + lang,mang,nang,ldih,mdih,ndih,limp,mimp,nimp) c c -c $Id: pre_multip.F,v 1.1 2003-07-17 19:38:57 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_namiup.F b/src/prepar/pre_namiup.F index b0c6a504e4..f061b9c494 100644 --- a/src/prepar/pre_namiup.F +++ b/src/prepar/pre_namiup.F @@ -1,7 +1,7 @@ logical function pre_namiup(lfnout, + lseq,cseq,mseq,nseq,latm,catm,matm,natm) c -c $Id: pre_namiup.F,v 1.12 2003-07-23 02:38:46 d3j191 Exp $ +c $Id$ c c function to comply with IUPAC atom naming c diff --git a/src/prepar/pre_natyps.F b/src/prepar/pre_natyps.F index 8bd822013e..5e97a7cb49 100644 --- a/src/prepar/pre_natyps.F +++ b/src/prepar/pre_natyps.F @@ -1,7 +1,7 @@ logical function pre_natyps(lfnout,nparms,mparms, + catm,matm,natm,natt,nats) c -c $Id: pre_natyps.F,v 1.6 2003-07-17 19:38:57 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_nonbon.F b/src/prepar/pre_nonbon.F index 868fd66679..b621621d2a 100644 --- a/src/prepar/pre_nonbon.F +++ b/src/prepar/pre_nonbon.F @@ -1,7 +1,7 @@ logical function pre_nonbon(iatm,natm,lbnd,mbnd,ibnd,nbnd, + lang,mang,iang,nang,l3rd,m3rd,i3rd,n3rd,lnon,mnon,nnon) c -c $Id: pre_nonbon.F,v 1.2 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_nucleic.F b/src/prepar/pre_nucleic.F index 35e45a151f..53465a8d5c 100644 --- a/src/prepar/pre_nucleic.F +++ b/src/prepar/pre_nucleic.F @@ -1,6 +1,6 @@ logical function pre_nucleic(sgmnam) c -c $Id: pre_nucleic.F,v 1.2 2003-07-23 02:38:46 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_orient.F b/src/prepar/pre_orient.F index 09695aef66..72d9b6d0d8 100644 --- a/src/prepar/pre_orient.F +++ b/src/prepar/pre_orient.F @@ -1,7 +1,7 @@ logical function pre_orient(lfnout,xw,mwm,mwa,nwm,nwa, + xwc,mwmc,nwmc,xs,msa,nsa) c -c $Id: pre_orient.F,v 1.5 2001-07-06 03:45:13 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_params.F b/src/prepar/pre_params.F index 6d6214e5bb..0287041513 100644 --- a/src/prepar/pre_params.F +++ b/src/prepar/pre_params.F @@ -6,7 +6,7 @@ + latt,lats,catt,patt,ratt,matt,natt,mats,nats, + lseq,cseq,mseq,nseq,icomb) c -c $Id: pre_params.F,v 1.20 2003-12-05 20:46:42 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_parcnv.F b/src/prepar/pre_parcnv.F index b72baec181..d04dab7ce0 100644 --- a/src/prepar/pre_parcnv.F +++ b/src/prepar/pre_parcnv.F @@ -1,6 +1,6 @@ logical function pre_parcnv(icomb,latt,patt,catt,matt,natt) c -c $Id: pre_parcnv.F,v 1.7 2002-02-09 05:48:17 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_parcom.F b/src/prepar/pre_parcom.F index e94392e032..124ddb3e7b 100644 --- a/src/prepar/pre_parcom.F +++ b/src/prepar/pre_parcom.F @@ -1,6 +1,6 @@ logical function pre_parcnv(icomb,latt,patt,matt,natt) c -c $Id: pre_parcom.F,v 1.2 1998-04-29 18:35:20 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_paths.F b/src/prepar/pre_paths.F index cff27368a2..5cffc8f7a9 100644 --- a/src/prepar/pre_paths.F +++ b/src/prepar/pre_paths.F @@ -1,6 +1,6 @@ logical function pre_paths() c -c $Id: pre_paths.F,v 1.2 2003-08-01 00:02:37 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_paths2.F b/src/prepar/pre_paths2.F index 0e75c3b291..b4f9ff19a0 100644 --- a/src/prepar/pre_paths2.F +++ b/src/prepar/pre_paths2.F @@ -1,6 +1,6 @@ logical function pre_paths2(irtdb) c -c $Id: pre_paths2.F,v 1.3 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_pdbseq.F b/src/prepar/pre_pdbseq.F index 49e60f3b8d..aee0700ca9 100644 --- a/src/prepar/pre_pdbseq.F +++ b/src/prepar/pre_pdbseq.F @@ -2,7 +2,7 @@ + model,namslv,lseq,cseq,mseq,nseq,latm,catm,xatm,matm,natm, + lssb,mssb,nssb,llnk,clnk,mlnk,nlnk,altloc,chain) c -c $Id: pre_pdbseq.F,v 1.25 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c c function to read sequence from a pdb formatted file c diff --git a/src/prepar/pre_pdbsiz.F b/src/prepar/pre_pdbsiz.F index 0466b9e544..c6ed0cd547 100644 --- a/src/prepar/pre_pdbsiz.F +++ b/src/prepar/pre_pdbsiz.F @@ -1,7 +1,7 @@ logical function pre_pdbsiz(iunit,filnam,lfnout, + model,natm,nseq,nssb,nlnk,namslv,numslv,altloc,chain) c -c $Id: pre_pdbsiz.F,v 1.17 2003-07-17 19:38:57 d3j191 Exp $ +c $Id$ c c function to read dimensions from a pdb formatted file c diff --git a/src/prepar/pre_protein.F b/src/prepar/pre_protein.F index c091dfc835..e411ac8962 100644 --- a/src/prepar/pre_protein.F +++ b/src/prepar/pre_protein.F @@ -1,6 +1,6 @@ logical function pre_protein(sgmnam) c -c $Id: pre_protein.F,v 1.2 2003-07-23 02:38:46 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_rdgeom.F b/src/prepar/pre_rdgeom.F index 6125d978d5..911d39a015 100644 --- a/src/prepar/pre_rdgeom.F +++ b/src/prepar/pre_rdgeom.F @@ -1,7 +1,7 @@ logical function pre_rdgeom(irtdb,csa,isar,isgm,isfnd,xs,vs, + msa,nsa,nmis,msm,nsm) c -c $Id: pre_rdgeom.F,v 1.4 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_rdpdb.F b/src/prepar/pre_rdpdb.F index be41cd8ffb..886c4d1b33 100644 --- a/src/prepar/pre_rdpdb.F +++ b/src/prepar/pre_rdpdb.F @@ -3,7 +3,7 @@ + xw,vw,cwa,mwm,mwa,nwm,nwa,namslv,iwater,altloc,chain,model,box, + lpdbbx) c -c $Id: pre_rdpdb.F,v 1.25 2003-11-11 20:30:50 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_rdrst.F b/src/prepar/pre_rdrst.F index 919482e8a3..90b3ad30a3 100644 --- a/src/prepar/pre_rdrst.F +++ b/src/prepar/pre_rdrst.F @@ -4,7 +4,7 @@ + isar,xs,vs,msa,nsa, + inoe,dnoe,mnoe,noe,msm,nsm) c -c $Id: pre_rdrst.F,v 1.15 2003-07-17 19:38:57 d3j191 Exp $ +c $Id$ c implicit none c @@ -179,7 +179,7 @@ c + isar,xs,vs,msa,nsa, + inoe,dnoe,mnoe,noe,msm,nsm,mseq,nseq,lseq,ips) c -c $Id: pre_rdrst.F,v 1.15 2003-07-17 19:38:57 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_rdseq.F b/src/prepar/pre_rdseq.F index db19ad477f..ea6220e80d 100644 --- a/src/prepar/pre_rdseq.F +++ b/src/prepar/pre_rdseq.F @@ -1,7 +1,7 @@ logical function pre_rdseq(lfnout,lfnseq,filseq, + lseq,cseq,mseq,nseq,llnk,clnk,mlnk,nlnk) c -c $Id: pre_rdseq.F,v 1.15 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c c function to read the sequence file c diff --git a/src/prepar/pre_rdsgm.F b/src/prepar/pre_rdsgm.F index 0764047993..43f1715b85 100644 --- a/src/prepar/pre_rdsgm.F +++ b/src/prepar/pre_rdsgm.F @@ -6,7 +6,7 @@ + limp,kimp,rimp,mimp,nimp, + wcorr,npar,ipardef,itopol) c -c $Id: pre_rdsgm.F,v 1.20 2003-12-03 05:00:56 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_removw.F b/src/prepar/pre_removw.F index a7edd4e376..ed34fa5bb2 100644 --- a/src/prepar/pre_removw.F +++ b/src/prepar/pre_removw.F @@ -1,7 +1,7 @@ logical function pre_removw(ir,xr, + xw,vw,mwm,mwa,nwm,nwa,xwc,vwc,mwmc,nwmc,xs,msa,nsa) c -c $Id: pre_removw.F,v 1.3 2004-02-14 20:09:18 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_rename.F b/src/prepar/pre_rename.F index 06919f24d2..3598444023 100644 --- a/src/prepar/pre_rename.F +++ b/src/prepar/pre_rename.F @@ -2,7 +2,7 @@ + lseq,cseq,mseq,nseq,latm,catm,matm,natm, + llnk,clnk,mlnk,nlnk,icyren,his) c -c $Id: pre_rename.F,v 1.21 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c c function to comply with ffield segment names c diff --git a/src/prepar/pre_repeat.F b/src/prepar/pre_repeat.F index bb2d0cab92..03d6e2410d 100644 --- a/src/prepar/pre_repeat.F +++ b/src/prepar/pre_repeat.F @@ -2,7 +2,7 @@ + csa,isat,isgm,xs,vs,msa,nsa,xw,vw,mwm,mwa,nwm,nwa, + xwc,vwc,mwmc,nwmc) c -c $Id: pre_repeat.F,v 1.8 2001-07-06 03:45:14 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_rot.F b/src/prepar/pre_rot.F index 5d21930973..1ef55734c3 100644 --- a/src/prepar/pre_rot.F +++ b/src/prepar/pre_rot.F @@ -1,6 +1,6 @@ logical function pre_rot(irot,jrot,arot,xrot,is,xs,msa,nsa) c -c $Id: pre_rot.F,v 1.5 2003-09-02 22:53:06 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_rotate.F b/src/prepar/pre_rotate.F index a18914637d..641efa3e4a 100644 --- a/src/prepar/pre_rotate.F +++ b/src/prepar/pre_rotate.F @@ -1,7 +1,7 @@ subroutine pre_rotate(o,p,angle,xw,mwm,mwa,nwm,nwa,xwc,mwmc,nwmc, + xs,msa,nsa) c -c $Id: pre_rotate.F,v 1.2 1998-04-29 18:35:23 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_rstmod.F b/src/prepar/pre_rstmod.F index c88baba1b0..f7cfd4d7d2 100644 --- a/src/prepar/pre_rstmod.F +++ b/src/prepar/pre_rstmod.F @@ -1,6 +1,6 @@ logical function pre_rstmod(lseq,mseq,nseq,lfnmod,filmod,lfnout) c -c $Id: pre_rstmod.F,v 1.1 2003-07-17 19:38:57 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_rstsiz.F b/src/prepar/pre_rstsiz.F index 9183b57b9b..41178f34bc 100644 --- a/src/prepar/pre_rstsiz.F +++ b/src/prepar/pre_rstsiz.F @@ -1,6 +1,6 @@ logical function pre_rstsz(lfnrst,filrst,nwm,nwa,nsa,nwmc) c -c $Id: pre_rstsiz.F,v 1.7 2000-01-21 07:45:11 d3j191 Exp $ +c $Id$ c implicit none c @@ -45,7 +45,7 @@ c end logical function pre_rstsiz(lfnrst,filrst,nwm,nwa,nsa,nwmc) c -c $Id: pre_rstsiz.F,v 1.7 2000-01-21 07:45:11 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_rtdbin.F b/src/prepar/pre_rtdbin.F index 29a41e6f3f..986a1936e5 100644 --- a/src/prepar/pre_rtdbin.F +++ b/src/prepar/pre_rtdbin.F @@ -6,7 +6,7 @@ + altloc,chain,icyren,iconst,model,nxlnk,mdold,ignore,scount, + fcount,mfract,nfract,ifract,scale,cpk,his,itopol,icomb) c -c $Id: pre_rtdbin.F,v 1.39 2003-12-05 20:46:42 d3j191 Exp $ +c $Id$ c c function to read input for prepare module from rtdb c diff --git a/src/prepar/pre_rtdbsq.F b/src/prepar/pre_rtdbsq.F index 29699d6792..c362bad616 100644 --- a/src/prepar/pre_rtdbsq.F +++ b/src/prepar/pre_rtdbsq.F @@ -1,7 +1,7 @@ logical function pre_rtdbsq(irtdb,igeom,lfnout,sysnam, + lseq,cseq,mseq,nseq,latm,catm,xatm,matm,natm) c -c $Id: pre_rtdbsq.F,v 1.10 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c c function to read sequence from the rtdb c diff --git a/src/prepar/pre_scnseq.F b/src/prepar/pre_scnseq.F index 8f43ef2b2d..2b80d5f8dc 100644 --- a/src/prepar/pre_scnseq.F +++ b/src/prepar/pre_scnseq.F @@ -1,7 +1,7 @@ logical function pre_scnseq(iunit,dirnam,lfnout, + kseq,cseq,mseq,ksgm,csgm,msgm) c -c $Id: pre_scnseq.F,v 1.5 1998-06-08 23:29:37 d3j191 Exp $ +c $Id$ c c function to scan database for segments in sequence c diff --git a/src/prepar/pre_select.F b/src/prepar/pre_select.F index ea72db0639..a338ee4d7d 100644 --- a/src/prepar/pre_select.F +++ b/src/prepar/pre_select.F @@ -1,7 +1,7 @@ logical function pre_select(card,isegm,ismol,csa,msa,nsa, + maxgrp,maxatm,igroup,lgroup,mgroup) c -c $Id: pre_select.F,v 1.16 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_seqsiz.F b/src/prepar/pre_seqsiz.F index 71229b448b..2e0cf05ca8 100644 --- a/src/prepar/pre_seqsiz.F +++ b/src/prepar/pre_seqsiz.F @@ -1,6 +1,6 @@ logical function pre_seqsiz(lfnout,lfnseq,filseq,nseq,nlnk) c -c $Id: pre_seqsiz.F,v 1.6 1998-09-16 22:16:41 d3j191 Exp $ +c $Id$ c c function to scan the sequence file for the number of segments c diff --git a/src/prepar/pre_sgmfil.F b/src/prepar/pre_sgmfil.F index b3676236e9..5dd1472e7a 100644 --- a/src/prepar/pre_sgmfil.F +++ b/src/prepar/pre_sgmfil.F @@ -1,6 +1,6 @@ logical function pre_sgmfil(sgmnam,lfnsgm,filsgm) c -c $Id: pre_sgmfil.F,v 1.6 2003-07-23 02:38:47 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_sgmndx.F b/src/prepar/pre_sgmndx.F index 5660dce864..adbbb277aa 100644 --- a/src/prepar/pre_sgmndx.F +++ b/src/prepar/pre_sgmndx.F @@ -1,7 +1,7 @@ logical function pre_sgmndx(iunit, + lfnout,lseq,cseq,mseq,nseq,lsgm,csgm,msgm,nsgm,mato) c -c $Id: pre_sgmndx.F,v 1.14 2003-07-23 02:38:47 d3j191 Exp $ +c $Id$ c c function to scan database directories for segments in sequence c diff --git a/src/prepar/pre_sgmnum.F b/src/prepar/pre_sgmnum.F index 76e162fb79..fb6b3aa02d 100644 --- a/src/prepar/pre_sgmnum.F +++ b/src/prepar/pre_sgmnum.F @@ -1,7 +1,7 @@ logical function pre_sgmnum(lfnout, + lseq,cseq,mseq,nseq,nsgm) c -c $Id: pre_sgmnum.F,v 1.7 2003-07-17 19:38:57 d3j191 Exp $ +c $Id$ c c function to scan database for unique segments in sequence c diff --git a/src/prepar/pre_sgmsiz.F b/src/prepar/pre_sgmsiz.F index 26a09b2cf0..e2caf659bc 100644 --- a/src/prepar/pre_sgmsiz.F +++ b/src/prepar/pre_sgmsiz.F @@ -1,7 +1,7 @@ logical function pre_sgmsiz(lfnsgm,filsgm, + natm,nbnd,nang,ndih,nimp,nparms) c -c $Id: pre_sgmsiz.F,v 1.4 2003-07-17 19:38:57 d3j191 Exp $ +c $Id$ c c function to determine dimensions for segment c diff --git a/src/prepar/pre_short.F b/src/prepar/pre_short.F index efb2171cc3..49fc6e63cb 100644 --- a/src/prepar/pre_short.F +++ b/src/prepar/pre_short.F @@ -1,7 +1,7 @@ logical function pre_short(xatm,latm,matm,ilo,ihi,jlo,jhi, + ishort,jshort,rshort) c -c $Id: pre_short.F,v 1.11 2003-11-01 00:35:44 d3j191 Exp $ +c $Id$ c c function to find atom ishort in [ilo:ihi] and jshort in [jlo,jhi] c with the shortest distance rshort in nm @@ -61,7 +61,7 @@ c integer function pre_shorts(xatm,latm,matm,ilo,ihi,jlo,jhi, + ishort,jshort,rshort) c -c $Id: pre_short.F,v 1.11 2003-11-01 00:35:44 d3j191 Exp $ +c $Id$ c c function to find atom ishort in [ilo:ihi] and jshort in [jlo,jhi] c with the shortest distance rshort in nm diff --git a/src/prepar/pre_slvnum.F b/src/prepar/pre_slvnum.F index 51eb295d48..a01570e208 100644 --- a/src/prepar/pre_slvnum.F +++ b/src/prepar/pre_slvnum.F @@ -1,6 +1,6 @@ logical function pre_slvnum(islv,boxs,nwms,box,nwm) c -c $Id: pre_slvnum.F,v 1.3 1998-11-18 01:19:57 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_slvrd.F b/src/prepar/pre_slvrd.F index 8019847b47..084119552d 100644 --- a/src/prepar/pre_slvrd.F +++ b/src/prepar/pre_slvrd.F @@ -1,7 +1,7 @@ logical function pre_slvrd(lfnslv,filslv,xw,vw,mwm,mwa,nwm,nwa, + box) c -c $Id: pre_slvrd.F,v 1.4 2000-01-10 21:36:42 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_slvsiz.F b/src/prepar/pre_slvsiz.F index 4d50592b5a..fe10e78c8d 100644 --- a/src/prepar/pre_slvsiz.F +++ b/src/prepar/pre_slvsiz.F @@ -1,6 +1,6 @@ logical function pre_slvsiz(lfnslv,filslv,nwm,nwa) c -c $Id: pre_slvsiz.F,v 1.3 2000-01-10 19:47:39 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_solvat.F b/src/prepar/pre_solvat.F index 5b27876043..17633da8fc 100644 --- a/src/prepar/pre_solvat.F +++ b/src/prepar/pre_solvat.F @@ -2,7 +2,7 @@ + mwms,mwa,nwms,nwa,touch,box,iwmr,xw,vw, + mwm,nwm,xs,msa,nsa,xwc,vwc,mwmc,nwmc) c -c $Id: pre_solvat.F,v 1.10 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_task.F b/src/prepar/pre_task.F index 0e5dfc0fb0..ae6972356f 100644 --- a/src/prepar/pre_task.F +++ b/src/prepar/pre_task.F @@ -1,6 +1,6 @@ logical function pre_task(irtdb,itask,lfnout) c -c $Id: pre_task.F,v 1.6 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_task1.F b/src/prepar/pre_task1.F index 8617ba5e94..9e0b7acfbe 100644 --- a/src/prepar/pre_task1.F +++ b/src/prepar/pre_task1.F @@ -1,6 +1,6 @@ logical function pre_task1(irtdb) c -c $Id: pre_task1.F,v 1.6 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_term.F b/src/prepar/pre_term.F index d089036b0f..3eb8719872 100644 --- a/src/prepar/pre_term.F +++ b/src/prepar/pre_term.F @@ -1,7 +1,7 @@ logical function pre_term(lfnout,lfnsgm, + lseq,cseq,mseq,nseq,llnk,clnk,mlnk,nlnk) c -c $Id: pre_term.F,v 1.15 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c c function to determine the terminal segments c diff --git a/src/prepar/pre_third.F b/src/prepar/pre_third.F index 3e9a972787..9cda4444f8 100644 --- a/src/prepar/pre_third.F +++ b/src/prepar/pre_third.F @@ -1,7 +1,7 @@ logical function pre_third(lbnd,mbnd,nbnd,lang,mang,nang, + l3rd,m3rd,n3rd,ib,ia,i3,nval,ival,ndx,natm) c -c $Id: pre_third.F,v 1.7 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_toprd.F b/src/prepar/pre_toprd.F index f4282e8b0f..f41105cdbe 100644 --- a/src/prepar/pre_toprd.F +++ b/src/prepar/pre_toprd.F @@ -3,7 +3,7 @@ + csa,qsa,msa,nsa,nsm, + idsb,cdsb,msb,nsb,qu,nqu,slvnam,mseq,nseq,lseq,ihop,istat) c -c $Id: pre_toprd.F,v 1.22 2003-11-04 04:06:44 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_topsiz.F b/src/prepar/pre_topsiz.F index 73b025033d..90d6ef51e8 100644 --- a/src/prepar/pre_topsiz.F +++ b/src/prepar/pre_topsiz.F @@ -1,7 +1,7 @@ logical function pre_topsiz(lfntop,filtop,lfnout, + nat,nsa,nwa,nsb,nqu,nseq) c -c $Id: pre_topsiz.F,v 1.7 2003-07-17 19:38:57 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_torang.F b/src/prepar/pre_torang.F index a4bc8a8830..e7492ce381 100644 --- a/src/prepar/pre_torang.F +++ b/src/prepar/pre_torang.F @@ -1,6 +1,6 @@ logical function pre_torang(x,mx,ia,ja,ka,la,angle) c -c $Id: pre_torang.F,v 1.2 1998-04-29 18:35:29 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_transl.F b/src/prepar/pre_transl.F index 843c9b1cc2..22ec53b031 100644 --- a/src/prepar/pre_transl.F +++ b/src/prepar/pre_transl.F @@ -1,6 +1,6 @@ logical function pre_transl(itran,jtran,xtran,is,xs,msa,nsa) c -c $Id: pre_transl.F,v 1.2 2002-04-10 03:13:34 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_wrtnam.F b/src/prepar/pre_wrtnam.F index 3530af3aac..79167a21fa 100644 --- a/src/prepar/pre_wrtnam.F +++ b/src/prepar/pre_wrtnam.F @@ -1,6 +1,6 @@ logical function pre_wrtnam(lfnout,lfntmp,filtmp,catm,matm,natm) c -c $Id: pre_wrtnam.F,v 1.5 2001-07-06 03:45:14 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_wrtpdb.F b/src/prepar/pre_wrtpdb.F index bf13814692..3cfdd8dd9f 100644 --- a/src/prepar/pre_wrtpdb.F +++ b/src/prepar/pre_wrtpdb.F @@ -6,7 +6,7 @@ + msb,nsb,idsb,rdist,nskip,iskip,lang,lfnmrg,nmerge,xmerge,filmrg, + irenum,invert,ihop,ips) c -c $Id: pre_wrtpdb.F,v 1.45 2003-11-11 20:30:50 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_wrtpov.F b/src/prepar/pre_wrtpov.F index b8bc63f58f..54f844e05c 100644 --- a/src/prepar/pre_wrtpov.F +++ b/src/prepar/pre_wrtpov.F @@ -4,7 +4,7 @@ + xwc,vwc,mwmc,nwmc,slvnam,nxrep,nyrep,nzrep,drep,msb,nsb,idsb, + rdist,scale,cpk) c -c $Id: pre_wrtpov.F,v 1.8 2003-08-07 21:47:55 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_wrtrst.F b/src/prepar/pre_wrtrst.F index d0e30b118e..1c09e86cee 100644 --- a/src/prepar/pre_wrtrst.F +++ b/src/prepar/pre_wrtrst.F @@ -4,7 +4,7 @@ + isar,isgm,xs,vs,msa,nsa,msm,nsm,irrep,nxrep,nyrep,nzrep, + mseq,nseq,lseq,ips,istat,lfnmod,filmod,itopol) c -c $Id: pre_wrtrst.F,v 1.19 2003-10-19 03:30:59 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_wrtseq.F b/src/prepar/pre_wrtseq.F index 9705f76c57..293fa4eebc 100644 --- a/src/prepar/pre_wrtseq.F +++ b/src/prepar/pre_wrtseq.F @@ -2,7 +2,7 @@ + cseq,lseq,mseq,nseq,lssb,mssb,nssb,llnk,clnk,mlnk,nlnk,nlnkf, + slvmdl,mcount,ncount,icount,scount,mfract,nfract,ifract) c -c $Id: pre_wrtseq.F,v 1.12 2003-07-17 19:38:58 d3j191 Exp $ +c $Id$ c c function to write the sequence file c diff --git a/src/prepar/pre_wrtsgm.F b/src/prepar/pre_wrtsgm.F index d6b8b60479..39aeed4155 100644 --- a/src/prepar/pre_wrtsgm.F +++ b/src/prepar/pre_wrtsgm.F @@ -2,7 +2,7 @@ + latm,catm,qatm,matm,natm,lbnd,mbnd,nbnd,lang,mang,nang, + ldih,mdih,ndih,limp,mimp,nimp,izmat,zmat,mzmat,nzmat,ipardef) c -c $Id: pre_wrtsgm.F,v 1.18 2003-08-12 19:45:44 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_wrttop.F b/src/prepar/pre_wrttop.F index 735e9999c0..d7221b50b7 100644 --- a/src/prepar/pre_wrttop.F +++ b/src/prepar/pre_wrttop.F @@ -10,7 +10,7 @@ + l3rd,m3rd,n3rd,lexc,mexc,nexc,lnon,mnon,nnon, + natmt,nbndt,nangt,ndiht,nimpt,n3rdt,wcorr,slvnam,itopol) c -c $Id: pre_wrttop.F,v 1.54 2008-08-21 16:27:14 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/pre_wrtxyz.F b/src/prepar/pre_wrtxyz.F index 78f80b4ab3..ceb001dbfd 100644 --- a/src/prepar/pre_wrtxyz.F +++ b/src/prepar/pre_wrtxyz.F @@ -1,7 +1,7 @@ logical function pre_wrtxyz(lfnout,lfnxyz,filxyz,lfnqqq,filqqq, + num,mat,isat,xs,qsa,msa,nsa,box) c -c $Id: pre_wrtxyz.F,v 1.4 2000-05-02 18:50:48 d3j191 Exp $ +c $Id$ c implicit none c diff --git a/src/prepar/prepar.F b/src/prepar/prepar.F index dce1d31f59..0ab6140f4e 100644 --- a/src/prepar/prepar.F +++ b/src/prepar/prepar.F @@ -1,6 +1,6 @@ logical function prepar(irtdb0) c -c $Id: prepar.F,v 1.61 2008-08-21 16:27:14 d3j191 Exp $ +c $Id$ c c ******************************************************** c ******************************************************** diff --git a/src/rimp2/GNUmakefile b/src/rimp2/GNUmakefile index bead95b1eb..85ed919213 100644 --- a/src/rimp2/GNUmakefile +++ b/src/rimp2/GNUmakefile @@ -1,4 +1,4 @@ -# $Id: GNUmakefile,v 1.46 2009-02-10 19:10:37 jhammond Exp $ +# $Id$ # Note: To switch on disk arrays, uncomment the DEFINE +=... after the # includes. Do NOT move the DEFINE ahead of the includes or it won't # have the desired effect. diff --git a/src/rimp2/MakeFile b/src/rimp2/MakeFile index dc62f61fe2..188cb5c67b 100644 --- a/src/rimp2/MakeFile +++ b/src/rimp2/MakeFile @@ -1,5 +1,5 @@ # -# $Id: MakeFile,v 1.3 2000-11-25 15:42:44 bjohnson Exp $ +# $Id$ # #!MESSAGE *** Unresolved issues in this nmake file *** @@ -41,7 +41,7 @@ LIBRARY = rimp2.lib !IF 0 -# $Id: MakeFile,v 1.3 2000-11-25 15:42:44 bjohnson Exp $ +# $Id$ # Note: To switch on disk arrays, uncomment the DEFINE +=... after the # includes. Do NOT move the DEFINE ahead of the includes or it won't # have the desired effect. diff --git a/src/rimp2/close_3ci.F b/src/rimp2/close_3ci.F index 82f4f35e89..95dda6c227 100644 --- a/src/rimp2/close_3ci.F +++ b/src/rimp2/close_3ci.F @@ -1,5 +1,5 @@ Logical function Close_3ci_file( LU, Stat,actualname) -C$Id: close_3ci.F,v 1.7 2003-10-25 16:33:22 edo Exp $ +C$Id$ Implicit NONE #include "errquit.fh" Integer LU diff --git a/src/rimp2/debugging/stupid_e.F b/src/rimp2/debugging/stupid_e.F index 716204bf42..a49b9795b1 100644 --- a/src/rimp2/debugging/stupid_e.F +++ b/src/rimp2/debugging/stupid_e.F @@ -1,5 +1,5 @@ Program Stupid_Energy -C$Id: stupid_e.F,v 1.1 1995-12-13 01:37:14 d3g681 Exp $ +C$Id$ Implicit NONE C Integer NBF, NOcc, NVir, NFit diff --git a/src/rimp2/debugging/stupid_xf.F b/src/rimp2/debugging/stupid_xf.F index 705fedc345..464bebf243 100644 --- a/src/rimp2/debugging/stupid_xf.F +++ b/src/rimp2/debugging/stupid_xf.F @@ -1,5 +1,5 @@ Subroutine Stupid_XF(G_C, G_V, AOBas, FitBas) -C$Id: stupid_xf.F,v 1.3 1995-10-17 08:56:02 d3g681 Exp $ +C$Id$ Implicit NONE C Integer G_C, G_V, AOBas, FitBas diff --git a/src/rimp2/dgecop.F b/src/rimp2/dgecop.F index 56c4638853..bce53d2b08 100644 --- a/src/rimp2/dgecop.F +++ b/src/rimp2/dgecop.F @@ -4,7 +4,7 @@ Subroutine DGeCop (TRANSA, M, N, A, LDA, B, LDB) #endif C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: -C $Id: dgecop.F,v 1.6 2009-02-11 19:04:54 jhammond Exp $ +C $Id$ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: C NAME C dgecop, sgecop -- copies one matrix into another diff --git a/src/rimp2/eval_3ci.F b/src/rimp2/eval_3ci.F index e88fc91735..4c6f29457a 100644 --- a/src/rimp2/eval_3ci.F +++ b/src/rimp2/eval_3ci.F @@ -4,7 +4,7 @@ C Eval_3ci_block -- Produce a block of three-center integrals for c the shell block ranges specified. C C REVISION -C $Id: eval_3ci.F,v 1.2 2003-10-17 22:58:10 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine Eval_3ci_block(UseERI, AOBas, PShLo, PShHi, QShLo, diff --git a/src/rimp2/ftnio.fh b/src/rimp2/ftnio.fh index f6661cbf9e..4dea843704 100644 --- a/src/rimp2/ftnio.fh +++ b/src/rimp2/ftnio.fh @@ -5,7 +5,7 @@ C unformatted direct access files. C Integer MT_DAFRecL #if defined(sun) || defined(IBM) || defined(SP1) || defined(_CRAY) || defined(__ksr__) || (defined(LINUX)&&!defined(__alpha)) || defined(WIN32) || defined(MACX) -C$Id: ftnio.fh,v 1.16 2008-10-23 20:20:28 d3p307 Exp $ +C$Id$ Parameter ( MT_DAFRecL = MT_BYTE ) #elif defined(__PARAGON__) || defined(__IPSC__) ||defined(HPUX) ||defined(FUJITSU_VPP) || defined(FUJITSU_VPP64) Parameter ( MT_DAFRecL = MT_BYTE ) diff --git a/src/rimp2/ga_by_shells.F b/src/rimp2/ga_by_shells.F index d3578e047c..c87d60a9b3 100644 --- a/src/rimp2/ga_by_shells.F +++ b/src/rimp2/ga_by_shells.F @@ -4,7 +4,7 @@ C ga_create_one_by_shells -- Create a global array with a single C block in one dimension and shell blocking in the other. C C REVISION -C $Id: ga_by_shells.F,v 1.1 1995-12-13 01:36:45 d3g681 Exp $ +C $Id$ C C SYNOPSIS Logical Function GA_Create_one_by_shells(Type, Dim1, Basis, Name, diff --git a/src/rimp2/get_3cints.F b/src/rimp2/get_3cints.F index 587cf25b73..759129cd23 100644 --- a/src/rimp2/get_3cints.F +++ b/src/rimp2/get_3cints.F @@ -1,5 +1,5 @@ Logical Function Get_3cInts(LU, G_I, NA, ILo, IHi) -C$Id: get_3cints.F,v 1.12 2003-10-17 22:58:10 carlfahl Exp $ +C$Id$ Implicit NONE #include "errquit.fh" Integer LU, G_I, NA, ILo, IHi diff --git a/src/rimp2/iamax.f b/src/rimp2/iamax.f index 8a1adc5480..21731d76b8 100644 --- a/src/rimp2/iamax.f +++ b/src/rimp2/iamax.f @@ -1,6 +1,6 @@ Integer Function IAMAX( N, IX, IncX) C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: -C $Id: iamax.f,v 1.2 1995-12-16 21:06:33 gg502 Exp $ +C $Id$ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: C NAME C iamax -- maximum absolute value of an integer vector diff --git a/src/rimp2/lnblnk.f b/src/rimp2/lnblnk.f index 5e8b9c1fe3..f060c421e1 100644 --- a/src/rimp2/lnblnk.f +++ b/src/rimp2/lnblnk.f @@ -35,7 +35,7 @@ C System: Standard FORTRAN 77 C C Copyright 1987 David E. Bernholdt C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: -C$Id: lnblnk.f,v 1.4 1995-12-16 21:06:36 gg502 Exp $ +C$Id$ IMPLICIT NONE INTEGER I CHARACTER*(*) STRING diff --git a/src/rimp2/max_v_diag.F b/src/rimp2/max_v_diag.F index fb1fc57219..ade6a6cf2c 100644 --- a/src/rimp2/max_v_diag.F +++ b/src/rimp2/max_v_diag.F @@ -1,5 +1,5 @@ Subroutine Max_V_Diagonal(Basis, Big) -C$Id: max_v_diag.F,v 1.3 2003-10-17 22:58:10 carlfahl Exp $ +C$Id$ Implicit NONE #include "errquit.fh" Integer Basis diff --git a/src/rimp2/mk_1d_shdist.F b/src/rimp2/mk_1d_shdist.F index e363d535da..b577e6a1ab 100644 --- a/src/rimp2/mk_1d_shdist.F +++ b/src/rimp2/mk_1d_shdist.F @@ -4,7 +4,7 @@ C Mk_1d_shell_dist -- compute mapping array for distibution C of an array blocked by shells. C C REVISION -C $Id: mk_1d_shdist.F,v 1.1 1995-12-13 01:36:49 d3g681 Exp $ +C $Id$ C C SYNOPSIS Logical Function Mk_1d_Shell_Dist(Basis, NProc, MinChunk, diff --git a/src/rimp2/mk_v.F b/src/rimp2/mk_v.F index 5ba4bef959..676f935147 100644 --- a/src/rimp2/mk_v.F +++ b/src/rimp2/mk_v.F @@ -3,7 +3,7 @@ C NAME C mk_v -- Form V^{-1/2} C C REVISION -C $Id: mk_v.F,v 1.2 1995-10-17 08:55:48 d3g681 Exp $ +C $Id$ C C SYNOPSIS Logical Function Mk_V(Basis, MinEval, G_V) diff --git a/src/rimp2/occ_ranges.F b/src/rimp2/occ_ranges.F index 6ca659b266..0d1875dd98 100644 --- a/src/rimp2/occ_ranges.F +++ b/src/rimp2/occ_ranges.F @@ -4,7 +4,7 @@ C occ_ranges -- Convert an occupation vector into ranges of occupied C and virtual orbitals C C REVISION -C $Id: occ_ranges.F,v 1.1 1994-06-14 21:54:26 gg502 Exp $ +C $Id$ C C SYNOPSIS Subroutine Occ_Ranges( N, Occ, OLo, OHi, VLo, VHi) diff --git a/src/rimp2/open_3ci.F b/src/rimp2/open_3ci.F index 140d9f380b..3881bb2f5c 100644 --- a/src/rimp2/open_3ci.F +++ b/src/rimp2/open_3ci.F @@ -1,6 +1,6 @@ Logical function Open_3cI_File(LU, Name, Spin, NA, NI, G_Out, , filnam) -C$Id: open_3ci.F,v 1.11 2003-10-17 22:58:10 carlfahl Exp $ +C$Id$ Implicit NONE #include "errquit.fh" Integer LU, Spin, NA, NI, G_Out diff --git a/src/rimp2/panel_diag.f b/src/rimp2/panel_diag.f index db91a8d2fe..42f33ceead 100644 --- a/src/rimp2/panel_diag.f +++ b/src/rimp2/panel_diag.f @@ -4,7 +4,7 @@ C panel_diagonal -- Locate the piece of the diagonal running through C the panel. C C REVISION -C $Id: panel_diag.f,v 1.1 1995-12-13 01:36:53 d3g681 Exp $ +C $Id$ C C SYNOPSIS Logical function Panel_Diagonal( Ilo, Ihi, Jlo, Jhi, Dlo, Dhi) diff --git a/src/rimp2/pr_corr_map.F b/src/rimp2/pr_corr_map.F index 8ac7aed38b..32b514a610 100644 --- a/src/rimp2/pr_corr_map.F +++ b/src/rimp2/pr_corr_map.F @@ -4,7 +4,7 @@ C print_correl_map -- Print mapping from correlated orbitals to C the full SCF reference, along with occupations and eigenvalues. C C REVISION -C $Id: pr_corr_map.F,v 1.2 2003-10-17 22:58:10 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine Print_Correl_Map(LUN, M, N, Map, LDMap, MFmt, diff --git a/src/rimp2/prog_report.F b/src/rimp2/prog_report.F index 84842f173a..c59d00eb6a 100644 --- a/src/rimp2/prog_report.F +++ b/src/rimp2/prog_report.F @@ -4,7 +4,7 @@ C progress_report -- Give the user a progress report for time- C consuming operations C C REVISION -C $Id: prog_report.F,v 1.3 1998-04-19 02:24:47 gg502 Exp $ +C $Id$ C C SYNOPSIS Subroutine Progress_Report(LUN, Msg) diff --git a/src/rimp2/put_3cints.F b/src/rimp2/put_3cints.F index 9c187828ee..56d7deee55 100644 --- a/src/rimp2/put_3cints.F +++ b/src/rimp2/put_3cints.F @@ -1,5 +1,5 @@ Logical Function Put_3cInts(LU, G_I, NA, ILo, IHi) -C$Id: put_3cints.F,v 1.13 2003-10-17 22:58:10 carlfahl Exp $ +C$Id$ Implicit NONE #include "errquit.fh" Integer LU, G_I, NA, ILo, IHi diff --git a/src/rimp2/rimp2.F b/src/rimp2/rimp2.F index 4d3feaeb6a..710721e743 100644 --- a/src/rimp2/rimp2.F +++ b/src/rimp2/rimp2.F @@ -1,5 +1,5 @@ Logical Function RIMP2( RTDB ) -C$Id: rimp2.F,v 1.50 2009-02-04 01:18:01 niri Exp $ +C$Id$ Implicit NONE #include "errquit.fh" Integer RTDB diff --git a/src/rimp2/rimp2_denom.F b/src/rimp2/rimp2_denom.F index f559eb175d..f4f6dff8e9 100644 --- a/src/rimp2/rimp2_denom.F +++ b/src/rimp2/rimp2_denom.F @@ -3,7 +3,7 @@ C NAME C rimp2_denom -- Apply denominators to a global array of integrals C C REVISION -C $Id: rimp2_denom.F,v 1.5 2005-01-04 19:46:54 edo Exp $ +C $Id$ C Subroutine RIMP2_Denom(G_Ints, BaseI, BaseJ, NVirI, NVirJ, $ OccEigI, OccEigJ, VirEigI, VirEigJ) diff --git a/src/rimp2/rimp2_e_mem.F b/src/rimp2/rimp2_e_mem.F index 45ec7c3e0c..3e2cdfac9b 100644 --- a/src/rimp2/rimp2_e_mem.F +++ b/src/rimp2/rimp2_e_mem.F @@ -3,7 +3,7 @@ C NAME C rimp2_e_mem -- Determine optimal memory usage for energy calc. C C REVISION -C $Id: rimp2_e_mem.F,v 1.6 2009-02-03 14:39:52 jhammond Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_E_Mem(TopSpin, NOcc, NVir, FitBas, Mode, diff --git a/src/rimp2/rimp2_parm.F b/src/rimp2/rimp2_parm.F index 2ae91cd1e0..040ba6a424 100644 --- a/src/rimp2/rimp2_parm.F +++ b/src/rimp2/rimp2_parm.F @@ -1,6 +1,6 @@ Subroutine RIMP2_Get_Param( RTDB, Thresh, MxTBatch, Mem_Opt, $ MxEBatch, Approx, MinEVal) -C$Id: rimp2_parm.F,v 1.7 2003-10-17 22:58:10 carlfahl Exp $ +C$Id$ Implicit NONE #include "errquit.fh" Integer RTDB, MxTBatch, MxEBatch(2) diff --git a/src/rimp2/rimp2_timers.F b/src/rimp2/rimp2_timers.F index 906337cc7b..9104fb15a8 100644 --- a/src/rimp2/rimp2_timers.F +++ b/src/rimp2/rimp2_timers.F @@ -1,5 +1,5 @@ Subroutine RIMP2_PStat_Init -C$Id: rimp2_timers.F,v 1.7 2003-10-17 22:58:10 carlfahl Exp $ +C$Id$ Implicit NONE #include "errquit.fh" C diff --git a/src/rimp2/rimp2_timers.fh b/src/rimp2/rimp2_timers.fh index 93359faec1..8429c81a50 100644 --- a/src/rimp2/rimp2_timers.fh +++ b/src/rimp2/rimp2_timers.fh @@ -4,7 +4,7 @@ C rimp2_timers.fh -- common block which holds timer handles for RIMP2 C module C C REVISION -C $Id: rimp2_timers.fh,v 1.3 1995-06-20 20:12:32 gg502 Exp $ +C $Id$ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Integer PS_Overall, PS_XForm, PS_Energy, PS_Int_Gen, PS_Step12, $ PS_Step3, PS_Wr_3ci, PS_Rd_3ci, PS_Fit_xf, PS_Schwarz, diff --git a/src/rimp2/rimp2_v_e2.F b/src/rimp2/rimp2_v_e2.F index e92ea6e704..86ade01df3 100644 --- a/src/rimp2/rimp2_v_e2.F +++ b/src/rimp2/rimp2_v_e2.F @@ -3,7 +3,7 @@ C NAME C rimp2_v_e2 -- Evaluate MP2 energy using V-approximation 3 ctr ints. C C REVISION -C $Id: rimp2_v_e2.F,v 1.30 2005-01-04 23:40:26 edo Exp $ +C $Id$ C C SYNOPSIS Logical Function RIMP2_V_E2(D_Int, FNInt, TopSpin, NMO, diff --git a/src/rimp2/rimp2_xf.F b/src/rimp2/rimp2_xf.F index b7906137ce..0b4934ba32 100644 --- a/src/rimp2/rimp2_xf.F +++ b/src/rimp2/rimp2_xf.F @@ -4,7 +4,7 @@ C RIMP2_XF_Driver -- Three-center integral transformation for V C approximation RIMP2 calculation C C REVISION -C $Id: rimp2_xf.F,v 1.8 2003-10-17 22:58:10 carlfahl Exp $ +C $Id$ C C SYNOPSIS Logical Function RIMP2_XF_Driver(RTDB, Geom, AOBas, FitBas, diff --git a/src/rimp2/sum_pairs.F b/src/rimp2/sum_pairs.F index 4a5db83900..ea6990865b 100644 --- a/src/rimp2/sum_pairs.F +++ b/src/rimp2/sum_pairs.F @@ -4,7 +4,7 @@ C sum_pairs -- Sum up a matrix of pair energies to give an MBPT(2) C energy. C C REVISION -C $Id: sum_pairs.F,v 1.4 2005-01-04 19:46:54 edo Exp $ +C $Id$ C C SYNOPSIS Double Precision Function Sum_Pairs( G_PairE, LowTri) diff --git a/src/rimp2/xf3ci_mem12.F b/src/rimp2/xf3ci_mem12.F index 8bfa2dd232..f9924e6e2d 100644 --- a/src/rimp2/xf3ci_mem12.F +++ b/src/rimp2/xf3ci_mem12.F @@ -4,7 +4,7 @@ C xf3ci_mem12 -- Compute best local memory usage for transformation c steps 1 and 2 C C REVISION -C $Id: xf3ci_mem12.F,v 1.1 1994-10-31 17:26:06 gg502 Exp $ +C $Id$ C C SYNOPSIS Subroutine XF3cI_Mem12( MAvail, PMin, QMin, SMin, PMax, QMax, diff --git a/src/rimp2/xf3ci_s12a.F b/src/rimp2/xf3ci_s12a.F index d448998979..bb2ce0fc80 100644 --- a/src/rimp2/xf3ci_s12a.F +++ b/src/rimp2/xf3ci_s12a.F @@ -4,7 +4,7 @@ C XF3cI_Step12a -- Do the first two steps of the three-center C integral transformation C C REVISION -C $Id: xf3ci_s12a.F,v 1.2 2003-10-17 22:58:10 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine XF3cI_Step12a(UseERI, AOBas, PDim, QDim, FitBas, diff --git a/src/rimp2/xf3ci_s12b.F b/src/rimp2/xf3ci_s12b.F index 3a718519e3..6d8d09610f 100644 --- a/src/rimp2/xf3ci_s12b.F +++ b/src/rimp2/xf3ci_s12b.F @@ -5,7 +5,7 @@ c accumulating the result for a complete pass through the innermost c index. C C REVISION -C $Id: xf3ci_s12b.F,v 1.3 2003-10-17 22:58:10 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine XF3cI_Step12b(UseERI, AOBas, PShLo, PShHi, PDim, diff --git a/src/rimp2/xf3ci_step12.F b/src/rimp2/xf3ci_step12.F index dff14da5a8..c1d17577f2 100644 --- a/src/rimp2/xf3ci_step12.F +++ b/src/rimp2/xf3ci_step12.F @@ -4,7 +4,7 @@ C XF3cI_Step12 -- Do the first two steps of the three-center C integral transformation C C REVISION -C $Id: xf3ci_step12.F,v 1.17 2005-01-04 19:46:54 edo Exp $ +C $Id$ C C SYNOPSIS Logical Function XF3cI_Step12(RTDB, Geom, IntTyp, diff --git a/src/rimp2/xf3ci_step3.F b/src/rimp2/xf3ci_step3.F index c4390d5b48..a20401242f 100644 --- a/src/rimp2/xf3ci_step3.F +++ b/src/rimp2/xf3ci_step3.F @@ -4,7 +4,7 @@ C XF3cI_Step3 -- Do the last step of the three-center integral C transformation C C REVISION -C $Id: xf3ci_step3.F,v 1.4 1997-04-01 03:43:35 gg502 Exp $ +C $Id$ C C SYNOPSIS Logical Function XF3cI_Step3(G_In, NAIn, NIIn, diff --git a/src/rimp2/xform_3cints.F b/src/rimp2/xform_3cints.F index 55ad2a9aab..848a685dd2 100644 --- a/src/rimp2/xform_3cints.F +++ b/src/rimp2/xform_3cints.F @@ -3,7 +3,7 @@ C NAME C XForm_3cInts -- Produce transformed three-center integrals C C REVISION -C $Id: xform_3cints.F,v 1.16 2003-10-17 22:58:10 carlfahl Exp $ +C $Id$ C C SYNOPSIS Logical Function XForm_3cInts(RTDB, Geom, Type3ci, AOBas, FitBas, diff --git a/src/rimp2_grad/GNUmakefile b/src/rimp2_grad/GNUmakefile index 1ddaab41b3..d0f3b4d01f 100644 --- a/src/rimp2_grad/GNUmakefile +++ b/src/rimp2_grad/GNUmakefile @@ -1,4 +1,4 @@ -# $Id: GNUmakefile,v 1.2 1999-06-01 17:10:34 gg502 Exp $ +# $Id$ # Note: To switch on disk arrays, uncomment the DEFINE +=... after the # includes. Do NOT move the DEFINE ahead of the includes or it won't # have the desired effect. diff --git a/src/rimp2_grad/NOTES b/src/rimp2_grad/NOTES index c5ba8fbfce..65f8cdb2cd 100644 --- a/src/rimp2_grad/NOTES +++ b/src/rimp2_grad/NOTES @@ -1,4 +1,4 @@ -$Id: NOTES,v 1.8 1999-05-28 17:30:15 gg502 Exp $ +$Id$ In some cases, the current implementation has been left with some holes to fill in for generality. diff --git a/src/rimp2_grad/TEMPLATE b/src/rimp2_grad/TEMPLATE index 8749097742..f502966bc1 100644 --- a/src/rimp2_grad/TEMPLATE +++ b/src/rimp2_grad/TEMPLATE @@ -3,7 +3,7 @@ C NAME C C C REVISION -C $Id: TEMPLATE,v 1.1 1998-07-20 00:32:00 bernhold Exp $ +C $Id$ C C SYNOPSIS Implicit NONE diff --git a/src/rimp2_grad/asym_i.F b/src/rimp2_grad/asym_i.F index 6cea88aad2..a38cdcea6e 100644 --- a/src/rimp2_grad/asym_i.F +++ b/src/rimp2_grad/asym_i.F @@ -3,7 +3,7 @@ C NAME C RIMP2_Asym_I -- Antisymmetrize IJ integral batch in memory C C REVISION -C $Id: asym_i.F,v 1.3 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Logical Function RIMP2_Asym_I(TopSpin, SameSpin, ILo, IHi, NVirI, diff --git a/src/rimp2_grad/clean_sep.F b/src/rimp2_grad/clean_sep.F index f9135908e8..6fd43839a4 100644 --- a/src/rimp2_grad/clean_sep.F +++ b/src/rimp2_grad/clean_sep.F @@ -3,7 +3,7 @@ C NAME C rimp2_clean_sep -- Clean up after separable gradient terms C C REVISION -C $Id: clean_sep.F,v 1.2 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_Clean_Sep(TopSpin) diff --git a/src/rimp2_grad/create_dra.F b/src/rimp2_grad/create_dra.F index db94ef896c..8c858a26f3 100644 --- a/src/rimp2_grad/create_dra.F +++ b/src/rimp2_grad/create_dra.F @@ -3,7 +3,7 @@ C NAME C rimp2_create_dra -- Create DRAs to previously computed sizes C C REVISION -C $Id: create_dra.F,v 1.2 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_Create_DRA(MaxSpin, TopSpin, NFit, BraKetSame, diff --git a/src/rimp2_grad/delete_dra.F b/src/rimp2_grad/delete_dra.F index 29d79b8442..809306c6a4 100644 --- a/src/rimp2_grad/delete_dra.F +++ b/src/rimp2_grad/delete_dra.F @@ -3,7 +3,7 @@ C NAME C RIMP2_Delete_DRA -- Close and delete DRAs C C REVISION -C $Id: delete_dra.F,v 1.2 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_Delete_DRA(MaxSpin, TopSpin, BraKetSame, diff --git a/src/rimp2_grad/denom2.F b/src/rimp2_grad/denom2.F index db622c9479..8be094918c 100644 --- a/src/rimp2_grad/denom2.F +++ b/src/rimp2_grad/denom2.F @@ -3,7 +3,7 @@ C NAME C rimp2_denom2 -- Apply denominators to a global array of integrals C C REVISION -C $Id: denom2.F,v 1.1 1998-07-06 21:09:28 bernhold Exp $ +C $Id$ C Subroutine RIMp2_denom2(IJSym, IJTri, G_T, ILo, IHi, JLo, JHi, $ NVirI, NVirJ, diff --git a/src/rimp2_grad/doc/GNUmakefile b/src/rimp2_grad/doc/GNUmakefile index c2f5beed40..64a48cb745 100644 --- a/src/rimp2_grad/doc/GNUmakefile +++ b/src/rimp2_grad/doc/GNUmakefile @@ -1,4 +1,4 @@ -# $Id: GNUmakefile,v 1.1 1998-07-09 23:30:46 bernhold Exp $ +# $Id$ rimp2-grad.dvi dvi: rimp2-grad.tex changebar.sty subeqnarray.sty geometry.sty latex rimp2-grad diff --git a/src/rimp2_grad/driver_e.F b/src/rimp2_grad/driver_e.F index b1792000cb..689e482494 100644 --- a/src/rimp2_grad/driver_e.F +++ b/src/rimp2_grad/driver_e.F @@ -3,7 +3,7 @@ C NAME C RIMP2_Driver_E -- Master routine for RI-MP2 energy evaluation C C REVISION -C $Id: driver_e.F,v 1.9 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Logical Function RIMP2_DRIVER_E(MaxSpin, BraKetSame, diff --git a/src/rimp2_grad/driver_g.F b/src/rimp2_grad/driver_g.F index f7d559247f..744a49fb7a 100644 --- a/src/rimp2_grad/driver_g.F +++ b/src/rimp2_grad/driver_g.F @@ -3,7 +3,7 @@ C NAME C RIMP2_Driver_G -- Master routine for RI-MP2 gradient evaluation C C REVISION -C $Id: driver_g.F,v 1.14 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Logical Function RIMP2_Driver_G(RTDB, Geom, AOBas, NAO, diff --git a/src/rimp2_grad/driver_p.F b/src/rimp2_grad/driver_p.F index 69b82474fc..8356f09bee 100644 --- a/src/rimp2_grad/driver_p.F +++ b/src/rimp2_grad/driver_p.F @@ -3,7 +3,7 @@ C NAME C RIMP2_Driver_P -- Master routine for RI-MP2 density evaluation C C REVISION -C $Id: driver_p.F,v 1.5 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Logical Function RIMP2_Driver_P(RTDB, Geom, AOBas, NAO, diff --git a/src/rimp2_grad/driver_xf.F b/src/rimp2_grad/driver_xf.F index 7af617a7f4..391ece69a2 100644 --- a/src/rimp2_grad/driver_xf.F +++ b/src/rimp2_grad/driver_xf.F @@ -3,7 +3,7 @@ C NAME C RIMP2_Driver_XF -- Three-center integral transformation driver for RI-MP2 C C REVISION -C $Id: driver_xf.F,v 1.7 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Logical Function RIMP2_Driver_XF(RTDB, Geom, AOBas, diff --git a/src/rimp2_grad/e_final.F b/src/rimp2_grad/e_final.F index 943e71f888..1bdf67cf4e 100644 --- a/src/rimp2_grad/e_final.F +++ b/src/rimp2_grad/e_final.F @@ -3,7 +3,7 @@ C NAME C rimp2_e_final -- Complete evaluation of energy C C REVISION -C $Id: e_final.F,v 1.1 1998-07-06 21:09:51 bernhold Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_E_Final(TopSpin, G_PairE, Contrib, E2) diff --git a/src/rimp2_grad/e_ij.F b/src/rimp2_grad/e_ij.F index 861c73034d..ee6d12acb2 100644 --- a/src/rimp2_grad/e_ij.F +++ b/src/rimp2_grad/e_ij.F @@ -3,7 +3,7 @@ C NAME C RIMP2_E_IJ -- Evaluate RI-MP2 energy contributions for IJ batch C C REVISION -C $Id: e_ij.F,v 1.3 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_E_IJ(TopSpin, SameSpin, ILo, IHi, NVirI, diff --git a/src/rimp2_grad/g_ij.F b/src/rimp2_grad/g_ij.F index 79bd085f4f..8576c57e0b 100644 --- a/src/rimp2_grad/g_ij.F +++ b/src/rimp2_grad/g_ij.F @@ -3,7 +3,7 @@ C NAME C RIMP2_G_IJ -- Evaluate RI-MP2 gradient contributions for IJ batch C C REVISION -C $Id: g_ij.F,v 1.5 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_G_IJ(TopSpin, SameSpin, NFrzI, ILo, IHi, NVirI, diff --git a/src/rimp2_grad/gamma3.F b/src/rimp2_grad/gamma3.F index b36b01e828..26a4854d8d 100644 --- a/src/rimp2_grad/gamma3.F +++ b/src/rimp2_grad/gamma3.F @@ -3,7 +3,7 @@ C NAME C RIMP2_Gamma3 -- Form 3-index Gamma from 3e2c and 4-index Gamma C C REVISION -C $Id: gamma3.F,v 1.4 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_Gamma3(IJSym, IJTri, ILo, IHi, NVirI, JLo, JHi, diff --git a/src/rimp2_grad/ij_int.F b/src/rimp2_grad/ij_int.F index f65b4df220..5cf194cc41 100644 --- a/src/rimp2_grad/ij_int.F +++ b/src/rimp2_grad/ij_int.F @@ -3,7 +3,7 @@ C NAME C RIMP2_IJ_Int -- Get integrals for IJ block C C REVISION -C $Id: ij_int.F,v 1.2 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_IJ_Int(IJSame, D_I, ILo, IHi, NA, diff --git a/src/rimp2_grad/l1.F b/src/rimp2_grad/l1.F index 083a44b268..541d274306 100644 --- a/src/rimp2_grad/l1.F +++ b/src/rimp2_grad/l1.F @@ -3,7 +3,7 @@ C NAME C rimp2_l1 -- Compute RI-MP2 L1 Lagrangian term C C REVISION -C $Id: l1.F,v 1.5 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_L1(NFrzO, NAct, NVir, NFit, D_Int, D_Gam, diff --git a/src/rimp2_grad/l2.F b/src/rimp2_grad/l2.F index 2e668c0c5a..38ca88067d 100644 --- a/src/rimp2_grad/l2.F +++ b/src/rimp2_grad/l2.F @@ -3,7 +3,7 @@ C NAME C rimp2_l2 -- Compute RI-MP2 L2 Lagrangian term C C REVISION -C $Id: l2.F,v 1.7 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_L2(C, A, V, NFit, D_Int_ai, d_Int_ij, D_Gam, diff --git a/src/rimp2_grad/mk_l.F b/src/rimp2_grad/mk_l.F index abc441c17d..aa05391a21 100644 --- a/src/rimp2_grad/mk_l.F +++ b/src/rimp2_grad/mk_l.F @@ -3,7 +3,7 @@ C NAME C RIMP2_Mk_L -- Form Lagrangian terms & their contributions elsewhere C C REVISION -C $Id: mk_l.F,v 1.11 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_Mk_L(RTDB, Geom, AOBas, TopSpin, NFrzO, NAct, diff --git a/src/rimp2_grad/mk_t.F b/src/rimp2_grad/mk_t.F index 8b1153341c..e669fe4d84 100644 --- a/src/rimp2_grad/mk_t.F +++ b/src/rimp2_grad/mk_t.F @@ -3,7 +3,7 @@ CNAME C RIMP2_Mk_T -- Form T amplitudes for IJ batch in memory C C REVISION -C $Id: mk_t.F,v 1.2 1998-07-14 16:18:37 bernhold Exp $ +C $Id$ C C SYNOPSIS Logical Function RIMP2_Mk_T(ILo, IHi, NVirI, JLo, JHi, NVirJ, diff --git a/src/rimp2_grad/mk_w2.F b/src/rimp2_grad/mk_w2.F index 383caab395..1d52c77788 100644 --- a/src/rimp2_grad/mk_w2.F +++ b/src/rimp2_grad/mk_w2.F @@ -3,7 +3,7 @@ C NAME C RIMP2_Mk_W2 -- Complete formation of W2 C C REVISION -C $Id: mk_w2.F,v 1.6 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_Mk_W2(RTDB, Geom, AOBas, TopSpin, NFrzO, NAct, diff --git a/src/rimp2_grad/nonsep2.F b/src/rimp2_grad/nonsep2.F index f13032411f..3470fc8d49 100644 --- a/src/rimp2_grad/nonsep2.F +++ b/src/rimp2_grad/nonsep2.F @@ -3,7 +3,7 @@ C NAME C RIMP2_NonSep2 -- Non-separable gradient contrib from 2c integrals C C REVISION -C $Id: nonsep2.F,v 1.4 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_NonSep2(BraKetSame, TopSpin, NFrzO, NAct, NVir, diff --git a/src/rimp2_grad/ns2_2e2c.F b/src/rimp2_grad/ns2_2e2c.F index 27010c96a8..968d8e1a14 100644 --- a/src/rimp2_grad/ns2_2e2c.F +++ b/src/rimp2_grad/ns2_2e2c.F @@ -4,7 +4,7 @@ C RIMP2_NS2_2e2c -- 2c2e derivative integrals for non-sep 2-c C contribution to gradient C C REVISION./rimp2_grad/ns2_2e2c.F -C $Id: ns2_2e2c.F,v 1.3 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_NS2_2e2c(FitBas, Buf, LBuf, Scr, LScr, g_V, diff --git a/src/rimp2_grad/ns2_i3g3.F b/src/rimp2_grad/ns2_i3g3.F index f607d6d846..6df7ae5f7e 100644 --- a/src/rimp2_grad/ns2_i3g3.F +++ b/src/rimp2_grad/ns2_i3g3.F @@ -4,7 +4,7 @@ C RIMP2_NS2_I3G3 -- Contraction of 3-c integrals with Gamma3 for C non-separable 2-c contribution to gradient C C REVISION -C $Id: ns2_i3g3.F,v 1.2 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_NS2_I3G3(NFrzO, NAct, NVir, NFit, diff --git a/src/rimp2_grad/p2ab.F b/src/rimp2_grad/p2ab.F index 895fa886f9..1cd29db5b9 100644 --- a/src/rimp2_grad/p2ab.F +++ b/src/rimp2_grad/p2ab.F @@ -3,7 +3,7 @@ C NAME C RIMP2_P2ab -- Form P^{(2)}_{ab} for batch in memory C C REVISION -C $Id: p2ab.F,v 1.4 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_P2AB(SameSpin, IJSym, IJTri, ILo, IHi, NVirI, diff --git a/src/rimp2_grad/p2am.F b/src/rimp2_grad/p2am.F index a2974b1b0e..da0124a84d 100644 --- a/src/rimp2_grad/p2am.F +++ b/src/rimp2_grad/p2am.F @@ -3,7 +3,7 @@ C NAME C rimp2_p2am -- Solve CPHF eqns for relaxed part of density C C REVISION -C $Id: p2am.F,v 1.8 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_P2am(RTDB, TopSpin, NFrzO, NAct, NVir, g_L, g_P2) diff --git a/src/rimp2_grad/p2ij.F b/src/rimp2_grad/p2ij.F index 7209101e2b..53f550eefe 100644 --- a/src/rimp2_grad/p2ij.F +++ b/src/rimp2_grad/p2ij.F @@ -3,7 +3,7 @@ C NAME C RIMP2_P2ij -- Form P^{(2)}_{ij} for batch in memory C C REVISION -C $Id: p2ij.F,v 1.3 1998-10-12 14:31:27 bernhold Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_P2ij(SameSpin, IJSym, IJTri, ILo, IHi, NVirI, diff --git a/src/rimp2_grad/paire.F b/src/rimp2_grad/paire.F index ab54427043..1ba114b083 100644 --- a/src/rimp2_grad/paire.F +++ b/src/rimp2_grad/paire.F @@ -3,7 +3,7 @@ C NAME C RIMP2_PairE -- Calculate MP2 pair energies for IJ batch in memory C C REVISION -C $Id: paire.F,v 1.1 1998-07-06 21:10:20 bernhold Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_PairE(ILo, IHi, NVirI, JLo, JHi, NVirJ, IJSym, diff --git a/src/rimp2_grad/prep_dra.F b/src/rimp2_grad/prep_dra.F index 9996d8edb0..4bc1c6bb9e 100644 --- a/src/rimp2_grad/prep_dra.F +++ b/src/rimp2_grad/prep_dra.F @@ -3,7 +3,7 @@ C NAME C rimp2_prep_dra -- Setup DRA sizes and names C C REVISION -C $Id: prep_dra.F,v 1.5 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_Prep_DRA(MaxSpin, TopSpin, NFrzO, NAct, NVir, diff --git a/src/rimp2_grad/prep_sep.F b/src/rimp2_grad/prep_sep.F index 145f5d4d5d..818d7bd15a 100644 --- a/src/rimp2_grad/prep_sep.F +++ b/src/rimp2_grad/prep_sep.F @@ -3,7 +3,7 @@ C NAME C rimp2_prep_sep -- Prepare for computation of separable gradient terms C C REVISION -C $Id: prep_sep.F,v 1.2 2003-10-17 22:58:12 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_Prep_Sep(TopSpin, g_P2, g_W2, g_AOXF) diff --git a/src/rimp2_grad/rimp2g.F b/src/rimp2_grad/rimp2g.F index b7adf380b0..5302f30e1e 100644 --- a/src/rimp2_grad/rimp2g.F +++ b/src/rimp2_grad/rimp2g.F @@ -1,5 +1,5 @@ Logical Function RIMP2G( RTDB ) -C$Id: rimp2g.F,v 1.21 2003-10-17 22:58:12 carlfahl Exp $ +C$Id$ Implicit NONE #include "errquit.fh" Integer RTDB diff --git a/src/rimp2_grad/rimp2g_e_mem.F b/src/rimp2_grad/rimp2g_e_mem.F index d51478b94d..afe5a1bedc 100644 --- a/src/rimp2_grad/rimp2g_e_mem.F +++ b/src/rimp2_grad/rimp2g_e_mem.F @@ -3,7 +3,7 @@ C NAME C rimp2g_e_mem -- Determine optimal memory usage for energy calc. C C REVISION -C $Id: rimp2g_e_mem.F,v 1.2 2003-10-17 22:58:13 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2G_E_Mem(TopSpin, NOcc, NVir, FitBas, Mode, diff --git a/src/rimp2_grad/rimp2g_parm.F b/src/rimp2_grad/rimp2g_parm.F index 54d5b28731..6196751286 100644 --- a/src/rimp2_grad/rimp2g_parm.F +++ b/src/rimp2_grad/rimp2g_parm.F @@ -1,6 +1,6 @@ Subroutine RIMP2G_Get_Param( RTDB, Thresh, MxTBatch, Mem_Opt, $ MxEBatch, Approx, MinEVal) -C$Id: rimp2g_parm.F,v 1.3 2003-10-17 22:58:13 carlfahl Exp $ +C$Id$ Implicit NONE #include "errquit.fh" Integer RTDB, MxTBatch, MxEBatch(2) diff --git a/src/rimp2_grad/rimp2g_timers.F b/src/rimp2_grad/rimp2g_timers.F index 6ae75da274..74a6af8535 100644 --- a/src/rimp2_grad/rimp2g_timers.F +++ b/src/rimp2_grad/rimp2g_timers.F @@ -1,5 +1,5 @@ Subroutine RIMP2G_PStat_Init -C$Id: rimp2g_timers.F,v 1.2 2003-10-17 22:58:13 carlfahl Exp $ +C$Id$ Implicit NONE #include "errquit.fh" C diff --git a/src/rimp2_grad/rimp2g_timers.fh b/src/rimp2_grad/rimp2g_timers.fh index c56c6bb028..bf82e31ce8 100644 --- a/src/rimp2_grad/rimp2g_timers.fh +++ b/src/rimp2_grad/rimp2g_timers.fh @@ -4,7 +4,7 @@ C rimp2g_timers.fh -- common block which holds timer handles for RIMP2G C module C C REVISION -C $Id: rimp2g_timers.fh,v 1.1 1998-04-17 21:15:38 gg502 Exp $ +C $Id$ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Integer PS_Overall, PS_XForm, PS_Energy, PS_Int_Gen, PS_Step12, $ PS_Step3, PS_Wr_3ci, PS_Rd_3ci, PS_Fit_xf, PS_Schwarz, diff --git a/src/rimp2_grad/t_stats.F b/src/rimp2_grad/t_stats.F index 30bc3695e4..9ac6ae41c0 100644 --- a/src/rimp2_grad/t_stats.F +++ b/src/rimp2_grad/t_stats.F @@ -3,7 +3,7 @@ C NAME C rimp2_t_stats -- compute statistics on t amplitudes C C REVISION -C $Id: t_stats.F,v 1.2 2003-10-17 22:58:13 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_t_Stats(LowOnly, ILo, IHi, NVirI, JLo, JHi, @@ -155,7 +155,7 @@ C NAME C rimp2_t_stats_merge -- merge statistics on t amplitudes C C REVISION -C $Id: t_stats.F,v 1.2 2003-10-17 22:58:13 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_t_Stats_Merge( TopN, TopN_Ind, TopN_Val) @@ -196,7 +196,7 @@ C NAME C rimp2_t_stats_print -- print statistics on t amplitudes C C REVISION -C $Id: t_stats.F,v 1.2 2003-10-17 22:58:13 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_t_Stats_Print( TopN, TopN_Ind, TopN_Val, @@ -258,7 +258,7 @@ C NAME C rimp2_t_stats_init -- initialize statistics on t amplitudes C C REVISION -C $Id: t_stats.F,v 1.2 2003-10-17 22:58:13 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_t_Stats_Init( TopN, H_TopN_Ind, H_TopN_Val) @@ -303,7 +303,7 @@ C NAME C rimp2_t_stats_term -- terminate statistics on t amplitudes C C REVISION -C $Id: t_stats.F,v 1.2 2003-10-17 22:58:13 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_t_Stats_Term( TopN, H_TopN_Ind, H_TopN_Val) @@ -335,7 +335,7 @@ C NAME C rimp2_t_sort -- specialized sort for t amplitudes C C REVISION -C $Id: t_stats.F,v 1.2 2003-10-17 22:58:13 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_t_Sort( ID, N, Indices, D) @@ -559,7 +559,7 @@ C NAME C rimp2_t_swap -- specialized swap function for t amplitude sort C C REVISION -C $Id: t_stats.F,v 1.2 2003-10-17 22:58:13 carlfahl Exp $ +C $Id$ C C SYNOPSIS Subroutine RIMP2_t_swap( D1, D2, I1, I2) diff --git a/src/rimp2_grad/util_detri.F b/src/rimp2_grad/util_detri.F index 92fad20cb4..581b6eed04 100644 --- a/src/rimp2_grad/util_detri.F +++ b/src/rimp2_grad/util_detri.F @@ -6,7 +6,7 @@ C C SYNOPSIS Subroutine Util_Detriangularize(IJ, I, J) * -* $Id: util_detri.F,v 1.1 2003-10-17 22:41:24 carlfahl Exp $ +* $Id$ * Implicit NONE #include "errquit.fh" diff --git a/src/rimp2_grad/util_sqz_spc.F b/src/rimp2_grad/util_sqz_spc.F index a93fbe0e04..08948a2efb 100644 --- a/src/rimp2_grad/util_sqz_spc.F +++ b/src/rimp2_grad/util_sqz_spc.F @@ -3,7 +3,7 @@ C NAME C util_sqz_spc -- Squeeze multiple spaces from strings C C REVISION -C $Id: util_sqz_spc.F,v 1.1 1998-06-26 21:50:10 bernhold Exp $ +C $Id$ C C SYNOPSIS Subroutine Util_Sqz_Spc(String) diff --git a/src/rimp2_grad/xform_3cintsg.F b/src/rimp2_grad/xform_3cintsg.F index c77d72466d..fc47e1639e 100644 --- a/src/rimp2_grad/xform_3cintsg.F +++ b/src/rimp2_grad/xform_3cintsg.F @@ -3,7 +3,7 @@ C NAME C Xform_3cintsG -- Produce transformed three-center integrals C C REVISION -C $Id: xform_3cintsg.F,v 1.4 2003-10-17 22:58:13 carlfahl Exp $ +C $Id$ C C SYNOPSIS Logical Function Xform_3cintsG(RTDB, Geom, Type3ci, AOBas, FitBas, diff --git a/src/tools/MakeFile b/src/tools/MakeFile index ee78b463b5..fe7d5992f3 100644 --- a/src/tools/MakeFile +++ b/src/tools/MakeFile @@ -1,5 +1,5 @@ # -# $Id: MakeFile,v 1.1 1999-11-17 18:44:54 bjohnson Exp $ +# $Id$ # SUBDIRS = .\ma .\tcgmsg-mpi \ diff --git a/src/tools/README b/src/tools/README index b529d22998..61d2d15ff2 100644 --- a/src/tools/README +++ b/src/tools/README @@ -1,5 +1,5 @@ # -# $Id: README,v 1.5 2008-01-16 18:52:37 d3p307 Exp $ +# $Id$ # Tools are now using a SVN repository under https://svn.pnl.gov/hpctools. diff --git a/src/tools/cvs-tools b/src/tools/cvs-tools index c0c9733132..3351498664 100755 --- a/src/tools/cvs-tools +++ b/src/tools/cvs-tools @@ -1,6 +1,6 @@ #!/bin/csh # -# $Id: cvs-tools,v 1.1 2000-09-08 15:00:01 gg502 Exp $ +# $Id$ # # The subdirectories of tools come from a separate repository, and the # presence of the CVS directory here will make cvs look at only the diff --git a/src/tools/get-tools b/src/tools/get-tools index cbe882fb79..640be10694 100755 --- a/src/tools/get-tools +++ b/src/tools/get-tools @@ -1,6 +1,6 @@ #!/bin/sh # -# $Id: get-tools,v 1.15 2008-08-15 23:24:44 d3p307 Exp $ +# $Id$ # unalias -a diff --git a/src/tools/get-tools-expect b/src/tools/get-tools-expect index 933bd08d86..258f65e3e5 100755 --- a/src/tools/get-tools-expect +++ b/src/tools/get-tools-expect @@ -1,6 +1,6 @@ #!/usr/bin/expect # -# $Id: get-tools-expect,v 1.4 2000-09-12 22:16:04 d3j191 Exp $ +# $Id$ # set release " " # for release edit by hand after branch :) diff --git a/src/tools/get-tools-remote-expect b/src/tools/get-tools-remote-expect index 23668a3142..9e6eefff11 100755 --- a/src/tools/get-tools-remote-expect +++ b/src/tools/get-tools-remote-expect @@ -1,6 +1,6 @@ #!/bin/env expect # -# $Id: get-tools-remote-expect,v 1.4 2000-09-08 15:00:02 gg502 Exp $ +# $Id$ # set release " " # for release edit by hand after branch :) diff --git a/src/uccsdt/acefterms.F b/src/uccsdt/acefterms.F index 75e1fa4318..616feb06fb 100644 --- a/src/uccsdt/acefterms.F +++ b/src/uccsdt/acefterms.F @@ -1,6 +1,6 @@ subroutine uccsdt_acefterms(x_lists) c -c$Id: acefterms.F,v 1.8 2002-10-29 01:09:24 bert Exp $ +c$Id$ c implicit none #include "mafdecls.fh" diff --git a/src/uccsdt/aterm.F b/src/uccsdt/aterm.F index 37c1b637b2..051d42a156 100644 --- a/src/uccsdt/aterm.F +++ b/src/uccsdt/aterm.F @@ -1,6 +1,6 @@ subroutine uccsdt_aterm_init(x_lists) c -c$Id: aterm.F,v 1.9 2002-10-30 01:33:34 bert Exp $ +c$Id$ c implicit none #include "mafdecls.fh" diff --git a/src/uccsdt/bgxterms.F b/src/uccsdt/bgxterms.F index 474cd97275..8d874cadcd 100644 --- a/src/uccsdt/bgxterms.F +++ b/src/uccsdt/bgxterms.F @@ -1,5 +1,5 @@ subroutine uccsdt_bgxterms(d_t,d_b,d_g,d_x) -c $Id: bgxterms.F,v 1.1 2002-09-18 22:02:08 sohirata Exp $ +c $Id$ c c Compute B, X, and G terms defined as follows: c diff --git a/src/uccsdt/cterm.F b/src/uccsdt/cterm.F index 8380d5bb9a..466f3e28c8 100644 --- a/src/uccsdt/cterm.F +++ b/src/uccsdt/cterm.F @@ -1,6 +1,6 @@ subroutine uccsdt_cterm(urange,vrange,qO_handles,qV_handles) c -c$Id: cterm.F,v 1.9 2003-10-25 00:51:20 marat Exp $ +c$Id$ c implicit none #include "mafdecls.fh" diff --git a/src/uccsdt/cuccsdtps.fh b/src/uccsdt/cuccsdtps.fh index c99167993d..36de2b71d3 100644 --- a/src/uccsdt/cuccsdtps.fh +++ b/src/uccsdt/cuccsdtps.fh @@ -1,4 +1,4 @@ -C$Id: cuccsdtps.fh,v 1.1 2000-11-28 00:22:58 d3h449 Exp $ +C$Id$ c c pstat handles for the UCCSDT code c diff --git a/src/uccsdt/eterm.F b/src/uccsdt/eterm.F index de9d6e565b..c2adeb4186 100644 --- a/src/uccsdt/eterm.F +++ b/src/uccsdt/eterm.F @@ -1,6 +1,6 @@ subroutine uccsdt_eterm(qO,qV) c -c$Id: eterm.F,v 1.8 2003-10-25 00:51:20 marat Exp $ +c$Id$ c implicit none #include "mafdecls.fh" diff --git a/src/uccsdt/fterm.F b/src/uccsdt/fterm.F index 8e11224ca2..3520c41a93 100644 --- a/src/uccsdt/fterm.F +++ b/src/uccsdt/fterm.F @@ -1,6 +1,6 @@ subroutine uccsdt_fterm(urange,vrange,lists) c -c$Id: fterm.F,v 1.5 2002-10-08 00:17:48 bert Exp $ +c$Id$ c implicit none #include "mafdecls.fh" diff --git a/src/uccsdt/uccsdt_pstat.F b/src/uccsdt/uccsdt_pstat.F index fbe397a12f..acdb93acc6 100644 --- a/src/uccsdt/uccsdt_pstat.F +++ b/src/uccsdt/uccsdt_pstat.F @@ -1,6 +1,6 @@ block data Duccsdtps #include "cuccsdtps.fh" -C$Id: uccsdt_pstat.F,v 1.2 2003-10-17 22:58:32 carlfahl Exp $ +C$Id$ data ouccsdtps /.false./ ! So that other codes do not break c end