ADAS Subroutine xxlim4

       SUBROUTINE XXLIM4 ( GMIN , GMAX , X , N , CUTMIN )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: XXLIM4 *********************
C
C  PURPOSE:
C             FINDS MAXIMA AND MINIMA OF A LIST  OF X VALUES AND RETURNS
C             THE SCALE RANGE FOR PLOTTING ON A LOG TO THE BASE 10 GRID.
C             I.E. LOG10 RANGE TO NEAREST APPROPRIATE INTEGERS.
C
C             (RANGE IN LINEAR UNITS = GMIN -> GMAX)
C             (REAL VERSION OF 'XXLIM8')
C
C  CALLING PROGRAM: GENERAL USE
C
C  SUBROUTINE:
C
C  OUTPUT: (R*4)  GMIN    = LOWER LIMIT FOR GRAPH X-AXIS (LINEAR)
C  OUTPUT: (R*4)  GMAX    = UPPER LIMIT FOR GRAPH X-AXIS (LINEAR)
C  INPUT : (R*4)  X()     = INPUT X-VALUES
C  INPUT : (I*4)  N       = NUMBER OF INPUT X-VALUES
C  INPUT : (R*4)  CUTMIN  = MINIMUM ALLOWED VALUE FOR 'GMIN' (LINEAR).
C                           ('CUTMIN=0' EFFECTIVELY REMOVES ITS EFFECT)
C
C          (I*4)  NCMAX   =  PARAMETER = MAXIMUM NUMBER OF LOG10 CYCLES
C                                        ALLOWED IN GHOST80
C          (I*4)  IMIN    = MINIMUM LOG10 CYCLE
C          (I*4)  IMAX    = MAXIMUM LOG10 CYCLE
C          (I*4)  I       = GENERAL USE
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)
C VERSION  : 1.2                          
C DATE     : 20-12-2001
C MODIFIED : Martin O'Mullane
C               - Removed mainframe listing information beyond column 72.
C
C-----------------------------------------------------------------------
C----------------------------------------------------------------------
      INTEGER             N
      REAL                CUTMIN,      GMAX,        GMIN,        X(N)