From faf0b9003666d072dcffc720b2e9f456e34478f5 Mon Sep 17 00:00:00 2001
From: Robert Harrison <robert.harrison@stonybrook.edu>
Date: Thu, 25 Jan 1996 23:15:38 +0000
Subject: [PATCH] sngl_to_dbl

---
 src/moints/moints_semi.F | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/moints/moints_semi.F b/src/moints/moints_semi.F
index c4f1429cba..cbe4777599 100644
--- a/src/moints/moints_semi.F
+++ b/src/moints/moints_semi.F
@@ -1,4 +1,3 @@
-c
 c==========================================================
 c  This stupid section is to try an localize the
 c  interface differences between CRAY and the rest
@@ -19,6 +18,7 @@ c
       len = inp_strlen(fname)
       call wopen( unit, fname, len, nblk, istat, ierr )
 #else
+      integer i
       double precision fdummy
       character*8 aunit
       equivalence (fdummy,aunit)
@@ -86,14 +86,14 @@ c
       double precision xu
 
       xu = dunits(unit)
-      call getwa( xu, v, addr, rlen, ierr )
+      call getwa( xu, v, addr, len, ierr )
 #endif
       return
       end
 
 
 c
-c  $Id: moints_semi.F,v 1.11 1996-01-19 07:31:52 d3g681 Exp $
+c  $Id: moints_semi.F,v 1.12 1996-01-25 23:15:38 d3g681 Exp $
 c
 c  Generates and writes out half-transformed 
 c  Coulomb and exchange integrals for some multipassed