ADAS Subroutine e6coll

      SUBROUTINE E6COLL (IUNT20, FILC, DSFULL, ELEM, IZ, 
     &                   ISTRN, MAXT, APWLO , SWLO  , 
     &                   TOA, GFTOA)
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: E6COLL *********************
C
C  PURPOSE:  TO STORE SELECTED GFT INTO A COLLECTION FILE.
C
C  CALLING PROGRAM: ADAS506
C
C  SUBROUTINE:
C
C  INPUT : (I*4)  IUNIT20  =  UNIT NUMBER FOR COLLECTION FILE
C  INPUT : (C*80) FILC     =  COLLECTION FILENAME
C  INPUT : (C*80) DSFULL   =  INPUT DATA SET NAME 
C  INPUT : (C*2)  ELEM     =  ELEMENT SYMBOL.
C  INPUT : (I*4)  IZ       =  RECOMBINED ION CHARGE
C  INPUT : (I*4)  ISTRN    =  SELECTED TRANSITION INDEX
C  INPUT : (I*4)  MAXT     =  NUMBER OF ISPF ENTERED TEMPERATURE VALUES.
C  INPUT : (R*8)  APWLO    =  SELECTED APPROXIMATE WAVELENGTHS (A)
C  INPUT : (R*8)  SWLO     =  SELECTED EXACT WAVELENGTHS (A)
C  INPUT : (R*8)  TOA()    =  ISPF ENTERED TEMPERATURES (kelvin)
C  INPUT : (R*8)  GFTOA()  =  SPLINE INTEROPLATED GFT VALUE AT 'TOA()'
C
C          (I*4)  NTRAN    =  NUMBER OF G(T) FUNCTION IN FINAL COLL. FILE
C          (R*8)  TX(,)    =  STORED TEMPERATURE FROM OLD COLLECTION FILE
C          (R*8)  GFTX(,)  =  STORED G(T) FROM OLD COLLECTION FILE
C          (C*2)  ELEMC()  =  ELEMENT SYMBOL READ FROM COLL FILE
C          (I*4)  IZC()    =  RECOMBINED ION CHARGE READ FROM COLL FILE
C          (I*4)  ISTRNC() =  TRANSITION INDEX FROM COLL FILE
C          (I*4)  NG()     =  NUMBER OF DATA POINTS FOR G(T) IN COLL FILE
C          (L*4)  LFEXST   = .TRUE. COLLECTION FILE EXISTS
C
C
C ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          I4UNIT     ADAS      FETCH UNIT NUMBER FOR OUTPUT OF MESSAGES
C          R8FCTN     ADAS      CONVERTS FROM CHARACTER TO REAL VARIABLE
C          I4FCTN     ADAS      CONVERTS CHARACTER STRING TO INTEGER
C          I4EIZ0     ADAS      RETURNS Z0 FOR GIVEN ELEMENT SYMBOL
C
C AUTHOR  : Alessandro Lanzafame, University of Strathclyde
C
C DATE:    june06-95
C
C UPDATE:
C VERSION:	1.2		DATE:	09-11-95
C MODIFIED: Alessandro Lanzafame
C           - MTRAN: 100 -> 300
C             MTEMP: 100 -> 101
C
C VERSION       1.3             DATE:   31-05-96
C MODIFIED: Alessandro Lanzafame  
C           - MTRAN: 300 -> 800
C
C VERSION       1.4             DATE:   13-10-99
C MODIFIED: Martin O'Mullane  
C           - Replace format statements 1004 and 1005. Not all
C             compilers can use dynamically created format statements.
C
C VERSION       1.5             DATE:   08-07-02
C MODIFIED: Richard Martin 
C           - Fixed format statements introduced in 1.4 to work on SUN's
C
C-----------------------------------------------------------------------
      CHARACTER*80        DSFULL
      CHARACTER*2         ELEM
      CHARACTER*80        FILC
      INTEGER             ISTRN,       IUNT20,      IZ,          MAXT
      REAL*8              APWLO,       GFTOA(*),    SWLO,        TOA(*)