Search Site | Contact Details | FAQ

ADAS Subroutine g3chip

C
      SUBROUTINE G3CHIP( NCONFG , NELEC , NLSETA , ICF ,
     &                   IPSTR  , NP    )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: G3CHIP *********************
C
C  PURPOSE: TO SETUP A STRING CONTAINING THE NL OF THE PARENT
C           CONFIGURATION FOR INPUT BY THE USER. 
C
C  CALLING PROGRAM: ADAS703
C
C  SUBROUTINE:
C
C  INPUT:  (I*4)  NCONFG  = PARENT CONF. STRING
C  INPUT:  (I*4)  NELEC   = PARENT CONF. STRING
C  INPUT:  (I*4)  NLSETA()= PARENT CONF. STRING
C  INPUT:  (I*4)  ICF()   = CONFIGRATION INDEX OF LEVEL
C
C  OUTPUT: (C*8)  IPSTR() = PARENT CONF. STRING
C
C  OUTPUT: (I*4)  NP      = NO. PARENTS
C
C
C AUTHOR:  Martin O'Mullane
C
C DATE:    29/04/98
C
C VERSION : 1.1				DATE: 01-05-98
C MODIFIED: Martin O'Mullane
C	    - FIRST VERSION.
C
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      CHARACTER*9         IPSTR(NDP)
      INTEGER             ICF(NDCFG),  NCONFG,      NELEC
      INTEGER             NLSETA(NDCFG,NDCFG,2),    NP
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk