FORTRAN Generation
(/./ftp/cats/J/ApJ/831/197)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/831/197 into FORTRAN code for loading all data files into arrays.

Note that special values are assigned to unknown or unspecified numbers (also called NULL numbers); when necessary, the coordinate components making up the right ascension and declination are converted into floating-point numbers representing these angles in degrees.



      program load_ReadMe
C=============================================================================
C  F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Mar-28
C=============================================================================
*  This code was generated from the ReadMe file documenting a catalogue
*  according to the "Standard for Documentation of Astronomical Catalogues"
*  currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
*  (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
*  Please report problems or questions to   
C=============================================================================

      implicit none
*  Unspecified or NULL values, generally corresponding to blank columns,
*  are assigned one of the following special values:
*     rNULL__    for unknown or NULL floating-point values
*     iNULL__    for unknown or NULL   integer      values
      real*4     rNULL__
      integer*4  iNULL__
      parameter  (rNULL__=--2147483648.)  	! NULL real number
      parameter  (iNULL__=(-2147483647-1))	! NULL int  number
      integer    idig			! testing NULL number

C=============================================================================
Cat. J/ApJ/831/197   Mg-rich olivines with electron microscopy   (Rudraswami+, 2016)
*================================================================================
*Relict olivines in micrometeorites: precursors and interactions in the
*Earth's atmosphere.
*    Rudraswami N.G., Shyam Prasad M., Dey S., Fernandes D., Plane J.M.C.,
*    Feng W., Taylor S., Carrillo-Sanchez J.D.
*   <Astrophys. J., 831, 197-197 (2016)>
*   =2016ApJ...831..197R    (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table1.dat'	! Relict olivine grain in Antartica micrometeorites
                               and Deep sea cosmic spherules

      integer*4 nr__
      parameter (nr__=420)	! Number of records
      character*127 ar__   	! Full-size record

      character*3   Type       (nr__) ! Micrometeorite type
*                                (AMM = Antarctica micrometeorite (182 instances)
*                                or DSS = deep sea sediments (238 instances))
      character*14  ID         (nr__) ! Micrometeorite identifier
      integer*4     Diam       (nr__) ! (um) [41/426] Micrometeorite diameter (1)
      integer*4     Len        (nr__) ! (um) [5/227] Length of relict grain
      integer*4     Bre        (nr__) ! (um) [4/170] Breadth of relict grain
      integer*4     Point      (nr__) ! (%) [1/40] Point / 1
      real*4        Na2O       (nr__) ! (%) [0/0.6] Percent Na_2_O in micrometeorite
*                                composition
      real*4        MgO        (nr__) ! (%) [45/60] Percent MgO in micrometeorite composition
      real*4        Al2O3      (nr__) ! (%) [0/1.2] Percent Al_2_O_3_ in micrometeorite
*                                composition
      real*4        SiO2       (nr__) ! (%) [33.7/46] Percent SiO_2_ in micrometeorite
*                                composition
      real*4        P2O5       (nr__) ! (%) [0/0.3] Percent P_2_O_5_ in micrometeorite
*                                composition
      real*4        SO2        (nr__) ! (%) [0/0.5] Percent SO_2_  in micrometeorite
*                                composition
      real*4        K2O        (nr__) ! (%) [0/0.05] Percent K_2_O in micrometeorite
*                                composition
      real*4        CaO        (nr__) ! (%) [0.02/3.1] Percent CaO in micrometeorite
*                                composition
      real*4        TiO2       (nr__) ! (%) [0/0.3] Percent TiO_2_  in micrometeorite
*                                composition
      real*4        Cr2O3      (nr__) ! (%) [0.04/0.8] Percent Cr_2_O_3_ in micrometeorite
*                                composition
      real*4        MnO        (nr__) ! (%) [0/0.9] Percent MnO in micrometeorite composition
      real*4        FeO        (nr__) ! (%) [0.4/5.1] Percent FeO in micrometeorite
*                                composition
      real*4        CoO        (nr__) ! (%) [0/0.2] Percent CoO in micrometeorite composition
      real*4        NiO        (nr__) ! (%) [0/0.6] Percent NiO in micrometeorite composition
      real*4        Total      (nr__) ! (%) [97/102] Previous columns in total composition
      real*4        Mg2SiO4    (nr__) ! (%) [94.8/99.6] Percent Mg_2_SiO_4_ in micrometeorite
*                                composition
      real*4        Fe2Si4     (nr__) ! (%) [0.4/5.2] Percent Fe_2_Si_4_ in micrometeorite
*                                composition
*Note (1): Some of the particles are not spherical in that case they are
*          presented as longest length of the particles.

C=============================================================================

C  Loading file 'table1.dat'	! Relict olivine grain in Antartica micrometeorites
*                               and Deep sea cosmic spherules

C  Format for file interpretation

    1 format(
     +  A3,1X,A14,1X,I3,1X,I3,1X,I3,1X,I2,5X,F4.2,1X,F5.2,1X,F4.2,1X,
     +  F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,
     +  1X,F4.2,1X,F4.2,1X,F4.2,1X,F6.2,1X,F5.2,1X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,420
        read(1,'(A127)')ar__
        read(ar__,1)
     +  Type(i__),ID(i__),Diam(i__),Len(i__),Bre(i__),Point(i__),
     +  Na2O(i__),MgO(i__),Al2O3(i__),SiO2(i__),P2O5(i__),SO2(i__),
     +  K2O(i__),CaO(i__),TiO2(i__),Cr2O3(i__),MnO(i__),FeO(i__),
     +  CoO(i__),NiO(i__),Total(i__),Mg2SiO4(i__),Fe2Si4(i__)
c    ..............Just test output...........
        write(6,1)
     +  Type(i__),ID(i__),Diam(i__),Len(i__),Bre(i__),Point(i__),
     +  Na2O(i__),MgO(i__),Al2O3(i__),SiO2(i__),P2O5(i__),SO2(i__),
     +  K2O(i__),CaO(i__),TiO2(i__),Cr2O3(i__),MnO(i__),FeO(i__),
     +  CoO(i__),NiO(i__),Total(i__),Mg2SiO4(i__),Fe2Si4(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end