Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/196/4 into FORTRAN code for reading data files line by line.
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/ApJS/196/4 New young star candidates in Taurus-Auriga (Rebull+, 2011) *================================================================================ *New young star candidates in the Taurus-Auriga region as selected from the *Wide-field Infrared Survey Explorer. * Rebull L.M., Koenig X.P., Padgett D.L., Terebey S., McGehee P.M., * Hillenbrand L.A., Knapp G.R., Leisawitz D., Liu W., Noriega-Crespo A., * Ressler M.E., Stapelfeldt K.R., Fajardo-Acosta S., Mainzer A. * <Astrophys. J. Suppl. Ser., 196, 4 (2011)> * =2011ApJS..196....4R C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Multiband measurements of WISE-identified YSOs with previous indications of youth in the literature towards the Taurus region integer*4 nr__ parameter (nr__=196) ! Number of records character*168 ar__ ! Full-size record integer*4 Seq ! Sequential number within the table character*19 WISE ! Catalog identification (JHHMMSS.ss+DDMMSS.s) character*25 Name ! Source name (1) real*4 W1mag ! (mag) WISE 3.4 micron band magnitude real*4 e_W1mag ! (mag) Uncertainty in W1mag real*4 W2mag ! (mag) WISE 4.6 micron band magnitude real*4 e_W2mag ! (mag) Uncertainty in W2mag real*4 W3mag ! (mag) WISE 12 micron band magnitude real*4 e_W3mag ! (mag) Uncertainty in W3mag real*4 W4mag ! (mag) WISE 22 micron band magnitude real*4 e_W4mag ! (mag) Uncertainty in W4mag character*1 St ! [b] status (2) character*72 Notes ! Additional source notes *Note (1): Note added by CDS: In table 2 (Rejected YSO), the Name "TYC1823-680-1" * (04 11 22.762 +26 52 43.35, J2000) is very doubtfully linked to * WISE J041121.83+293320.5. *Note (2): * b = Object identified in Rebull et al. (2010ApJS..186..259R) as a * candidate Taurus member, but discussed there as needing additional * data to confirm/refute it as a Taurus member. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Multiband measurements of WISE-identified rejected YSO candidates in Taurus region integer*4 nr__1 parameter (nr__1=724) ! Number of records character*168 ar__1 ! Full-size record integer*4 Seq_1 ! Sequential number within the table character*19 WISE_1 ! Catalog identification (JHHMMSS.ss+DDMMSS.s) character*25 Name_1 ! Source name (1) real*4 W1mag_1 ! (mag) WISE 3.4 micron band magnitude real*4 e_W1mag_1 ! (mag) Uncertainty in W1mag real*4 W2mag_1 ! (mag) WISE 4.6 micron band magnitude real*4 e_W2mag_1 ! (mag) Uncertainty in W2mag real*4 W3mag_1 ! (mag) WISE 12 micron band magnitude real*4 e_W3mag_1 ! (mag) Uncertainty in W3mag real*4 W4mag_1 ! (mag) WISE 22 micron band magnitude real*4 e_W4mag_1 ! (mag) Uncertainty in W4mag character*1 St_1 ! [b] status (2) character*72 Notes_1 ! Additional source notes *Note (1): Note added by CDS: In table 2 (Rejected YSO), the Name "TYC1823-680-1" * (04 11 22.762 +26 52 43.35, J2000) is very doubtfully linked to * WISE J041121.83+293320.5. *Note (2): * b = Object identified in Rebull et al. (2010ApJS..186..259R) as a * candidate Taurus member, but discussed there as needing additional * data to confirm/refute it as a Taurus member. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Multiband measurements of WISE-identified new YSO candidates in Taurus region integer*4 nr__2 parameter (nr__2=94) ! Number of records character*168 ar__2 ! Full-size record integer*4 Seq_2 ! Sequential number within the table character*19 WISE_2 ! Catalog identification (JHHMMSS.ss+DDMMSS.s) character*25 Name_2 ! Source name (1) real*4 W1mag_2 ! (mag) WISE 3.4 micron band magnitude real*4 e_W1mag_2 ! (mag) Uncertainty in W1mag real*4 W2mag_2 ! (mag) WISE 4.6 micron band magnitude real*4 e_W2mag_2 ! (mag) Uncertainty in W2mag real*4 W3mag_2 ! (mag) WISE 12 micron band magnitude real*4 e_W3mag_2 ! (mag) Uncertainty in W3mag real*4 W4mag_2 ! (mag) WISE 22 micron band magnitude real*4 e_W4mag_2 ! (mag) Uncertainty in W4mag character*1 St_2 ! [b] status (2) character*72 Notes_2 ! Additional source notes *Note (1): Note added by CDS: In table 2 (Rejected YSO), the Name "TYC1823-680-1" * (04 11 22.762 +26 52 43.35, J2000) is very doubtfully linked to * WISE J041121.83+293320.5. *Note (2): * b = Object identified in Rebull et al. (2010ApJS..186..259R) as a * candidate Taurus member, but discussed there as needing additional * data to confirm/refute it as a Taurus member. C============================================================================= C Loading file 'table1.dat' ! Multiband measurements of WISE-identified YSOs * with previous indications of youth in the * literature towards the Taurus region C Format for file interpretation 1 format( + I3,1X,A19,1X,A25,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X, + F4.2,1X,F5.2,1X,F4.2,1X,A1,1X,A72) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,196 read(1,'(A168)')ar__ read(ar__,1) + Seq,WISE,Name,W1mag,e_W1mag,W2mag,e_W2mag,W3mag,e_W3mag,W4mag, + e_W4mag,St,Notes c ..............Just test output........... write(6,1) + Seq,WISE,Name,W1mag,e_W1mag,W2mag,e_W2mag,W3mag,e_W3mag,W4mag, + e_W4mag,St,Notes c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Multiband measurements of WISE-identified * rejected YSO candidates in Taurus region C Format for file interpretation 2 format( + I3,1X,A19,1X,A25,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X, + F4.2,1X,F5.2,1X,F4.2,1X,A1,1X,A72) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,724 read(1,'(A168)')ar__1 read(ar__1,2) + Seq_1,WISE_1,Name_1,W1mag_1,e_W1mag_1,W2mag_1,e_W2mag_1, + W3mag_1,e_W3mag_1,W4mag_1,e_W4mag_1,St_1,Notes_1 c ..............Just test output........... write(6,2) + Seq_1,WISE_1,Name_1,W1mag_1,e_W1mag_1,W2mag_1,e_W2mag_1, + W3mag_1,e_W3mag_1,W4mag_1,e_W4mag_1,St_1,Notes_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Multiband measurements of WISE-identified new * YSO candidates in Taurus region C Format for file interpretation 3 format( + I3,1X,A19,1X,A25,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X, + F4.2,1X,F5.2,1X,F4.2,1X,A1,1X,A72) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,94 read(1,'(A168)')ar__2 read(ar__2,3) + Seq_2,WISE_2,Name_2,W1mag_2,e_W1mag_2,W2mag_2,e_W2mag_2, + W3mag_2,e_W3mag_2,W4mag_2,e_W4mag_2,St_2,Notes_2 c ..............Just test output........... write(6,3) + Seq_2,WISE_2,Name_2,W1mag_2,e_W1mag_2,W2mag_2,e_W2mag_2, + W3mag_2,e_W3mag_2,W4mag_2,e_W4mag_2,St_2,Notes_2 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end