SUBROUTINE UPCASE( ASTRING ) CHARACTER*(*) ASTRING ! string to make into all caps
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