Search Site | Contact Details | FAQ

ADAS Subroutine dxexcf

      SUBROUTINE DXEXCF( CONFG , NOCCUP ,LTYPE)
C-----------------------------------------------------------------------
C                                                                       
C  ****************** FORTRAN 77 SUBROUTINE: DXEXCF ********************
C
C  PURPOSE: RETURNS VECTOR OF OCCUPANCIES FOR STANDARD SHELL INDICES
C           1-15 FROM AN EISSNER HEXADECIMAL CHARACTER CONFIGURATION
C           SPECIFICATION
C
C  CALLING PROGRAM: VARIOUS
C
C  SUBROUTINE:
C
C  INPUT  :  (C*18)  CONFIG   = EISSNER CONFIGURATION
C  OUTPUT :  (I*4)   NOCCUP() = OCCUPANCY FOR EACH DECIMAL ORBITAL
C                               INDEX 1-15.
C  OUTPUT :  (L*4)   LTYPE    = .TRUE.  => CONFIG. EISSNER FORM
C                               .FALSE. => CONFIG. NOT EISSNER FORM
C
C            (I*4)   I      = GENERAL INDEX
C            (I*4)   IFIRST = GENERAL STRING POSITION INDEX
C            (I*4)   ILAST  = GENERAL STRING POSITION INDEX
C            (C*1)   CHRA() = EISSNER HEXADECIMAL ORBITAL LIST
C            (L*4)   LSTAN  = .TRUE.  => CONFIG. STANDARD FORM
C                             .FALSE. => CONFIG. NOT STANDARD FORM
C            (I*4)   NVLCE  = VALENCE SHELL
C
C  ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          -------------------------------------------------------------
C          I4EISS     ADAS      EXPAND EISSNER CONFIG. INTO SHELL OCCUP.
C          I4UNIT     ADAS      FETCH UNIT NUMBER FOR OUTPUT OF MESSAGES
C          XXDTES     ADAS      DETECT CONFIGURATION FORM
C          XXSLEN     ADAS      FIND NON-BLANK LENGTH OF A STRING
C
C  AUTHOR:  H. P. SUMMERS, UNIVERSITY OF STRATHCLYDE
C           JA8.08
C           TEL. 0141-553-4196
C
C  DATE:    04/06/96
C
C UNIX-IDL PORT:
C	   WILLIAM OSBORN, TESSELLA SUPPORT SERVICES PLC.
C
C DATE:    20TH AUGUST 1996
C
C VERSION: 1.1				DATE: 20-08-96
C MODIFIED: WILLIAM OSBORN
C	    - FIRST VERSION
C
C VERSION: 1.2
C MODIFIED: H. P. SUMMERS		DATE: 24-06-97
C  	    - INSERTED TRAP FOR BARE NUCLEUS CONFIG.
C
C VERSION: 1.3
C MODIFIED: R. MARTIN          		DATE: 30-06-97
C	    - ADDED SCCS KEYWORDS OMITTED IT PREVIOUS VERSION.
C
C VERSION: 1.4				DATE: 22-11-2003
C MODIFIED: Martin O'Mullane
C	    - Pass configurations through ceprep before acting on them.
C
C-----------------------------------------------------------------------
      CHARACTER*18        CONFG
      INTEGER             NOCCUP(61)
      LOGICAL             LTYPE
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk