Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/605/A79 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-Apr-16
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/605/A79 TGAS Cepheids and RR Lyrae stars (Gaia Collaboration+, 2017)
*================================================================================
*Gaia Data Release 1.
*Testing the parallaxes with local Cepheids and RR Lyrae stars.
* Gaia Collaboration, Clementini G., Eyer L., Ripepi V., Marconi M.,
* Muraveva T., Garofalo A., Sarro L.M., Palmer M., Luri X., ET AL.!!!
* Molinaro R., Rimoldini L., Szabados L., Musella I., Anderson R.I.,
* Prusti T., de Bruijne J.H.J., Brown A.G.A., Vallenari A., Babusiaux C.,
* Bailer-Jones C.A.L., Bastian U., Biermann M., Evans D.W., Jansen F.,
* Jordi C., Klioner S.A., Lammers U., Lindegren L., Mignard F., Panem C.,
* Pourbaix D., , Randich S., Sartoretti P., Siddiqui H.I., Soubiran C.,
* Valette V., van Leeuwen F., Walton N.A., Aerts C., Arenou F., Cropper M.,
* Drimmel R., Hog E., Katz D., Lattanzi M.G., O'Mullane W., Grebel E.K.,
* Holland A.D., Huc C., Passot X., Perryman M., Bramante L., Cacciari C.,
* Castaneda J., Chaoul L., Cheek N., De Angeli F., Fabricius C., Guerra R.,
* Hernandez J., Jean-Antoine-Piccolo A., Masana E., Messineo R., Mowlavi N.,
* Nienartowicz K., Ordonez-Blanco D., Panuzzo P., Portell J., Richards P.J.,
* Riello M., Seabroke G.M., Tanga P., Thevenin F., Torra J., Els S.G.,
* Gracia-Abril G., Comoretto G., Garcia-Reinaldos M., Lock T., Mercier E.,
* Altmann M., Andrae R., Astraatmadja T.L., Bellas-Velidis I., Benson K.,
* Berthier J., Blomme R., Busso G., Carry B., Cellino A., Cowell S.,
* Creevey O., Cuypers J., Davidson M., De Ridder J., de Torres A.,
* Delchambre L., Dell'Oro A., Ducourant C., Fremat Y., Garcia-Torres M.,
* Gosset E., Halbwachs J.-L., Hambly N.C., Harrison D.L., Hauser M.,
* Hestroffer D., Hodgkin S.T., Huckle H.E., Hutton A., Jasniewicz G.,
* Jordan S., Kontizas M., Korn A.J., Lanzafame A.C., Manteiga M.,
* Moitinho A., Muinonen K., Osinde J., Pancino E., Pauwels T., Petit J.-M.,
* Recio-Blanco A., Robin A.C., Siopis C., Smith M., Smith K.W., Sozzetti A.,
* Thuillot W., van Reeven W., Viala Y., Abbas U., Abreu Aramburu A.,
* Accart S., Aguado J.J., Allan P.M., Allasia W., Altavilla G.,
* Alvarez M.A., Alves J., Andrei A.H., Anglada Varela E., Antiche E.,
* Antoja T., Anton S., Arcay B., Bach N., Baker S.G., Balaguer-Nunez L.,
* Barache C., Barata C., Barbier A., Barblan F., Barrado y Navascues D.,
* Barros M., Barstow M.A., Becciani U., Bellazzini M., Bello Garcia A.,
* Belokurov V., Bendjoya P., Berihuete A., Bianchi L., Bienayme O.,
* Billebaud F., Blagorodnova N., Blanco-Cuaresma S., Boch T., Bombrun A.,
* Borrachero R., Bouquillon S., Bourda G., Bragaglia A., Breddels M.A.,
* Brouillet N., Bruesemeister T., Bucciarelli B., Burgess P., Burgon R.,
* Burlacu A., Busonero D., Buzzi R., Caffau E., Cambras J., Campbell H.,
* Cancelliere R., Cantat-Gaudin T., Carlucci T., Carrasco J.M.,
* Castellani M., Charlot P., Charnas J., Chiavassa A., Clotet M.,
* Cocozza G., Collins R.S., Costigan G., Crifo F., Cross N.J.G., Crosta M.,
* Crowley C., Dafonte C., Damerdji Y., Dapergolas A., David P., David M.,
* De Cat P., de Felice F., de Laverny P., De Luise F., De March R.,
* de Souza R., Debosscher J., del Pozo E., Delbo M., Delgado A.,
* Delgado H.E., Di Matteo P., Diakite S., Distefano E., Dolding C.,
* Dos Anjos S., Drazinos P., Duran J., Dzigan Y., Edvardsson B., Enke H.,
* Evans N.W., Eynard Bontemps G., Fabre C., Fabrizio M., Falcao A.J.,
* Farras Casas M., Federici L., Fedorets G., Fernandez-Hernandez J.,
* Fernique P., Fienga A., Figueras F., Filippi F., Findeisen K., Fonti A.,
* Fouesneau M., Fraile E., Fraser M., Fuchs J., Gai M., Galleti S.,
* Galluccio L., Garabato D., Garcia-Sedano F., Garralda N., Gavras P.,
* Gerssen J., Geyer R., Gilmore G., Girona S., Giuffrida G., Gomes M.,
* Gonzalez-Marcos A., Gonzalez-Nunez J., Gonzalez-Vidal J.J., Granvik M.,
* Guerrier A., Guillout P., Guiraud J., Gurpide A., Gutierrez-Sanchez R.,
* Guy L.P., Haigron R., Hatzidimitriou D., Haywood M., Heiter U., Helmi A.,
* Hobbs D., Hofmann W., Holl B., Holland G., Hunt J.A.S., Hypki A.,
* Icardi V., Irwin M., Jevardat de Fombelle G., Jofre P., Jonker P.G.,
* Jorissen A., Julbe F., Karampelas A., Kochoska A., Kohley R.,
* Kolenberg K., Kontizas E., Koposov S.E., Kordopatis G., Koubsky P.,
* Krone-Martins A., Kudryashova M., Bachchan R.K., Lacoste-Seris F.,
* Lanza A.F., Lavigne J.-B., Le Poncin-Lafitte C., Lebreton Y.,
* Lebzelter T., Leccia S., Leclerc N., Lecoeur-Taibi I., Lemaitre V.,
* Lenhardt H., Leroux F., Liao S., Licata E., Lindstrom H.E.P., Lister T.A.,
* Livanou E., Lobel A., Loeffler W., Lopez M., Lorenz D., MacDonald I.,
* Magalhaes Fernandes T., Managau S., Mann R.G., Mantelet G., Marchal O.,
* Marchant J.M., Marinoni S., Marrese P.M., Marschalko G., Marshall D.J.,
* Martin-Fleitas J.M., Martino M., Mary N., Matijevic G., McMillan P.J.,
* Messina S., Michalik D., Millar N.R., Miranda B.M.H., Molina D.,
* Molinaro M., Molnar L., Moniez M., Montegriffo P., Mor R., Mora A.,
* Morbidelli R., Morel T., Morgenthaler S., Morris D., Mulone A.F.,
* Narbonne J., Nelemans G., Nicastro L., Noval L., Ordenovic C.,
* Ordieres-Mere J., Osborne P., Pagani C., Pagano I., Pailler F.,
* Palacin H., Palaversa L., Parsons P., Pecoraro M., Pedrosa R.,
* Pentikaeinen H., Pichon B., Piersimoni A.M., Pineau F.-X., Plachy E.,
* Plum G., Poujoulet E., Prsa A., Pulone L., Ragaini S., Rago S.,
* Rambaux N., Ramos-Lerate M., Ranalli P., Rauw G., Read A., Regibo S.,
* Reyle C., Ribeiro R.A., Riva A., Rixon G., Roelens M., Romero-Gomez M.,
* Rowell N., Royer F., Ruiz-Dern L., Sadowski G., Sagrista Selles T.,
* Sahlmann J., Salgado J., Salguero E., Sarasso M., Savietto H.,
* Schultheis M., Sciacca E., Segol M., Segovia J.C., Segransan D.,
* Shih I-C., Smareglia R., Smart R.L., 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., Sueveges M.,
* Surdej J., Szegedi-Elek E., Tapiador D., Taris F., Tauran G., Taylor M.B.,
* Teixeira R., Terrett D., Tingley B., Trager S.C., Turon C., Ulla A.,
* Utrilla E., Valentini G., van Elteren A., Van Hemelryck E.,
* van Leeuwen M., Varadi M., Vecchiato A., Veljanoski J., Via T.,
* Vicente D., Vogt S., Voss H., Votruba V., Voutsinas S., Walmsley G.,
* Weiler M., Weingrill K., Wevers T., Wyrzykowski L., Yoldas A.,
* Zerjal M., Zucker S., Zurbach C., Zwitter T., Alecu A., Allen M.,
* Allende Prieto C., Amorim A., Anglada-Escude G., Arsenijevic V., Azaz S.,
* Balm P., Beck M., Bernstein+ H.-H., Bigot L., Bijaoui A., Blasco C.,
* Bonfigli M., Bono G., Boudreault S., Bressan A., Brown S., Brunet P.-M.,
* Bunclark+ P., Buonanno R., Butkevich A.G., Carret C., Carrion C.,
* Chemin L., Chereau F., Corcione L., Darmigny E., de Boer K.S.,
* de Teodoro P., de Zeeuw P.T., Delle Luche C., Domingues C.D., Dubath P.,
* Fodor F., Frezouls B., Fries A., Fustes D., Fyfe D., Gallardo E.,
* Gallegos J., Gardiol D., Gebran M., Gomboc A., Gomez A., Grux E.,
* Gueguen A., Heyrovsky A., Hoar J., Iannicola G., Isasi Parache Y.,
* Janotto A.-M., Joliet E., Jonckheere A., Keil R., Kim D.-W., Klagyivik P.,
* Klar J., Knude J., Kochukhov O., Kolka I., Kos J., Kutka A., Lainey V.,
* LeBouquin D., Liu C., Loreggia D., Makarov V.V., Marseille M.G.,
* Martayan C., Martinez-Rubi O., Massart B., Meynadier F., Mignot S.,
* Munari U., Nguyen A.-T., Nordlander T., O'Flaherty K.S., Ocvirk P.,
* Olias Sanz A., Ortiz P., Osorio J., Oszkiewicz D., Ouzounis A., Park P.,
* Pasquato E., Peltzer C., Peralta J., Peturaud F., Pieniluoma T.,
* Pigozzi E., Poels+ J., Prat G., Prod'homme T., Raison F., Rebordao J.M.,
* Risquez D., Rocca-Volmerange B., Rosen S., Ruiz-Fuertes M.I., Russo F.,
* Serraller Vizcaino I., Short A., Siebert A., Silva H., Sinachopoulos D.,
* Slezak E., Soffel M., Sosnowska D., Straizys V., ter Linden M.,
* Terrell D., Theil S., Tiede C., Troisi L., Tsalmantza P., Tur D.,
* Vaccari M., Vachier F., Valles P., Van Hamme W., Veltz L., Virtanen J.,
* Wallut J.-M., Wichmann R., Wilkinson M.I., Ziaeepour H., Zschocke S.
* <Astron. Astrophys. 605, A79 (2017)>
* =2017A&A...605A..79G (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea1.dat' ! Photometric and spectroscopic parameters for
331 Classical Cepheids
integer*4 nr__
parameter (nr__=331) ! Number of records
character*139 ar__ ! Full-size record
character*14 Name (nr__) ! Star name (1)
integer*8 Gaia (nr__) ! ? Gaia DR1 identification number
integer*4 HIP (nr__) ! ? Hipparcos identification number
character*11 Tycho2 (nr__) ! Tycho2 identification number
real*4 plxHIP (nr__) ! (mas) ? Hipparcos parallax (milliarcsec)
real*4 e_plxHIP (nr__) ! (mas) ? Hipparcos parallax error
real*4 plxTGAS (nr__) ! (mas) ? TGAS parallax (milliarcsec)
real*4 e_plxTGAS (nr__) ! (mas) ? TGAS parallax error
real*8 Per (nr__) ! (d) ? Period (G1)
real*4 Gmag (nr__) ! (mag) ? Gaia-band magnitude
real*4 e_Gmag (nr__) ! (mag) ? Gaia-band magnitude error
real*4 Ksmag (nr__) ! (mag) ? Ks-band magnitude
real*4 Vmag (nr__) ! (mag) ? V-band magnitude
real*4 Imag (nr__) ! (mag) ? I-band magnitude
real*4 E_B_V (nr__) ! (mag) ? B-V colour excess
real*4 v_Fe_H_ (nr__) ! ([-]) ? Metallicity
character*7 Ref (nr__) ! References (2)
*Note (1): The first 102 entries are fundamental mode classical Cepheids that
* we used in the analysis described in Sec. 4.2.
*Note (2): Photometric and spectroscopic information from:
* 1 = van Leeuwen (2007A&A...474..653V, Cat. I/311)
* 2 = Genovali et al. (2014A&A...566A..37G, Cat. J/A+A/566/A37)
* 3 = Samus et al. (2017ARep...61...80S, Cat. B/gcvs)
* 4 = Sziladi et al. (2007A&A...473..579S)
* 5 = Romaniello et al. (2008A&A...488..731R)
* 6 = Lemasle et al. (2007A&A...467..283L) and
* Lemasle et al. (2008A&A...490..613L)
* 7 = Luck et al. (2011AJ....142...51L, Cat. J/AJ/142/51)
* 8 = Luck & Lambert (2011AJ....142..136L, Cat. J/AJ/142/136)
* 9 = Berdnikov et al. (2000A&AS..143..211B, Cat. J/A+AS/143/211)
* 10 = Groenewegen (1999A&AS..139..245G)
* 11 = Ngeow (2012ApJ...747...50N, Cat. J/ApJ/747/50)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea2.dat' ! Photometric and spectroscopic parameters for
31 Type II Cepheids
integer*4 nr__1
parameter (nr__1=31) ! Number of records
character*110 ar__1 ! Full-size record
character*9 Name_1 (nr__1) ! Star name
integer*8 Gaia_1 (nr__1) ! ? Gaia DR1 identification number
integer*4 HIP_1 (nr__1) ! ? Hipparcos identification number
character*11 Tycho2_1 (nr__1) ! Tycho2 identification number
real*4 plxHIP_1 (nr__1) ! (mas) ? Hipparcos parallax (milliarcsec)
real*4 e_plxHIP_1 (nr__1) ! (mas) ? Hipparcos parallax error
real*4 plxTGAS_1 (nr__1) ! (mas) ? TGAS parallax (milliarcsec)
real*4 e_plxTGAS_1(nr__1) ! (mas) ? TGAS parallax error
real*8 Per_1 (nr__1) ! (d) ? Period (G1)
real*4 Gmag_1 (nr__1) ! (mag) ? Gaia-band magnitude
real*4 e_Gmag_1 (nr__1) ! (mag) ? Gaia-band magnitude error
real*4 Jmag (nr__1) ! (mag) ? 2MASS J-band magnitude
real*4 Ksmag_1 (nr__1) ! (mag) ? 2MASS Ks-band magnitude
real*4 E_B_V_1 (nr__1) ! (mag) ? B-V colour excess (2)
*Note (2): Colour excess from Harris (1985AJ.....90..756H).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea3.dat' ! Photometric and spectroscopic parameters for
364 RR Lyrae stars
integer*4 nr__2
parameter (nr__2=364) ! Number of records
character*129 ar__2 ! Full-size record
character*9 Name_2 (nr__2) ! Star name
integer*8 Gaia_2 (nr__2) ! ? Gaia DR1 identification number
integer*4 HIP_2 (nr__2) ! ? Hipparcos identification number
character*11 Tycho2_2 (nr__2) ! Tycho2 identification number
real*4 plxHIP_2 (nr__2) ! (mas) ? Hipparcos parallax (milliarcsec)
real*4 e_plxHIP_2 (nr__2) ! (mas) ? Hipparcos parallax error
real*4 plxTGAS_2 (nr__2) ! (mas) ? TGAS parallax (milliarcsec)
real*4 e_plxTGAS_2(nr__2) ! (mas) ? TGAS parallax error
real*4 Per_2 (nr__2) ! (d) ? Period (G1)
character*2 Mode (nr__2) ! Pulsation mode
real*4 Gmag_2 (nr__2) ! (mag) ? Gaia-band magnitude
real*4 e_Gmag_2 (nr__2) ! (mag) ? Gaia-band magnitude error
real*4 Vmag_1 (nr__2) ! (mag) ? V-band magnitude
real*4 Ksmag_2 (nr__2) ! (mag) ? 2MASS Ks-band magnitude
real*4 W1mag (nr__2) ! (mag) ? WISE W1-band magnitude
real*4 AV (nr__2) ! (mag) ? V-band absorption
real*4 v_Fe_H__1 (nr__2) ! ([-]) ? Metallicity
C=============================================================================
C Loading file 'tablea1.dat' ! Photometric and spectroscopic parameters for
* 331 Classical Cepheids
C Format for file interpretation
1 format(
+ A14,2X,I19,1X,I6,1X,A11,F6.2,2X,F4.2,1X,F5.2,1X,F4.2,1X,F8.4,
+ 1X,F6.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,F5.2,1X,A7)
C Effective file loading
open(unit=1,status='old',file=
+'tablea1.dat')
write(6,*) '....Loading file: tablea1.dat'
do i__=1,331
read(1,'(A139)')ar__
read(ar__,1)
+ Name(i__),Gaia(i__),HIP(i__),Tycho2(i__),plxHIP(i__),
+ e_plxHIP(i__),plxTGAS(i__),e_plxTGAS(i__),Per(i__),Gmag(i__),
+ e_Gmag(i__),Ksmag(i__),Vmag(i__),Imag(i__),E_B_V(i__),
+ v_Fe_H_(i__),Ref(i__)
if(ar__(17:35) .EQ. '') Gaia(i__) = iNULL__
if(ar__(37:42) .EQ. '') HIP(i__) = iNULL__
if(ar__(55:60) .EQ. '') plxHIP(i__) = rNULL__
if(ar__(63:66) .EQ. '') e_plxHIP(i__) = rNULL__
if(ar__(68:72) .EQ. '') plxTGAS(i__) = rNULL__
if(ar__(74:77) .EQ. '') e_plxTGAS(i__) = rNULL__
if(ar__(79:86) .EQ. '') Per(i__) = rNULL__
if(ar__(88:93) .EQ. '') Gmag(i__) = rNULL__
if(ar__(95:99) .EQ. '') e_Gmag(i__) = rNULL__
if(ar__(101:105) .EQ. '') Ksmag(i__) = rNULL__
if(ar__(107:112) .EQ. '') Vmag(i__) = rNULL__
if(ar__(114:119) .EQ. '') Imag(i__) = rNULL__
if(ar__(121:125) .EQ. '') E_B_V(i__) = rNULL__
if(ar__(127:131) .EQ. '') v_Fe_H_(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Name(i__),Gaia(i__),HIP(i__),Tycho2(i__),plxHIP(i__),
+ e_plxHIP(i__),plxTGAS(i__),e_plxTGAS(i__),Per(i__),Gmag(i__),
+ e_Gmag(i__),Ksmag(i__),Vmag(i__),Imag(i__),E_B_V(i__),
+ v_Fe_H_(i__),Ref(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tablea2.dat' ! Photometric and spectroscopic parameters for
* 31 Type II Cepheids
C Format for file interpretation
2 format(
+ A9,1X,I19,1X,I6,1X,A11,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,
+ F7.4,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'tablea2.dat')
write(6,*) '....Loading file: tablea2.dat'
do i__=1,31
read(1,'(A110)')ar__1
read(ar__1,2)
+ Name_1(i__),Gaia_1(i__),HIP_1(i__),Tycho2_1(i__),
+ plxHIP_1(i__),e_plxHIP_1(i__),plxTGAS_1(i__),e_plxTGAS_1(i__),
+ Per_1(i__),Gmag_1(i__),e_Gmag_1(i__),Jmag(i__),Ksmag_1(i__),
+ E_B_V_1(i__)
if(ar__1(11:29) .EQ. '') Gaia_1(i__) = iNULL__
if(ar__1(31:36) .EQ. '') HIP_1(i__) = iNULL__
if(ar__1(50:54) .EQ. '') plxHIP_1(i__) = rNULL__
if(ar__1(56:59) .EQ. '') e_plxHIP_1(i__) = rNULL__
if(ar__1(61:65) .EQ. '') plxTGAS_1(i__) = rNULL__
if(ar__1(67:70) .EQ. '') e_plxTGAS_1(i__) = rNULL__
if(ar__1(72:78) .EQ. '') Per_1(i__) = rNULL__
if(ar__1(80:85) .EQ. '') Gmag_1(i__) = rNULL__
if(ar__1(87:91) .EQ. '') e_Gmag_1(i__) = rNULL__
if(ar__1(93:98) .EQ. '') Jmag(i__) = rNULL__
if(ar__1(100:105) .EQ. '') Ksmag_1(i__) = rNULL__
if(ar__1(107:110) .EQ. '') E_B_V_1(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Name_1(i__),Gaia_1(i__),HIP_1(i__),Tycho2_1(i__),
+ plxHIP_1(i__),e_plxHIP_1(i__),plxTGAS_1(i__),e_plxTGAS_1(i__),
+ Per_1(i__),Gmag_1(i__),e_Gmag_1(i__),Jmag(i__),Ksmag_1(i__),
+ E_B_V_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tablea3.dat' ! Photometric and spectroscopic parameters for
* 364 RR Lyrae stars
C Format for file interpretation
3 format(
+ A9,1X,I19,1X,I6,1X,A11,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,
+ F6.4,1X,A2,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,
+ F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'tablea3.dat')
write(6,*) '....Loading file: tablea3.dat'
do i__=1,364
read(1,'(A129)')ar__2
read(ar__2,3)
+ Name_2(i__),Gaia_2(i__),HIP_2(i__),Tycho2_2(i__),
+ plxHIP_2(i__),e_plxHIP_2(i__),plxTGAS_2(i__),e_plxTGAS_2(i__),
+ Per_2(i__),Mode(i__),Gmag_2(i__),e_Gmag_2(i__),Vmag_1(i__),
+ Ksmag_2(i__),W1mag(i__),AV(i__),v_Fe_H__1(i__)
if(ar__2(11:29) .EQ. '') Gaia_2(i__) = iNULL__
if(ar__2(31:36) .EQ. '') HIP_2(i__) = iNULL__
if(ar__2(50:55) .EQ. '') plxHIP_2(i__) = rNULL__
if(ar__2(57:61) .EQ. '') e_plxHIP_2(i__) = rNULL__
if(ar__2(63:68) .EQ. '') plxTGAS_2(i__) = rNULL__
if(ar__2(70:73) .EQ. '') e_plxTGAS_2(i__) = rNULL__
if(ar__2(75:80) .EQ. '') Per_2(i__) = rNULL__
if(ar__2(85:90) .EQ. '') Gmag_2(i__) = rNULL__
if(ar__2(92:96) .EQ. '') e_Gmag_2(i__) = rNULL__
if(ar__2(98:103) .EQ. '') Vmag_1(i__) = rNULL__
if(ar__2(105:110) .EQ. '') Ksmag_2(i__) = rNULL__
if(ar__2(112:117) .EQ. '') W1mag(i__) = rNULL__
if(ar__2(119:123) .EQ. '') AV(i__) = rNULL__
if(ar__2(125:129) .EQ. '') v_Fe_H__1(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ Name_2(i__),Gaia_2(i__),HIP_2(i__),Tycho2_2(i__),
+ plxHIP_2(i__),e_plxHIP_2(i__),plxTGAS_2(i__),e_plxTGAS_2(i__),
+ Per_2(i__),Mode(i__),Gmag_2(i__),e_Gmag_2(i__),Vmag_1(i__),
+ Ksmag_2(i__),W1mag(i__),AV(i__),v_Fe_H__1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end