SUBROUTINE LUSTR( ASTRING ) CHARACTER*(*) ASTRING ! string to make into all caps
For Fortran-90 declarations and interface checking:
USE M3UTILIO
... CHARACTER*256 ASTRING ... ASTRING = ' sOmeThiNg WiERd' ... CALL LUSTR( ASTRING ) ! now ASTRING is all-caps: 'SOMETHING WIERD' ...
To: Models-3/EDSS I/O API: The Help Pages