diff -rupN ORIG/ARPACK/SRC/dnapps.f NEW/ARPACK/SRC/dnapps.f
--- ORIG/ARPACK/SRC/dnapps.f	2013-04-15 23:03:29.000000000 +0700
+++ NEW/ARPACK/SRC/dnapps.f	2013-04-15 23:07:05.000000000 +0700
@@ -599,7 +599,9 @@ c     %---------------------------------
 c     |  Move v(:,kplusp-kev+1:kplusp) into v(:,1:kev). |
 c     %-------------------------------------------------%
 c
-      call dlacpy ('A', n, kev, v(1,kplusp-kev+1), ldv, v, ldv)
+      do 150 i = 1, kev
+         call dcopy(n, v(1,kplusp-kev+i), 1, v(1,i), 1)
+  150 continue
 c 
 c     %--------------------------------------------------------------%
 c     | Copy the (kev+1)-st column of (V*Q) in the appropriate place |
diff -rupN ORIG/ARPACK/SRC/dsapps.f NEW/ARPACK/SRC/dsapps.f
--- ORIG/ARPACK/SRC/dsapps.f	2013-04-15 23:03:29.000000000 +0700
+++ NEW/ARPACK/SRC/dsapps.f	2013-04-15 23:07:20.000000000 +0700
@@ -468,7 +468,9 @@ c     %---------------------------------
 c     |  Move v(:,kplusp-kev+1:kplusp) into v(:,1:kev). |
 c     %-------------------------------------------------%
 c
-      call dlacpy ('All', n, kev, v(1,np+1), ldv, v, ldv)
+      do 140 i = 1, kev
+         call dcopy (n, v(1,np+i), 1, v(1,i), 1)
+  140 continue
 c 
 c     %--------------------------------------------%
 c     | Copy the (kev+1)-st column of (V*Q) in the |