SUBROUTINE UPCASE( ASTRING ) SUBROUTINE DOWNCASE( ASTRING ) CHARACTER*(*), INTENT(INOUT) :: ASTRING ! string to make into all caps
ASTRING
.
See also LUSTR() which does the composite adjust-left (i.e., remove leading blanks) and upcase operation.
USE M3UTILIO
... CHARACTER*256 ASTRING ... ASTRING = 'sOmeThiNg WiERd' ... CALL UPCASE( ASTRING ) ! now ASTRING is all-caps: 'SOMETHING WIERD' ...
To: Models-3/EDSS I/O API: The Help Pages