ADAS Subroutine xxopcs
subroutine xxopcs(unit,file,type) C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: XXOPCS ********************* C C PURPOSE: Open a file on a given unit but when a read is done from C that unit, only give the contents back in a given case. C C CALLING PROGRAM: GENERAL USE. C C INPUT : (I*4) UNIT = Unit to open the file on C INPUT : (C*(*)) FILE = Input Filename C INPUT : (C*2) TYPE = Type of case to convert to: C 'UC' -> Convert to Upper Case C 'LC' -> Convert to Lower Case C Anything else -> No conversion C C OUTPUT : NONE C C ROUTINES : C ROUTINE SOURCE BRIEF DESCRIPTION C ------------------------------------------------------------ C XXCASE ADAS CONVERT STRING TO UPPER OF LOWER CASE C C AUTHOR : Allan Whiteford, C University of Strathclyde C C VERSION : 1.1 DATE: 05/09/2001 C MODIFIED : Allan Whiteford C First version. C C----------------------------------------------------------------------- CHARACTER*(*) FILE CHARACTER*2 TYPE INTEGER UNIT