Search Site | Contact Details | FAQ

ADAS Subroutine d7wr11

      SUBROUTINE D7WR11( IUNIT  ,
     &                   NDMET  , NDRHO   , NDTHET  , NDREP   , NDCONF ,
     &                   NDORB  , NDQDN   ,
     &                   IZ0    , IZ      ,
     &                   NPMET  , NRHO    , NTHETA  , INREP   ,
     &                   ISPRT  , ISPSYS  , ITYPEA  , IZETA4  ,
     &                   NCUT   , NSYS    , NTRANS  , N0A     , NREP   ,
     &                   NCTAA  , NZETA   , N1A     ,
     &                   Z1     , EDISGP  , SCALGP  , CI4     ,
     &                   ALFRA  , ADIELO  , EIONA   , SAO     ,
     &                   THETA  , RHO     , RHOP    ,
     &                   PARMR  , PARMD   ,
     &                   WNREP  ,
     &                   TRMPRT ,
     &                   NALCM  , ISALCM  , NALCP   , ISALCP  ,
     &                   QDN
     &                 )
C-----------------------------------------------------------------------
C
C  ******************** FORTRAN77 SUBROUTINE: D7WR11 *******************
C
C  PURPOSE:  TO OUTPUT DATA TO MAINBN PASSING FILE.
C            DATA  FOR INITIATING A MAINBNS BUNDLE-NS CALCULATION
C
C  CALLING PROGRAM: ADAS407
C
C
C  SUBROUTINE:
C
C  INPUT : (I*4)  IUNIT   = OUTPUT UNIT NUMBER FOR RESULTS
C  INPUT : (I*4)  IZ      = RECOMBINED ION CHARGE
C                              (1ST COPASE FILE)
C  INPUT : (I*4)  NDQDN   = MAX. NUMBER OF N-SHELLS FOR QUANTUM DEFECTS
C  INPUT : (I*4)  NALCM   = NUMBER OF SPIN DISTINGUISED 
C                            METASTABLES
C  INPUT : (I*4)  ISALCM()= SPIN OF ENERGY ORDERED SPIN 
C                           DISTINQUISHED METASTABLE
C                           1ST. DIM: DISTINGUISHED METASTABLE INDEX  
C  INPUT : (I*4)  NALCP     NUMBER OF SPIN DISTINGUISHED
C                           PARENTS 
C  INPUT : (I*4)  ISALCP()= SPIN OF ENERGY ORDERED SPIN 
C                           DISTINGUISHED PARENT
C                           1ST. DIM: DISTINGUISHED PARENT INDEX  
C  INPUT : (R*8)  QDN()   = QUANTUM DEFECT FOR N-SHELLS.  NON-ZERO ONLY
C                           FOR ADF04 FILES WITH ORBITAL ENERGY DATA
C                           1ST. DIM: N-SHELL (1<=N<=NDQDN)
C
C
C          (I*4) I         = GENERAL USE
C          (I*4) IFIRST    = GENERAL USE
C          (I*4) ILAST     = GENERAL USE
C
C NOTE:
C          THIS OUTPUT DATA IS FOR SUBSEQUENT INPUT TO A BACKGROUND
C          EXECUTION OF THE POPULATION  PROGRAM 'MAINBNS'.
C
C ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          XFESYM     ADAS      OBTAIN ELEMENT SYMBOL FROM NUCL. CHARGE
c          XXSLEN     ADAS      FIRST AND LAST NON-BLANK CHRS. OF STRNG 
C
C AUTHOR:  H. P. SUMMERS, JET
C          K1/1/57
C          JET EXT. 4941
C
C DATE:    01/07/94
C
C UNIX-IDL PORT:
C	   WILLIAM OSBORN, TESSELLA SUPPORT SERVICES PLC.
C
C DATE:    22ND APRIL 1996
C
C VERSION: 1.1				DATE: 22-04-96
C MODIFIED: WILLIAM OSBORN
C	    - FIRST VERSION.
C
C VERSION: 1.2				DATE: 20-08-96
C MODIFIED: HUGH SUMMERS + WILLIAM OSBORN
C	    - MADE THE REPRESENTATIVE LEVEL LIST
C             TO THE MAINBN FILE BEGIN AT 1.
C
C
C VERSION: 1.3				DATE: 14-08-97
C MODIFIED: HUGH SUMMERS
C	    - ADDED SPIN DISTINQUISHED PARENT AND METASTABLE 
C             IDENTIFICATION, COUNTERS AND POINTERS.  USING
C             IGRD TO MARK THE SPIN SYSTEM NOW.  PUT OUT
C             TRUE QUANTUM DEFECTS.  IZ INCLUDED IN CALL
C             VARAIBLES. 
C
C VERSION: 1.4				DATE: 07-12-98
C MODIFIED: Martin O'Mullane
C	    - Extended MAINBNS namelist to give the ionisation (adf07)
C             and DR cross reference file in the adf25 driver.
C
C-----------------------------------------------------------------------
      CHARACTER*2         TRMPRT(NDMET)
      INTEGER             INREP,       ISALCM(NDMET)
      INTEGER             ISALCP(NDMET),            ISPRT(NDMET)
      INTEGER             ISPSYS(NDMET,2),          ITYPEA(NDMET,NDCONF)
      INTEGER             IUNIT,       IZ,          IZ0
      INTEGER             IZETA4(NDMET,2,NDORB),    N0A(NDMET,2)
      INTEGER             N1A(NDMET,NDCONF),        NALCM,       NALCP
      INTEGER             NCTAA(NDMET,NDCONF),      NCUT(NDMET), NDCONF
      INTEGER             NDMET,       NDORB,       NDQDN,       NDREP
      INTEGER             NDRHO,       NDTHET,      NPMET
      INTEGER             NREP(NDREP), NRHO,        NSYS(NDMET), NTHETA
      INTEGER             NTRANS(NDMET),            NZETA(NDMET,2)
      REAL*8              ADIELO(NDMET,2,NDTHET)
      REAL*8              ALFRA(NDMET,2,NDTHET),    CI4,         EDISGP
      REAL*8              EIONA(NDMET,2,NDORB)
      REAL*8              PARMD(NDMET,10,NDCONF),   PARMR(NDMET,2,4)
      REAL*8              QDN(NDQDN),  RHO(NDRHO),  RHOP(NDRHO)
      REAL*8              SAO(NDMET,2,NDTHET),      SCALGP
      REAL*8              THETA(NDTHET),            WNREP(NDREP)
      REAL*8              Z1
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk