diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90 index 4385a3e65..530d60cea 100644 --- a/lib/77bit/packjt77.f90 +++ b/lib/77bit/packjt77.f90 @@ -1060,9 +1060,7 @@ subroutine pack77_06(nwords,w,i3,n3,c77) npfx=36*10*(index(a2,w(1)(i1+1:i1+1))-1) + & 10*(index(a2,w(1)(i1+2:i1+2))-1) + index(a2,w(1)(i1+3:i1+3))-1 endif -! print*,'ccc2',npfx npfx=npfx + nzzz -! print*,'ccc3',npfx endif i3=0 n3=6