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