CHARACTER*26 LOWER
DATA LOWER /'abcdefghijklmnopqrstuvwxyz'/
SAVE LOWER
string(I:I) = LOWER(L:L)
L = INDEX(LOWER,string(I:I))