ADAS Subroutine xxlm28

       SUBROUTINE XXLM28 ( GMIN   , GMAX   ,
     &                     Y      ,
     &                     NDIM1  , NDIM2  ,
     &                     LMAX1  , LMAX2  ,
     &                     CUTMIN
     &                   )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: XXLM28 *********************
C
C  PURPOSE:
C           FINDS MAXIMA AND MINIMA OF A 2-DIMENSIONAL ARRAY OF Y-VALUES
C           AND  RETURNS THE SCALE RANGE FOR PLOTTING  ON A LOG  TO  THE
C           BASE 10 GRID.
C
C           I.E. LOG10 RANGE COVERING BOTH DIMENSIONS TO THE NEAREST
C                APPROPRIATE INTEGERS.
C           (RANGE IN LINEAR UNITS = GMIN -> GMAX)
C           (REAL*8 VERSION OF 'XXLM24')
C
C  CALLING PROGRAM: GENERAL USE
C
C  SUBROUTINE:
C
C  OUTPUT: (R*4)  GMIN    = LOWER LIMIT FOR GRAPH Y-AXIS (LINEAR)
C  OUTPUT: (R*4)  GMAX    = UPPER LIMIT FOR GRAPH Y-AXIS (LINEAR)
C
C  INPUT : (R*8)  Y(,)    = TWO-DIMENSIONAL ARRAY OF INPUT Y-VALUES.
C
C  INPUT : (I*4)  NDIM1   = FIRST 'Y(,)' ARRAY DIMENSION BOUND
C  INPUT : (I*4)  NDIM2   = SECOND 'Y(,)' ARRAY DIMENSION BOUND
C
C  INPUT : (I*4)  LMAX1   = RANGE OF FIRST 'Y(,)' ARRAY DIMENSION
C                           TO BE ASSESSED (1 -> LMAX1) (LMAX1<=NDIM1)
C  INPUT : (I*4)  LMAX2   = RANGE OF SECOND 'Y(,)' ARRAY DIMENSION
C                           TO BE ASSESSED (1 -> LMAX2) (LMAX2<=NDIM2)
C
C  INPUT : (R*4)  CUTMIN  = MINMUM VALUE FOR 'GMIN' (LINEAR).
C                           ('CUTMIN=0' EFFECTIVELY REMOVES ITS EFFECT)
C
C          (I*4)  NCMAX   = PARAMETER = MAXIMUM ALLOWED NUMBER OF LOG10
C                                       CYCLES ALLOWED IN GHOST80
C
C          (I*4)  IMIN    = MINIMUM LOG10 CYCLE
C          (I*4)  IMAX    = MAXIMUM LOG10 CYCLE
C          (I*4)  I       = GENERAL USE
C          (I*4)  J       = GENERAL USE
C
C
C NOTES:
C        A MINIMUM AVALUE FOR 'GMIN' IS SPECIFIED IN THE ARGUMENTS.
C        (SEE 'CUTMIN').
C
C ROUTINES: NONE
C
C AUTHOR:   PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C           K1/0/81
C           JET EXT. 4569
C
C DATE:     02/08/90
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 06-09-95
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - FIRST RELEASE(NO CHANGES MADE)
C
C VERSION  : 1.2                          
C DATE     : 10-04-2007
C MODIFIED : Allan Whiteford
C               - Modified documentation as part of automated
C		  subroutine documentation preparation.
C-----------------------------------------------------------------------
      INTEGER             LMAX1,       LMAX2,       NDIM1,       NDIM2
      REAL                CUTMIN,      GMAX,        GMIN
      REAL*8              Y(NDIM1,NDIM2)