Fix the issue with using AP for the "i3" bit and 78th bit.

This commit is contained in:
Joe Taylor 2020-10-31 11:15:03 -04:00
parent b3f0aec407
commit abbb277793

View File

@ -130,12 +130,11 @@ contains
apsymbols1)
write(c78,1050) apmask1
1050 format(78i1)
c78(75:78)=' '
read(c78,1060) apmask
1060 format(13b6.6)
write(c78,1050) apsymbols1
read(c78,1060) apsymbols
apsymbols(13)=apsymbols(13)/2 !Fixup for c77-->c78
! write(72,3060) 'A',ipass,apmask,apmask
!3060 format(a1,i1,1x,13b6.6/3x,13i6)
! write(72,3060) 'B',ipass,apsymbols,apsymbols