FORTRAN Generation
(/./ftp/cats/J/A_A/616/A10)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/616/A10 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/A+A/616/A10    46 open clusters GaiaDR2 HR diagrams (Gaia Collaboration, 2018)
*================================================================================
*Gaia Data Release 2: Observational Hertzsprung-Russell diagrams.
*    Gaia Collaboration, Babusiaux C., van Leeuwen F., Barstow, M. A.,
*    Jordi C., Vallenari A., Bossini A., Bressan A., Cantat-Gaudin T.,
*    van Leeuwen M., Brown A.G.A., Prusti T., de Bruijne J.H.J.,
*    Bailer-Jones C.A.L., Biermann M., Evans D.W., Eyer L., Jansen F.,
*    Klioner S.A., Lammers U., Lindegren L., Luri X., Mignard F., Panem C.,
*    Pourbaix D., Randich S., Sartoretti P., Siddiqui H.I., Soubiran C.,
*    Walton N.A., Arenou F., Bastian U., Cropper M., Drimmel R., Katz D.,
*    Lattanzi M.G., Bakker J., Cacciari C., Castaneda J., Chaoul L., Cheek N.,
*    De Angeli F., Fabricius C., Guerra R., Holl B., Masana E., Messineo R.,
*    Mowlavi N., Nienartowicz K., Panuzzo P., Portell J., Riello M.,
*    Seabroke G.M., Tanga P., Thevenin F., Gracia-Abril G., Comoretto G.,
*    Garcia-Reinaldos M., Teyssier D., Altmann M., Andrae R., Audard M.,
*    Bellas-Velidis I., Benson K., Berthier J., Blomme R., Burgess P., Busso G.,
*    Carry B., Cellino A., Clementini G., Clotet M., Creevey O., Davidson M.,
*    De Ridder J., Delchambre L., Dell'Oro A., Ducourant C.,
*    Fernandez-Hernandez J., Fouesneau M., Fremat Y., Galluccio L.,
*    Garcia-Torres M., Gonzalez-Nunez J., Gonzalez-Vidal J.J., Gosset E.,
*    Guy L.P., Halbwachs J.-L., Hambly N.C., Harrison D.L., Hernandez J.,
*    Hestroer D., Hodgkin S.T., Hutton A., Jasniewicz G.,
*    Jean-Antoine-Piccolo A., Jordan S., Korn A.J., Krone-Martins A.,
*    Lanzafame A.C., Lebzelter T., Loeer W., Manteiga M., Marrese P.M.,
*    Martin-Fleitas J.M., Moitinho A., Mora A., Muinonen K., Osinde J.,
*    Pancino E., Pauwels T., Petit J.-M., Recio-Blanco A., Richards P.J.,
*    Rimoldini L., Robin A.C., Sarro L.M., Siopis C., Smith M., Sozzetti A.,
*    Sueveges M., Torra J., van Reeven W., Abbas U., Abreu Aramburu A.,
*    Accart S., Aerts C., Altavilla G., Alvarez M.A., Alvarez R., Alves J.,
*    Anderson R.I., Andrei A.H., Anglada Varela E., Antiche E., Antoja T.,
*    Arcay B., Astraatmadja T.L., Bach N., Baker S.G., Balaguer-Nunez L.,
*    Balm P., Barache C., Barata C., Barbato D., Barblan F., Barklem P.S.,
*    Barrado D., Barros M., Bartholome Munoz S., Bassilana J.-L., Becciani U.,
*    Bellazzini M., Berihuete A., Bertone S., Bianchi L., Bienayme O.,
*    Blanco-Cuaresma S., Boch T., Boeche C., Bombrun A., Borrachero R.,
*    Bouquillon S., Bourda G., Bragaglia A., Bramante L., Breddels M.A.,
*    Brouillet N., Bruesemeister T., Brugaletta E., Bucciarelli B., Burlacu A.,
*    Busonero D., Butkevich A.G., Buzzi R., Caau E., Cancelliere R.,
*    Cannizzaro G., Carballo R., Carlucci T., Carrasco J.M., Casamiquela L.,
*    Castellani M., Castro-Ginard A., Charlot P., Chemin L., Chiavassa A.,
*    Cocozza G., Costigan G., Cowell S., Crifo F., Crosta M., Crowley C.,
*    Cuypersy J., Dafonte C., Damerdji Y., Dapergolas A., David P., David M.,
*    de Laverny P., De Luise F., De March R., de Martino D., de Souza R.,
*    de Torres A., Debosscher J., del Pozo E., Delbo M., Delgado A.,
*    Delgado H.E., Diakite S., Diener C., Distefano E., Dolding C., Drazinos P.,
*    Duran J., Edvardsson B., Enke H., Eriksson K., Esquej P.,
*    Eynard Bontemps G., Fabre C., Fabrizio M., Faigler S., Falcao A.J.,
*    Farras Casas M., Federici L., Fedorets G., Fernique P., Figueras F.,
*    Filippi F., Findeisen K., Fonti A., Fraile E., Fraser M., Frezouls B.,
*    Gai M., Galleti S., Garabato D., Garcia-Sedano F., Garofalo A., Garralda N.,
*    Gavel A., Gavras P., Gerssen J., Geyer R., Giacobbe P., Gilmore G.,
*    Girona S., Giurida G., Glass F., Gomes M., Granvik M., Gueguen A.,
*    Guerrier A., Guiraud J., Gutierrez-Sanchez R., Haigron R.,
*    Hatzidimitriou D., Hauser M., Haywood M., Heiter U., Helmi A., Heu J.,
*    Hilger T., Hobbs D., Hofmann W., Holland G., Huckle H.E., Hypki A.,
*    Icardi V., Janssen K., Jevardat de Fombelle G., Jonker P.G., Juhasz A.L.,
*    Julbe F., Karampelas A., Kewley A., Klar J., Kochoska A., Kohley R.,
*    Kolenberg K., Kontizas M., Kontizas E., Koposov S.E., Kordopatis G.,
*    Kostrzewa-Rutkowska Z., Koubsky P., Lambert S., Lanza A.F., Lasne Y.,
*    Lavigne J.-B., Le Fustec Y., Le Poncin-Lafitte C., Lebreton Y., Leccia S.,
*    Leclerc N., Lecoeur-Taibi I., Lenhardt H., Leroux F., Liao S., Licata E.,
*    Lindstrom H.E.P., Lister T.A., Livanou E., Lobel A., Lopez M., Managau S.,
*    Mann R.G., Mantelet G., Marchal O., Marchant J.M., Marconi M., Marinoni S.,
*    Marschalko G., Marshall D.J., Martino M., Marton G., Mary N., Massari D.,
*    Matijevi?c G., Mazeh T., McMillan P.J., Messina S., Michalik D.,
*    Millar N.R., Molina D., Molinaro R., Molnar L., Montegrio P., Mor R.,
*    Morbidelli R., Morel T., Morris D., Mulone A.F., Muraveva T., Musella I.,
*    Nelemans G., Nicastro L., Noval L., O'Mullane W., Ordenovic C.,
*    Ordonez-Blanco D., Osborne P., Pagani C., Pagano I., Pailler F.,
*    Palacin H., Palaversa L., Panahi A., Pawlak M., Piersimoni A.M.,
*    Pineau F.-X., Plachy E., Plum G., Poggio E., Poujoulet E., Prsa A.,
*    Pulone L., Racero E., Ragaini S., Rambaux N., Ramos-Lerate M., Regibo S.,
*    Reyle C., Riclet F., Ripepi V., Riva A., Rivard A., Rixon G., Roegiers T.,
*    Roelens M., Romero-Gomez M., Rowell N., Royer F., Ruiz-Dern L., Sadowski G.,
*    Sagrista Selles T., Sahlmann J., Salgado J., Salguero E., Sanna N.,
*    Santana-Ros T., Sarasso M., Savietto H., Schultheis M., Sciacca E.,
*    Segol M., Segovia J.C., Segransan D., Shih I-C., Siltala L., Silva A.F.,
*    Smart R.L., Smith K.W., Solano E., Solitro F., Sordo R., Soria Nieto S.,
*    Souchay J., Spagna A., Spoto F., Stampa U., Steele I.A., Steidelmueller H.,
*    Stephenson C.A., Stoev H., Suess F.F., Surdej J., Szabados L.,
*    Szegedi-Elek E., Tapiador D., Taris F., Tauran G., Taylor M.B., Teixeira R.,
*    Terrett D., Teyssandier P., Thuillot W., Titarenko A., Torra Clotet F.,
*    Turon C., Ulla A., Utrilla E., Uzzi S., Vaillant M., Valentini G.,
*    Valette V., van Elteren A., Van Hemelryck E., Vaschetto M., Vecchiato A.,
*    Veljanoski J., Viala Y., Vicente D., Vogt S., von Essen C., Voss H.,
*    Votruba V., Voutsinas S., Walmsley G., Weiler M., Wertz O., Wevers T.,
*    Wyrzykowski L., Yoldas A., Zerjal M., Ziaeepour H., Zorec J., Zschocke S.,
*    Zucker S., Zurbach C., Zwitter T.
*   <Astron. Astrophys. 616, A10 (2018)>
*   =2018A&A...616A..10G (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'tablea1a.dat'	! Stars in nine open clusters within 250pc

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

C  Position composed of: RAdeg DEdeg (Epoch=2015.5)
      integer*8     Source     (nr__) ! Source identifier in Gaia DR2 (source_id)
      character*8   Cluster    (nr__) ! Cluster identifier
      real*8        RAdeg      (nr__) ! (deg) Right Ascension (ICRS), epoch 2015.5
      real*8        DEdeg      (nr__) ! (deg) Declination (ICRS), epoch 2015.5
      real*4        Gmag       (nr__) ! (mag) Gaia G mean magnitude
      real*4        plx        (nr__) ! (mas) ? Optimized parallax (only in tablea1a.dat) (1)
      real*4        e_plx      (nr__) ! (mas) ? Uncertainty on optimized parallax
*                                  (only in tablea1a.dat)
*Note (1): optimized parallaxes obtained for nearby clusters based on the
*  combined information extracted from the measured parallax and proper motion
*  values.

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

C  Declarations for 'tablea1b.dat'	! Stars in 37 open clusters beyond 250pc

      integer*4 nr__1
      parameter (nr__1=35525)	! Number of records
      character*71 ar__1  	! Full-size record

C  Position composed of: RAdeg DEdeg (Epoch=2015.5)
      integer*8     Source_1   (nr__1) ! Source identifier in Gaia DR2 (source_id)
      character*8   Cluster_1  (nr__1) ! Cluster identifier
      real*8        RAdeg_1    (nr__1) ! (deg) Right Ascension (ICRS), epoch 2015.5
      real*8        DEdeg_1    (nr__1) ! (deg) Declination (ICRS), epoch 2015.5
      real*4        Gmag_1     (nr__1) ! (mag) Gaia G mean magnitude
      real*4        plx_1      (nr__1) ! (mas) ? Optimized parallax (only in tablea1a.dat) (1)
      real*4        e_plx_1    (nr__1) ! (mas) ? Uncertainty on optimized parallax
*                                  (only in tablea1a.dat)
*Note (1): optimized parallaxes obtained for nearby clusters based on the
*  combined information extracted from the measured parallax and proper motion
*  values.

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

C  Declarations for 'tablea3.dat'	! Mean parameters for clusters within 250pc

      integer*4 nr__2
      parameter (nr__2=9)	! Number of records
      character*160 ar__2  	! Full-size record

C  Position composed of: RAdeg DEdeg (Epoch=2015.5)
      character*8   Cluster_2  (nr__2) ! Cluster name
      real*4        RAdeg_2    (nr__2) ! (deg) Right Ascension (ICRS), epoch 2015.5
      real*4        DEdeg_2    (nr__2) ! (deg) Declination (ICRS), epoch 2015.5
      real*4        U          (nr__2) ! (km/s) U-component of cluster velocity
      real*4        e_U        (nr__2) ! (km/s) Uncertainty on U
      real*4        V          (nr__2) ! (km/s) V-component of cluster velocity
      real*4        e_V        (nr__2) ! (km/s) Uncertainty on V
      real*8        W          (nr__2) ! (km/s) W-component of cluster velocity
      real*4        e_W        (nr__2) ! (km/s) Uncertainty on W
      real*4        cUV        (nr__2) ! Error-correlation coefficient U,V
      real*4        cUW        (nr__2) ! Error-correlation coefficient U,W
      real*4        cVW        (nr__2) ! Error-correlation coefficient V,W
      real*8        RAconv     (nr__2) ! (deg) Right ascension of convergent point
      real*8        DEconv     (nr__2) ! (deg) Declination of convergent point
      real*4        plx_2      (nr__2) ! (mas) Parallax of cluster centre
      real*4        e_plx_2    (nr__2) ! (mas) Uncertainty on parallax cluster centre
      real*8        pmRA       (nr__2) ! (mas/yr) Proper motion along RA of cluster centre
      real*4        e_pmRA     (nr__2) ! (mas/yr) Uncertainty on pmRA cluster centre
      real*8        pmDE       (nr__2) ! (mas/yr) Proper motion along DE of cluster centre
      real*4        e_pmDE     (nr__2) ! (mas/yr) Uncertainty on pmDE cluster centre
      integer*4     NMemb      (nr__2) ! number of cluster members identified
      real*4        uwsd       (nr__2) ! Unit-weight standard deviation of solution
      real*4        RV         (nr__2) ! (km/s) Radial velocity at cluster centre
      real*4        e_RV       (nr__2) ! (km/s) Uncertainty of Vrad

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

C  Declarations for 'tablea4.dat'	! Mean parameters for clusters beyond 250pc

      integer*4 nr__3
      parameter (nr__3=37)	! Number of records
      character*120 ar__3  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*7   Cluster_3  (nr__3) ! Cluster name
      real*8        RAdeg_3    (nr__3) ! (deg) Right Ascension cluster centre (J2000)
      real*8        DEdeg_3    (nr__3) ! (deg) Declination cluster centre (J2000)
      real*4        plx_3      (nr__3) ! (mas) Parallax of cluster centre
      real*4        e_plx_3    (nr__3) ! (mas) Uncertainty of parallax cluster centre
      real*8        pmRA_1     (nr__3) ! (mas/yr) Proper motion along RA of cluster centre
      real*4        e_pmRA_1   (nr__3) ! (mas/yr) Uncertainty of pmRA
      real*8        pmDE_1     (nr__3) ! (mas/yr) Proper motion along DE of cluster centre
      real*4        e_pmDE_1   (nr__3) ! (mas/yr) Uncertainty of pmDE
      real*4        cc1        (nr__3) ! Error correlation coefficient plx-pmRA
      real*4        cc2        (nr__3) ! Error correlation coefficient plx-pmDE
      real*4        cc3        (nr__3) ! Error correlation coefficient pmRA-pmDE
      integer*4     NMemb_1    (nr__3) ! Number of cluster members
      real*4        rMax       (nr__3) ! (deg) Maximum radius of the cluster
      real*4        uwsd_1     (nr__3) ! Unit-weight standard deviation of solution
      real*4        RV_1       (nr__3) ! (km/s) ? Mean radial velocity, Gaia data
      real*4        e_RV_1     (nr__3) ! (km/s) ? Uncertainty on RV
      integer*4     o_RV       (nr__3) ! ? Number of radial velocity data points

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

C  Loading file 'tablea1a.dat'	! Stars in nine open clusters within 250pc

C  Format for file interpretation

    1 format(I22,1X,A8,1X,F9.5,1X,F9.5,1X,F6.3,1X,F6.3,1X,F5.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea1a.dat')
      write(6,*) '....Loading file: tablea1a.dat'
      do i__=1,5378
        read(1,'(A71)')ar__
        read(ar__,1)
     +  Source(i__),Cluster(i__),RAdeg(i__),DEdeg(i__),Gmag(i__),
     +  plx(i__),e_plx(i__)
        if(ar__(60:65) .EQ. '') plx(i__) = rNULL__
        if(ar__(67:71) .EQ. '') e_plx(i__) = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  Source(i__),Cluster(i__),RAdeg(i__),DEdeg(i__),Gmag(i__),
     +  plx(i__),e_plx(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'tablea1b.dat'	! Stars in 37 open clusters beyond 250pc

C  Format for file interpretation

    2 format(I22,1X,A8,1X,F9.5,1X,F9.5,1X,F6.3,1X,F6.3,1X,F5.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea1b.dat')
      write(6,*) '....Loading file: tablea1b.dat'
      do i__=1,35525
        read(1,'(A71)')ar__1
        read(ar__1,2)
     +  Source_1(i__),Cluster_1(i__),RAdeg_1(i__),DEdeg_1(i__),
     +  Gmag_1(i__),plx_1(i__),e_plx_1(i__)
        if(ar__1(60:65) .EQ. '') plx_1(i__) = rNULL__
        if(ar__1(67:71) .EQ. '') e_plx_1(i__) = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  Source_1(i__),Cluster_1(i__),RAdeg_1(i__),DEdeg_1(i__),
     +  Gmag_1(i__),plx_1(i__),e_plx_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'tablea3.dat'	! Mean parameters for clusters within 250pc

C  Format for file interpretation

    3 format(
     +  A8,1X,F6.2,1X,F6.2,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F7.3,1X,
     +  F5.3,1X,F5.2,1X,F5.2,1X,F5.2,1X,F8.4,1X,F8.4,1X,F6.3,1X,F5.3,
     +  1X,F7.3,1X,F5.3,1X,F7.3,1X,F5.3,1X,I4,1X,F4.2,1X,F5.2,1X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea3.dat')
      write(6,*) '....Loading file: tablea3.dat'
      do i__=1,9
        read(1,'(A160)')ar__2
        read(ar__2,3)
     +  Cluster_2(i__),RAdeg_2(i__),DEdeg_2(i__),U(i__),e_U(i__),
     +  V(i__),e_V(i__),W(i__),e_W(i__),cUV(i__),cUW(i__),cVW(i__),
     +  RAconv(i__),DEconv(i__),plx_2(i__),e_plx_2(i__),pmRA(i__),
     +  e_pmRA(i__),pmDE(i__),e_pmDE(i__),NMemb(i__),uwsd(i__),
     +  RV(i__),e_RV(i__)
c    ..............Just test output...........
        write(6,3)
     +  Cluster_2(i__),RAdeg_2(i__),DEdeg_2(i__),U(i__),e_U(i__),
     +  V(i__),e_V(i__),W(i__),e_W(i__),cUV(i__),cUW(i__),cVW(i__),
     +  RAconv(i__),DEconv(i__),plx_2(i__),e_plx_2(i__),pmRA(i__),
     +  e_pmRA(i__),pmDE(i__),e_pmDE(i__),NMemb(i__),uwsd(i__),
     +  RV(i__),e_RV(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'tablea4.dat'	! Mean parameters for clusters beyond 250pc

C  Format for file interpretation

    4 format(
     +  A7,1X,F8.4,1X,F8.4,1X,F6.4,1X,F6.4,1X,F8.4,1X,F6.4,1X,F8.4,1X,
     +  F6.4,1X,F5.2,1X,F5.2,1X,F5.2,1X,I4,1X,F4.2,1X,F4.2,1X,F6.2,1X,
     +  F4.2,1X,I3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea4.dat')
      write(6,*) '....Loading file: tablea4.dat'
      do i__=1,37
        read(1,'(A120)')ar__3
        read(ar__3,4)
     +  Cluster_3(i__),RAdeg_3(i__),DEdeg_3(i__),plx_3(i__),
     +  e_plx_3(i__),pmRA_1(i__),e_pmRA_1(i__),pmDE_1(i__),
     +  e_pmDE_1(i__),cc1(i__),cc2(i__),cc3(i__),NMemb_1(i__),
     +  rMax(i__),uwsd_1(i__),RV_1(i__),e_RV_1(i__),o_RV(i__)
        if(ar__3(106:111) .EQ. '') RV_1(i__) = rNULL__
        if(ar__3(113:116) .EQ. '') e_RV_1(i__) = rNULL__
        if(ar__3(118:120) .EQ. '') o_RV(i__) = iNULL__
c    ..............Just test output...........
        write(6,4)
     +  Cluster_3(i__),RAdeg_3(i__),DEdeg_3(i__),plx_3(i__),
     +  e_plx_3(i__),pmRA_1(i__),e_pmRA_1(i__),pmDE_1(i__),
     +  e_pmDE_1(i__),cc1(i__),cc2(i__),cc3(i__),NMemb_1(i__),
     +  rMax(i__),uwsd_1(i__),RV_1(i__),e_RV_1(i__),o_RV(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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