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