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