Allow upper or lower case for "A" and "L" commands.

This commit is contained in:
Joe Taylor 2019-01-16 13:16:10 -05:00
parent f194621695
commit 12463451e2

View File

@ -102,8 +102,8 @@ subroutine update(total_time,ic1,ic2)
endif
endif
if(ic1.eq.13 .and. ic2.eq.0) hiscall=hiscall_next
if(ic1.eq.97 .and. ic2.eq.0) autoseq=.not.autoseq
if(ic1.eq.108 .and. ic2.eq.0) level=.not.level
if((ic1.eq.97 .or. ic1.eq.65) .and. ic2.eq.0) autoseq=.not.autoseq
if((ic1.eq.108 .or. ic1.eq.76) .and. ic2.eq.0) level=.not.level
endif
if(ntransmitting.eq.1) transmitted=.true.