Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/844/66 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-20
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 (nr__) ! SWASP identifier (HHMMSS.ss+DDMMSS.s)
character*16 v2MASSJ (nr__) ! 2MASS identifier (HHMMSSss+DDMMSSs)
character*3 Sub (nr__) ! Sco-Cen Subgroup (LCC, UCL or US)
real*4 Per (nr__) ! (d) Reported Period
real*4 e_Per (nr__) ! (d) Error on Period
character*2 Flag (nr__) ! [abcde ] Flags (1)
character*9 SpType (nr__) ! Spectral Type
integer*4 r_SpType (nr__) ! ? Spectral Type Reference (2)
real*4 Vmag (nr__) ! (mag) SuperWASP V magnitude
real*4 Kmag (nr__) ! (mag) 2MASS K magnitude
real*4 Av (nr__) ! (mag) Reddening coefficient
real*4 V_K0 (nr__) ! (mag) Reddening corrected V-K
integer*4 Teff (nr__) ! (K) ? Effective temperature
real*4 Mass (nr__) ! (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 (nr__1) ! Star name
character*8 Group (nr__1) ! Star's group
* (CrA, Oph, TWA, Lup I, Lup II or Lup III)
character*18 SWASPJ_1 (nr__1) ! SWASP identifier (HHMMSS.ss+DDMMSS.s)
character*16 v2MASSJ_1 (nr__1) ! 2MASS identifier (HHMMSSss+DDMMSSs)
real*4 Per_1 (nr__1) ! (d) Reported period
real*4 e_Per_1 (nr__1) ! (d) Error on Per
character*1 Flag_1 (nr__1) ! [ab] Flag (1)
character*5 SpType_1 (nr__1) ! Spectral type
integer*4 r_SpType_1 (nr__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 (nr__2) ! The 2MASS identifier ((HHMMSSss+DDMMSSs) (1)
real*4 Bmag (nr__2) ! (mag) Apparent B band magnitude
real*4 e_Bmag (nr__2) ! (mag) Uncertainty in Bmag
character*3 r_Bmag (nr__2) ! Reference on Bmag (2)
real*4 Vmag_1 (nr__2) ! (mag) Apparent V band magnitude
real*4 e_Vmag (nr__2) ! (mag) Uncertainty in Vmag
character*3 r_Vmag (nr__2) ! Reference on Vmag (2)
real*4 Jmag (nr__2) ! (mag) 2MASS J band magnitude
real*4 e_Jmag (nr__2) ! (mag) Uncertainty in Jmag
real*4 Hmag (nr__2) ! (mag) 2MASS H band magnitude
real*4 e_Hmag (nr__2) ! (mag) Uncertainty in Hmag
real*4 KSmag (nr__2) ! (mag) 2MASS K_S_ band magnitude
real*4 e_KSmag (nr__2) ! (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 (nr__3) ! The SWASP identifier (HHMMSS.ss+DDMMSS.s) (1)
real*8 Start (nr__3) ! (d) Heliocentric Julian Date of season start
real*8 End (nr__3) ! (d) Heliocentric Julian Date of season end
real*4 Period (nr__3) ! (d) Period
real*4 Amp (nr__3) ! (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(i__),v2MASSJ(i__),Sub(i__),Per(i__),e_Per(i__),
+ Flag(i__),SpType(i__),r_SpType(i__),Vmag(i__),Kmag(i__),
+ Av(i__),V_K0(i__),Teff(i__),Mass(i__)
if(ar__(66:67) .EQ. '') r_SpType(i__) = iNULL__
if(ar__(93:96) .EQ. '') Teff(i__) = iNULL__
if(ar__(98:101) .EQ. '') Mass(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ SWASPJ(i__),v2MASSJ(i__),Sub(i__),Per(i__),e_Per(i__),
+ Flag(i__),SpType(i__),r_SpType(i__),Vmag(i__),Kmag(i__),
+ Av(i__),V_K0(i__),Teff(i__),Mass(i__)
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(i__),Group(i__),SWASPJ_1(i__),v2MASSJ_1(i__),Per_1(i__),
+ e_Per_1(i__),Flag_1(i__),SpType_1(i__),r_SpType_1(i__)
c ..............Just test output...........
write(6,2)
+ Name(i__),Group(i__),SWASPJ_1(i__),v2MASSJ_1(i__),Per_1(i__),
+ e_Per_1(i__),Flag_1(i__),SpType_1(i__),r_SpType_1(i__)
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(i__),Bmag(i__),e_Bmag(i__),r_Bmag(i__),Vmag_1(i__),
+ e_Vmag(i__),r_Vmag(i__),Jmag(i__),e_Jmag(i__),Hmag(i__),
+ e_Hmag(i__),KSmag(i__),e_KSmag(i__)
c ..............Just test output...........
write(6,3)
+ v2MASSJ_2(i__),Bmag(i__),e_Bmag(i__),r_Bmag(i__),Vmag_1(i__),
+ e_Vmag(i__),r_Vmag(i__),Jmag(i__),e_Jmag(i__),Hmag(i__),
+ e_Hmag(i__),KSmag(i__),e_KSmag(i__)
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(i__),Start(i__),End(i__),Period(i__),Amp(i__)
c ..............Just test output...........
write(6,4)
+ SWASPJ_2(i__),Start(i__),End(i__),Period(i__),Amp(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end