Search Site | Contact Details | FAQ

ADAS Subroutine cxsetp

      SUBROUTINE CXSETP( MXTAB  , MXGRF  , SYMBD  , IDZ0   ,
     &                   SYMBR  , IRZ0   , IRZ1   , IRZ2   ,
     &                   NGRND  , NTOT
     &                 )
C
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: CXSETP *********************
C
C  PURPOSE:  SETS UP PARAMETERS IN THE SHARED POOL FOR PANEL DISPLAY.
C
C  CALLING PROGRAM: ADAS306 / ADAS308.
C
C  DATA:  DATA IS OBTAINED VIA SUBROUTINE 'CXDATA'.
C
C  INPUT : (I*4)  MXTAB   = MAXIMUM NUMBER OF EMISSIVITY TABLES.
C  INPUT : (I*4)  MXGRF   = MAXIMUM NUMBER OF EMISSIVITY GRAPHS.
C  INPUT : (C*2)  SYMBD   = ELEMENT SYMBOL OF DONOR.
C  INPUT : (I*4)  IDZ0    = DONOR NUCLEAR CHARGE.
C  INPUT : (C*2)  SYMBR   = ELEMENT SYMBOL OF RECEIVER.
C  INPUT : (I*4)  IRZ0    = RECEIVER NUCLEAR CHARGE.
C  INPUT : (I*4)  IRZ1    = RECEIVER ION INITIAL CHARGE.
C  INPUT : (I*4)  IRZ2    = RECEIVER ION FINAL CHARGE.
C  INPUT : (I*4)  NGRND   = MINIMUM ALLOWED N QUANTUM NUMBER.
C  INPUT : (I*4)  NTOT    = MAXIMUM ALLOWED N QUANTUM NUMBER.
C
C ROUTINES:
C           ROUTINE     SOURCE      BRIEF DESCRIPTION
C           ------------------------------------------------------------
C
C AUTHOR:  Tim Hammond (TESSELLA SUPPORT SERVICES PLC)
C          RAL EXT. 6404
C
C DATE:    05/06/95
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      CHARACTER*2         SYMBD,       SYMBR
      INTEGER             IDZ0,        IRZ0,        IRZ1,        IRZ2
      INTEGER             MXGRF,       MXTAB,       NGRND,       NTOT
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk