Search Site | Contact Details | FAQ

ADAS Subroutine b8norm

C
      SUBROUTINE B8NORM( NDLEV  , NDMET  ,
     &                   NORD   ,
     &                   STCK   ,
     &                   PLAX   , PLX    ,
     &                   PLASX  , PLSX
     &                 )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: B6STOT *********************
C
C  PURPOSE: TO NORMALISE TOTAL/SPECIFIC LINE POWERS FOR LEVEL 1
C           AND TOTAL EQUILIBRIUM LINE POWERS TO STAGE TOTAL POPULATION.
C
C  CALLING PROGRAM:  ADAS206
C
C  SUBROUTINE:
C
C  INPUT :  (I*4)  NDLEV   = MAXIMUM NUMBER OF ENERGY LEVELS ALLOWED
C  INPUT :  (I*4)  NDMET   = MAXIMUM NUMBER OF METASTABLE LEVELS ALLOWED
C
C  INPUT :  (I*4)  NORD    = NUMBER OF ORDINARY EXCITED LEVELS
C
C  INPUT :  (R*4)  STCK(,) = POPULATION MATRIX COVERING ALL NON-METAST-
C                            ABLE/ORDINARY EXCITED LEVELS AS FUNCTION
C                            OF METASTABLE INDEX.
C                            VALUES FOR GIVEN TEMPERATURE AND DENSITY.
C                            1st DIMENSION: ORDINARY EXCITED LEVEL INDEX
C                            2nd DIMENSION: METASTABLE LEVEL INDEX
C
C  I/O   :  (R*8)  PLAX    = INPUT:
C                            TOTAL EQUILIBRIUM LINE POWER COEFFICIENTS.
C                            AT FIXED TEMPERATURE AND DENSITY.
C                            (UNITS: ERGS CM3 SEC-1)
C                            OUTPUT:
C                            NORMALISED TO TOTAL STAGE POPULATION
C  I/O   :  (R*8)  PLX     = INPUT:
C                            TOTAL LINE POWERS FOR LEVEL 1 AT FIXED
C                            TEMPERATURE AND DENSITY.
C                            (UNITS: ERGS SEC-1).
C                            OUTPUT:
C                            NORMALISED TO TOTAL STAGE POPULATION
C
C  I/O   :  (R*8)  PLASX   = INPUT:
C                            SPECIFIC EQULIBRIUM LINE PWR COEFFICIENTS.
C                            AT FIXED TEMPERATURE AND DENSITY.
C                            (UNITS: ERGS CM3 SEC-1)
C                            OUTPUT:
C                            NORMALISED TO TOTAL STAGE POPULATION
C  I/O   :  (R*8)  PLSX    = INPUT:
C                            SPECIFIC LINE PWR FOR LEVEL 1 AT FIXED
C                            TEMPERATURE AND DENSITY.
C                            (UNITS: ERGS SEC-1).
C                            OUTPUT:
C                            NORMALISED TO TOTAL STAGE POPULATION
C
C           (I*4)  IS1     = ORDINARY EXCITED LEVEL INDEX
C
C           (R*8)  STOTX   = VARIABLE USED TO SUM STAGE TOTAL POPULATN.
C                            (INITIAL VALUE = 1 => GROUND)
C
C ROUTINES: NONE
C
C NOTE:
C
C AUTHOR:  PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/37
C          JET EXT. 5023
C
C DATE:    18/05/93
C
C UPDATE:  20/05/93 - P BRIDEN: STCK ARRAY CHANGED FROM REAL*8 -> REAL*4
C
C UNIX-IDL PORT:
C
C DATE: UNKNOWN
C
C AUTHOR: DAVID H BROOKS, UNIVERSITY OF STRATHCLYDE
C
C***********************************************************************
C PUT UNDER SCCS CONTROL:
C
C VERSION: 1.1				DATE: 10/05/96
C MODIFIED: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C	    - FIRST PUT UNDER SCCS
C 
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             NDLEV,       NDMET,       NORD
      REAL*8              PLASX,       PLAX,        PLSX,        PLX
      REAL                STCK(NDLEV,NDMET)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk