From 380a05f94e4510962c30e460f128df95b49c0f63 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 30 Mar 2020 13:52:37 -0400 Subject: [PATCH] Remove stray comments. --- lib/77bit/packjt77.f90 | 2 -- 1 file changed, 2 deletions(-) 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