# upper - convert all lower case to upper case letter
#  
subroutine upper(alin,blin)
implicit integer (a-z)
include ratdef
#  
character alin(MAXLINE)
character blin(MAXLINE)
string ucase "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
#  
a1=1
while(alin(a1)^=EOS){
      if((alin(a1)>96)&(alin(a1)<123)){
          blin(a1)=ucase((alin(a1)-32-64))
      }
      else blin(a1)=alin(a1)
      a1=a1+1
}  
blin(a1)=EOS
return
end