shorten lines

optimizers · Jan 16, 2020 · 08ac329 · 08ac329
1 parent 4a0d4a1
commit 08ac329
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/complex16/zreorth.F b/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

diff --git a/complex8/creorth.F b/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