right fix for ddot/sdot problem on crays

src/nwpw/pspw/cgsd/GNUmakefile

@@ -1,5 +1,5 @@
 #
-# $Id: GNUmakefile,v 1.14 2004-03-09 21:25:57 bylaska Exp $
+# $Id: GNUmakefile,v 1.15 2004-05-06 08:07:54 edo Exp $
 #
  OBJ_OPTIMIZE = \
 		cgsd_input.o \
@@ -28,7 +28,7 @@
 
       LIBRARY = libpspw.a
 
-    USES_BLAS = cgsdv5.F cgsd_energy.F
+    USES_BLAS = cgsdv5.F cgsd_energy.F bybminimize.F
 
   LIB_DEFINES = 
   LIB_INCLUDES = -I../../nwpwlib/include

src/nwpw/pspw/cgsd/bybminimize.F

@@ -1,5 +1,5 @@
 c
-c     $Id: bybminimize.F,v 1.14 2004-05-06 07:09:15 edo Exp $                       
+c     $Id: bybminimize.F,v 1.15 2004-05-06 08:07:54 edo Exp $                       
 c
 
 *  ************************************************************
@@ -105,8 +105,6 @@ c
 
       real*8   psi_1_noupdate_energy,psi_eigenvalue
       external psi_1_noupdate_energy,psi_eigenvalue
-      double precision ddot
-      external ddot
    
       Ein = E(1)
       call Parallel_taskid(taskid)

src/tce/GNUmakefile

@@ -1,4 +1,4 @@
-#$Id: GNUmakefile,v 1.24 2004-02-01 22:08:57 sohirata Exp $
+#$Id: GNUmakefile,v 1.25 2004-05-06 08:08:42 edo Exp $
 #
 # CCSDTQ, CCSDTQ_LAMBDA, EOM-CCSDTQ will not be compiled by default.
 # To include these, setenv CCSDTQ yes; make realclean; make.
@@ -32,7 +32,7 @@ LIB_INCLUDES = -I./include
 
 LIBRARY = libtce.a
 
-USES_BLAS = 
+USES_BLAS = tce_residual_t1.F
 
 LIB_DEFINES = -DDEBUG_PRINT
 #

src/tce/tce_residual_t1.F

@@ -1,6 +1,6 @@
       subroutine tce_residual_t1(d_r1,k_r1_offset,residual)
 c
-c $Id: tce_residual_t1.F,v 1.8 2004-05-06 07:13:25 edo Exp $
+c $Id: tce_residual_t1.F,v 1.9 2004-05-06 08:08:42 edo Exp $
 c
       implicit none
 #include "global.fh"
@@ -23,8 +23,6 @@ c
       integer next
       integer nxtval
       external nxtval
-      double precision ddot
-      external ddot
       logical nodezero
 c
 c     =====================