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