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