Search Site | Contact Details | FAQ

ADAS Subroutine c4mnmx

      SUBROUTINE C4MNMX( NSITYP , MXA , NA , A , AMNMX  )
C
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: C4MNMX *********************
C
C  PURPOSE: GIVEN A 2D ARRAY 'A' IT RETURNS THE MINIMUM AND MAXIMUM OF
C           BOTH 'A(1,I)' AND 'A(NA(I),I)'
C
C           WHERE I=1,NSITYP. ITS MAIN USE IS TO FIND THE RANGE ON
C           THE MINIMUM AND MAXIMUM OF THE BEAM ENERGIES, AND TARGET
C           DENSITIES AND TEMPERATURES ACROSS THE DIFFERENT ION TYPES.
C
C  CALLING PROGRAM: ADAS304
C
C  SUBROUTINE:
C
C  INPUT : (I*4)  NSITYP    = NUMBER OF DIFFERENT ION TYPES.
C  INPUT : (I*4)  MXA       = SIZE OF FIRST DIMENSION OF 'A(,)'.
C  INPUT : (I*4)  NA()      = NO. OF ENTRIES IN EACH COLUMN OF 'A(,)'.
C                             DIMENSION: NSITYP
C  INPUT : (R*8)  A(,)      = INPUT ARRAY.
C                             1ST DIMENSION: MXA
C                             2ND DIMENSION: NSITYP
C
C  OUTPUT: (R*8)  AMNMX()   = MINIMUM/MAXIMUM VALUES.
C                             INDICES ARE AS FOLLOWS:
C                             1 => MIN OF 'A(1,I)
C                             2 => MAX OF 'A(1,I)
C                             3 => MIN OF 'A(NA(I),I)
C                             4 => MAX OF 'A(NA(I),I)
C                                  WHERE I=1,NSITYP.
C                             DIMENSION: 4
C
C          (I*4)  I         = LOOP INDEX.
C          (I*4)  J         = ARRAY INDEX.
C
C ROUTINES: NONE
C
C AUTHOR:  JONATHAN NASH  (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/87
C          JET EXT. 5183
C
C DATE:    17/12/93
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 16-11-95
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - FIRST VERSION
C
C VERSION: 1.2                          DATE: 17-05-07
C MODIFIED: Allan Whiteford
C               - Updated comments as part of subroutine documentation
C                 procedure.
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             MXA,         NA(NSITYP),  NSITYP
      REAL*8              A(MXA,NSITYP),            AMNMX(4)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk