Search Site | Contact Details | FAQ

ADAS Subroutine d7cors


       SUBROUTINE D7CORS(INZO,INZ,CORRS,CORRAD,CORRAR,CORRGA,LABEL)
       IMPLICIT REAL*8(A-H,O-Z)
C-----------------------------------------------------------------------
C      PURPOSE: CORRECT EX90 OUTPUT TO BETTER DATA. FOR A GIVEN
C      ISO-ELECTRONIC SEQUENCE, USES INTERPOLATION BETWEEN VALUES OF
C      Z0.
C
C      INPUT PARAMETERS:
C         INZO    -  ATOMIC MASS OF ION
C         INZ     -  CHARGE OF RECOMBINED ION
C      OUTPUT PARAMETERS:
C         CORRS   -  MULTIPLICITIVE CORRECTION FACTOR FOR IONISATION
C         CORRAD  -  MULTIPLICITIVE CORRECTION FACTOR FOR DI-EL. RECOM.
C         CORRAR  -  MULTIPLICITIVE CORRECTION FACTOR FOR RAD. RECOM.
C         CORRGA  -  MULTIPLICITIVE CORRECTION FACTOR FOR GA0 OF RAD.
C                    RECOM. APPROXIMATE FORM
C         LABEL   -  DETAILS OF CORRECTION DATA SOURCE
C
C      NOTES:
C        (1) SEQREP(ISEQ) RETURNS NO. OF ELECTRONS IN SEQUENCE ISEQ
C        (2) NZO IS MAXIMUM NO. OF ZO'S REPRESENTING A SEQUENCE
C        (3) NZOREP(ISEQ) RETURNS NO. OF ZO'S REPRESENTING A PARTICULAR
C            SEQUENCE
C        (4) ZOREP(ISEQ,IZO) CONTAINS SET OF REPRESENTATIVE ZO'S
C        (5) DATA FOR ZOREP = 1,100 IS DUMMY. SET EQUAL TO VALUES AT
C            THE PROPER ENDS OF THE DATA.  (E.G. AT ZO = 4,27)
C
C*****************  W.J.DICKSON JET 9/1/90 *****************************
C** PE BRIDEN 19AUG94 - MADE ALL REAL NUMBERS 8 BYTE INSTEAD OF 4 BYTE
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. NO CHANGES TO IBM CODE.
C
C VERSION: 1.2				DATE: 16-05-07
C MODIFIED: ALLAN WHITEFORD
C	    - UPDATED COMMENTS AS PART OF SUBROUTINE DOCUMENTATION
C	      PROCEDURE
C-----------------------------------------------------------------------
      CHARACTER*40        LABEL
      INTEGER             INZ,         INZO
      REAL*8              CORRAD,      CORRAR,      CORRGA,      CORRS
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk