From 12463451e203b1ad010ee076d15740d1cc9bbbab Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 16 Jan 2019 13:16:10 -0500 Subject: [PATCH] Allow upper or lower case for "A" and "L" commands. --- lib/ft2/ft2.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/ft2/ft2.f90 b/lib/ft2/ft2.f90 index 92280c4bb..056e5fef7 100644 --- a/lib/ft2/ft2.f90 +++ b/lib/ft2/ft2.f90 @@ -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.