shorten lines

Author: dpo

complex16/zreorth.F

@@ -171,8 +171,8 @@ subroutine zcgs(n,k,V,ldv,vnew,index,work)
             if (tid.eq.nt-1) then
                cnk = n-st+1
             endif
-            call zgemv('C',cnk,l,dcmplx(1d0,0d0),V(st,p),ld,vnew(st),1,
-     c           dcmplx(0d0,0d0),ylocal,1)
+            call zgemv('C',cnk,l,dcmplx(1d0,0d0),V(st,p),ld,
+     c           vnew(st),1,dcmplx(0d0,0d0),ylocal,1)
 
             if (tid.eq.0) then
                do j=1,l

complex8/creorth.F

@@ -171,8 +171,8 @@ subroutine ccgs(n,k,V,ldv,vnew,index,work)
             if (tid.eq.nt-1) then
                cnk = n-st+1
             endif
-            call cgemv('C',cnk,l,cmplx(1.0,0.0),V(st,p),ld,vnew(st),1,
-     c           cmplx(0.0,0.0),ylocal,1)
+            call cgemv('C',cnk,l,cmplx(1.0,0.0),V(st,p),ld,
+     c           vnew(st),1,cmplx(0.0,0.0),ylocal,1)
 
             if (tid.eq.0) then
                do j=1,l