Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/844/66 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-Apr-18 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/844/66 The Sco-Cen Rotation Catalogue - SCRC (Mellon+ 2017) *================================================================================ *Angular momentum evolution of young stars in the nearby Scorpius-Centaurus OB *association. * Mellon S.N., Mamajek E.E., Oberst T.E., Pecaut M.J. * <Astrophys. J., 844, 66-66 (2017)> * =2017ApJ...844...66M (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Data for Sco-Cen main group members integer*4 nr__ parameter (nr__=162) ! Number of records character*101 ar__ ! Full-size record character*18 SWASPJ ! SWASP identifier (HHMMSS.ss+DDMMSS.s) character*16 v2MASSJ ! 2MASS identifier (HHMMSSss+DDMMSSs) character*3 Sub ! Sco-Cen Subgroup (LCC, UCL or US) real*4 Per ! (d) Reported Period real*4 e_Per ! (d) Error on Period character*2 Flag ! [abcde ] Flags (1) character*9 SpType ! Spectral Type integer*4 r_SpType ! ? Spectral Type Reference (2) real*4 Vmag ! (mag) SuperWASP V magnitude real*4 Kmag ! (mag) 2MASS K magnitude real*4 Av ! (mag) Reddening coefficient real*4 V_K0 ! (mag) Reddening corrected V-K integer*4 Teff ! (K) ? Effective temperature real*4 Mass ! (Msun) ? Mass *Note (1): Flags as follows: * a = Stars that have statistically similar periods to the nearest spatial * entry in the Variable Star Index (Watson, 2006, Cat. B/vsx) * b = Stars that have statistically different periods to the nearest spatial * entry in the Variable Star Index (Watson, 2006, Cat. B/vsx) * c = Stars without spectral types use the Sco-Cen subgroup-averaged * reddening coefficients for color estimation only * d = The only star in our sample found in David et al. (2014JAD....20....5D). * We find the same period. * e = Stars for which the APASS V band was unavailable; SPM4 photometry was * adopted in its place. *Note (2): References as follows: * 1 = Riaz et al. (2006, Cat. J/AJ/132/866) * 2 = Pecaut & Mamajek (2016, Cat. J/MNRAS/461/794) * 3 = Houk (1978, Cat. III/51) * 4 = Mamajek et al. (2002, Cat. J/AJ/124/1670) * 5 = Spencer Jones & Jackson (1936, Cat. I/5) * 6 = Torres et al. (2006, Cat. J/A+A/460/695) * 7 = Houk (1982, Cat III/80) * 8 = Wichmann et al. (1997, Cat. J/A+A/326/211) * 9 = Krautter et al. (1997, Cat. J/A+AS/123/329) * 10 = Kohler et al. (2000, Cat. J/A+A/356/541) * 11 = Preibisch et al. (1998, Cat. J/A+A/333/619) * 12 = Houk & Smith-Moore (1988, Cat. III/133) * 13 = Rizzuto et al. (2015, Cat. J/MNRAS/448/2737) * 14 = Luhman & Mamajek (2012, Cat. J/ApJ/758/31) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Data for other stars integer*4 nr__1 parameter (nr__1=28) ! Number of records character*82 ar__1 ! Full-size record character*15 Name ! Star name character*8 Group ! Star's group * (CrA, Oph, TWA, Lup I, Lup II or Lup III) character*18 SWASPJ_1 ! SWASP identifier (HHMMSS.ss+DDMMSS.s) character*16 v2MASSJ_1 ! 2MASS identifier (HHMMSSss+DDMMSSs) real*4 Per_1 ! (d) Reported period real*4 e_Per_1 ! (d) Error on Per character*1 Flag_1 ! [ab] Flag (1) character*5 SpType_1 ! Spectral type integer*4 r_SpType_1 ! Spectral type reference (2) *Note (1): Flags as follows: * a = Stars that have statistically similar periods to the nearest spatial entry * in the Variable Star Index (Watson, 2006, Cat. B/vsx) * b = Stars that have statistically different periods to the nearest spatial * entry in the Variable Star Index (Watson, 2006, Cat. B/vsx) *Note (2): References as follows: * 1 = Torres et al. (2006, Cat. J/A+A/460/695) * 2 = Krautter et al. (1997, Cat. J/A+AS/123/329) * 3 = Houk (1982, Cat III/80) * 4 = Hughes et al. (1994AJ....108.1071H) * 5 = Pecaut & Mamajek (2016, Cat. J/MNRAS/461/794) * 6 = Antoniucci et al. (2014, estimates Teff=5000K, which would be roughly * consistent with a K0 pre-MS star on the spectral type versus Teff scale * of Pecaut & Mamajek, 2013, Cat. J/ApJS/208/9) * 7 = Preibisch et al. (1998, Cat. J/A+A/333/619) * 8 = Meyer & Wilking (2009PASP..121..350M) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Adopted photometry for stellar parameters integer*4 nr__2 parameter (nr__2=157) ! Number of records character*89 ar__2 ! Full-size record character*16 v2MASSJ_2 ! The 2MASS identifier ((HHMMSSss+DDMMSSs) (1) real*4 Bmag ! (mag) Apparent B band magnitude real*4 e_Bmag ! (mag) Uncertainty in Bmag character*3 r_Bmag ! Reference on Bmag (2) real*4 Vmag_1 ! (mag) Apparent V band magnitude real*4 e_Vmag ! (mag) Uncertainty in Vmag character*3 r_Vmag ! Reference on Vmag (2) real*4 Jmag ! (mag) 2MASS J band magnitude real*4 e_Jmag ! (mag) Uncertainty in Jmag real*4 Hmag ! (mag) 2MASS H band magnitude real*4 e_Hmag ! (mag) Uncertainty in Hmag real*4 KSmag ! (mag) 2MASS K_S_ band magnitude real*4 e_KSmag ! (mag) Uncertainty in KSmag *Note (1): Where the identifier is the J2000 coordinates. *Note (2): Reference as follows: * DR6 = APASS DR6 * DR7 = APASS DR7 * DR9 = APASS DR9 * P97 = Hipparcos, Perryman et al. (1997A&A...323L..49P, Cat. I/239) * H00 = Converted from Tycho-2 BT, VT, * Hog et al. (2000A&A...355L..27H, Cat I/259) * T06 = Torres et al. (2006A&A...460..695T, Cat. J/A+A/460/695) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Periodogram analysis results integer*4 nr__3 parameter (nr__3=567) ! Number of records character*58 ar__3 ! Full-size record character*18 SWASPJ_2 ! The SWASP identifier (HHMMSS.ss+DDMMSS.s) (1) real*8 Start ! (d) Heliocentric Julian Date of season start real*8 End ! (d) Heliocentric Julian Date of season end real*4 Period ! (d) Period real*4 Amp ! (mag) Amplitude *Note (1): Where the identifier is the J2000 coordinates. C============================================================================= C Loading file 'table2.dat' ! Data for Sco-Cen main group members C Format for file interpretation 1 format( + A18,1X,A16,1X,A3,1X,F5.3,1X,F5.3,1X,A2,1X,A9,1X,I2,1X,F5.2,1X, + F5.2,1X,F5.3,1X,F5.3,1X,I4,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,162 read(1,'(A101)')ar__ read(ar__,1) + SWASPJ,v2MASSJ,Sub,Per,e_Per,Flag,SpType,r_SpType,Vmag,Kmag, + Av,V_K0,Teff,Mass if(ar__(66:67) .EQ. '') r_SpType = iNULL__ if(ar__(93:96) .EQ. '') Teff = iNULL__ if(ar__(98:101) .EQ. '') Mass = rNULL__ c ..............Just test output........... write(6,1) + SWASPJ,v2MASSJ,Sub,Per,e_Per,Flag,SpType,r_SpType,Vmag,Kmag, + Av,V_K0,Teff,Mass c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Data for other stars C Format for file interpretation 2 format(A15,A8,1X,A18,1X,A16,1X,F6.3,1X,F5.3,1X,A1,1X,A5,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,28 read(1,'(A82)')ar__1 read(ar__1,2) + Name,Group,SWASPJ_1,v2MASSJ_1,Per_1,e_Per_1,Flag_1,SpType_1, + r_SpType_1 c ..............Just test output........... write(6,2) + Name,Group,SWASPJ_1,v2MASSJ_1,Per_1,e_Per_1,Flag_1,SpType_1, + r_SpType_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Adopted photometry for stellar parameters C Format for file interpretation 3 format( + A16,1X,F6.3,1X,F5.3,1X,A3,1X,F6.3,1X,F5.3,1X,A3,1X,F6.3,1X, + F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,157 read(1,'(A89)')ar__2 read(ar__2,3) + v2MASSJ_2,Bmag,e_Bmag,r_Bmag,Vmag_1,e_Vmag,r_Vmag,Jmag,e_Jmag, + Hmag,e_Hmag,KSmag,e_KSmag c ..............Just test output........... write(6,3) + v2MASSJ_2,Bmag,e_Bmag,r_Bmag,Vmag_1,e_Vmag,r_Vmag,Jmag,e_Jmag, + Hmag,e_Hmag,KSmag,e_KSmag c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table1.dat' ! Periodogram analysis results C Format for file interpretation 4 format(A18,1X,F12.4,1X,F12.4,1X,F6.3,1X,F6.4) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,567 read(1,'(A58)')ar__3 read(ar__3,4)SWASPJ_2,Start,End,Period,Amp c ..............Just test output........... write(6,4)SWASPJ_2,Start,End,Period,Amp c .......End.of.Just test output........... end do close(1) C============================================================================= stop end