LOGICAL FUNCTION LSAME( CA, CB )
CHARACTER CA, CB
LSAME returns .TRUE. if CA is the same letter as CB regardless of case.
CA (input) CHARACTER*1
CB (input) CHARACTER*1 CA and CB specify the single characters
to be compared.