ADAS Subroutine wupsilon9
SUBROUTINE WUPSILON9( ELO , EHI , DELTAE, KTYPE , GF ,
& BPAR , CPAR , YKN , I1 , I2 ,
& NELEC , NCHAR , NTEMP , T , UPS ,
& DSFULL, ISTDIM, NET , ENTE , OMUP ,
& IWRITE, INDIM , WI , WJ
& )
C-----------------------------------------------------------------------
C
C ******************** FORTRAN77 SUBROUTINE:WUPSILON ******************
C
C PURPOSE: TO WRITE DATA TO AN OLD/NEW ARCHIVE IN BURGESS FORMAT
C
C INPUT:
C (R*8) ELO - LOWER LEVEL ENERGY
C (R*8) EHI - UPPER LEVEL ENERGY
C (R*8) DELTAE - TRANSITION ENERGY
C (I) KTYPE - TRANSITION TYPE
C (R*8) GF - WEIGHTED OSCILLATOR STRENGTH
C (R*8) BPAR - BURGESS SCALING PARAMETER - B
C (R*8) CPAR - BURGESS SCALING PARAMETER - C
C (R*8) YKN - KNOT POINTS
C (I) I1 - LOWER LEVEL INDEX
C (I) I2 - UPPER LEVEL INDEX
C (R*8) NELEC - NUMBER OF ELECTRONS
C (R*8) NCHAR - NUCLEAR CHARGE
C (I) NTEMP - NUMBER OF TEMPERATURE POINTS
C (R*8) T - TEMPERATURES
C (R*8) UPS - UPSILONS
C (C*80)DSFULL - ARCHIVE FILE NAME
C (I) ISTDIM - MAXIMUM INPUT ARRAY DIMENSIONS
C (I) NET - NUMBER OF ENERGY POINTS
C (R*8) ENTE - ENRGIES
C (R*8) OMUP - OMEGAS
C (I) IWRITE - OUTPUT UNIT NUMBER
C (I) INDIM - MAXIMUM OUTPUT ARRAY DIMENSION
C (R*8) WI - LOWER LEVEL STATISTICAL WEIGHT
C (R*8) WJ - UPPER LEVEL STATISTICAL WEIGHT
C
C OUTPUT:
C
C DATA:
C CIARR(500)*80- 500 IS THE CURRENT LIMIT ON INDEXES
C ROUTINES:
C NONE
C
C AUTHOR: HUGH SUMMERS, UNIVERSITY OF STRATHCLYDE
C DATE: 18/06/99 VERSION 1.1
C
C-----------------------------------------------------------------------
CHARACTER*80 DSFULL
INTEGER I1, I2, INDIM, ISTDIM
INTEGER IWRITE, KTYPE, NET, NTEMP
REAL*8 BPAR, CPAR, DELTAE, EHI
REAL*8 ELO, ENTE(ISTDIM), GF
REAL*8 NCHAR, NELEC, OMUP(ISTDIM)
REAL*8 T(ISTDIM), UPS(INDIM), WI, WJ
REAL*8 YKN(9)