C+ C NAME: C lowercase C PURPOSE: C Convert string to lowercase C CATEGORY: C String manipulation C CALLING SEQUENCE: subroutine lowercase(C) C INPUTS: C C character*(*) string to be processed C OUTPUTS: C C character*(*) modified string C SEE ALSO: C uppercase, itrim, icompress, iwhitespace, bCompareStr C PROCEDURE: C Each character in the string is converted separately. C The intrinsic FORTRAN functions ICHAR is used to find the ASCII code C for the character. For uppercase characters (ASCII code 65-90) 32 is added C to the ASCII code. The FORTRAN function CHAR is used to convert the C corrected code back to an character. C MODIFICATION HISTORY: C JAN-1992, Paul Hick (UCSD) C- character C*(*) iA = ichar('A') iZ = ichar('Z') iOff = ichar('a')-ichar('A') do I=1,len(C) J = ichar(C(I:I)) if (J .ge. iA .and. J .le. iZ) C(I:I) = char(J+iOff) end do return end