Correct a flaw in displaying subtype "j2" in encode77.f90.

This commit is contained in:
Joe Taylor 2020-03-30 14:09:39 -04:00
parent 380a05f94e
commit 0557e19b3e

View File

@ -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