From 0557e19b3eae271710d01180b31434a0bc1298a2 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 30 Mar 2020 14:09:39 -0400 Subject: [PATCH] Correct a flaw in displaying subtype "j2" in encode77.f90. --- lib/77bit/encode77.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/77bit/encode77.f90 b/lib/77bit/encode77.f90 index 430f07fe4..99af70cd0 100644 --- a/lib/77bit/encode77.f90 +++ b/lib/77bit/encode77.f90 @@ -45,8 +45,8 @@ program encode77 if(i3.eq.0 .and.n3.eq.6) then call split77(msg,nwords,nw,w) j2=0 - if(nwords.eq.2 .and. len(w(2)).le.2) j2=1 - if(nwords.eq.2 .and. len(w(2)).eq.6) j2=2 + if(nwords.eq.2 .and. len(trim(w(2))).le.2) j2=1 + if(nwords.eq.2 .and. len(trim(w(2))).eq.6) j2=2 write(*,1005) i3,n3,j2,cerr,msg0(1:37),msg 1005 format(i2,'.',i1,'.',i1,2x,a1,1x,a37,1x,a37) endif