ADAS Subroutine xxfcse

      subroutine xxfcse(filein,fileout,type)


C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: XXFCSE *********************
C
C  PURPOSE: Read in a file, convert it all to upper or lower case and
C           then write it to another file.
C
C  CALLING PROGRAM: GENERAL USE.
C
C  INPUT    : (C*(*)) FILEIN = Input Filename
C  INPUT    : (C*(*)) FILEOUT = Output 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*(*)       FILEIN,      FILEOUT
      CHARACTER*2         TYPE