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