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 |