Search Site | Contact Details | FAQ

ADAS Subroutine xxgama

      SUBROUTINE XXGAMA( MXINDX , JGAM, GAM )
C
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: XXGAMA *********************
C
C  PURPOSE: SETUP LOOKUP TABLES FOR ROUTINES I4JGAM AND R8GAM
C
C           TABLES 'JGAM' AND 'GAM' CAN BE REFERENCED WITH FUNCTIONS
C           'I4JGAM' AND 'R8GAM', RESPECTIVELY.
C
C  CALLING PROGRAM: GENERAL USE.
C
C  INPUT : (I*4)  MXINDX  =
C
C  OUTPUT: (I*4)  JGAM()  =
C                           DIMENSION: REFERENCED BY I.
C  OUTPUT: (I*4)  GAM()   =
C                           DIMENSION: REFERENCED BY I.
C
C  PARAM : (R*8)  P1      = 64.0
C
C          (I*4)  I       = LOOP INDEX.
C          (I*4)  I1      = I-1
C          (I*4)  J1      = USED IN COMPUTATION ( = JGAM(N) ).
C
C          (R*8)  X1      = USED IN COMPUTATION ( = GAM(N) ).
C
C ROUTINES: NONE
C
C AUTHOR:   JONATHAN NASH (TESSELLA SUPPORT SERVICES PLC)
C           K1/0/81
C           JET EXT. 5183
C
C DATE:     30/09/93
C
C VERSION  : 1.2                          
C DATE     : 20-12-2001
C MODIFIED : Martin O'Mullane
C               - Removed mainframe listing information beyond column 72.
C
C VERSION  : 1.3                          
C DATE     : 10-04-2007
C MODIFIED : Allan Whiteford
C               - Modified documentation as part of automated
C		  subroutine documentation preparation.
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             JGAM(MXINDX),             MXINDX
      REAL*8              GAM(MXINDX)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk