Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/822/81 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-Mar-29 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/822/81 PTF stellar rotation periods for Pleiades members (Covey+, 2016) *================================================================================ *Why are rapidly rotating M dwarfs in the Pleiades so (infra)red? New period *measurements confirm rotation-dependent color offsets from the cluster sequence. * Covey K.R., Agueros M.A., Law N.M., Liu J., Ahmadi A., Laher R., * Levitan D., Sesar B., Surace J. * <Astrophys. J., 822, 81-81 (2016)> * =2016ApJ...822...81C (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! POCS Pleiades Periods integer*4 nr__ parameter (nr__=132) ! Number of records character*114 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 v2MASS (nr__) ! 2MASS identifier (HHMMSSss-DDMMSSs) real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000) real*4 Vmag (nr__) ! (mag) ? Johnson V-band magnitude character*8 SourceV (nr__) ! Source of V photometry (Kamai, Stauffer) (1) real*4 Kmag (nr__) ! (mag) K-band magnitude real*4 e_Kmag (nr__) ! (mag) ? Uncertainty in Kmag character*8 SourceK (nr__) ! Source of K photometry (2MASS, DANCe, * Stauffer, UKIDSS) real*4 V_K (nr__) ! (mag) ? V-K color index real*4 Mass (nr__) ! (Msun) Mass integer*4 Bin (nr__) ! [0/1]? Photometric binary candidate flag * (0=no, 1=yes) real*4 Prot1 (nr__) ! (d) POCS rotation period real*4 Power (nr__) ! POCS periodogram peak power real*4 Amp (nr__) ! POCS photometric amplitude integer*4 Epoch (nr__) ! [291/339] POCS epoch real*4 Prot2 (nr__) ! (d) ? HATnet rotation period *Note (1): Source as follows: * Kamai = Kamai et al. 2014 (J/AJ/148/30); * Stauffer = Stauffer et al. 2007 (J/ApJS/172/663). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Periods For Field Stars Observed During PTF Pleiades Campaign integer*4 nr__1 parameter (nr__1=119) ! Number of records character*79 ar__1 ! Full-size record C J2000 position composed of: RAdeg DEdeg real*8 RAdeg_1 (nr__1) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_1 (nr__1) ! (deg) Declination in decimal degrees (J2000) real*4 Rptf (nr__1) ! (mag) PTF R-band magnitude real*4 e_Rptf (nr__1) ! (mag) Uncertainty in Rptf real*4 Prot (nr__1) ! (d) POCS rotation period real*4 Power_1 (nr__1) ! POCS periodogram peak power real*4 Amp_1 (nr__1) ! POCS photometric amplitude integer*4 Epoch_1 (nr__1) ! [291/338] POCS epoch character*20 Star (nr__1) ! Star name (or comment) character*1 n_Star (nr__1) ! [ab] Note on Star (1) *Note (1): Note as follows: * a = These are non-members with P_rot_ measured by Hartman et al. * (2010, J/MNRAS/408/475). The P_rot_ derived here and in that work agree * to better than 1% for all these stars; * b = Known RR Lyrae. C============================================================================= C Loading file 'table4.dat' ! POCS Pleiades Periods C Format for file interpretation 1 format( + A16,1X,F11.8,1X,F11.8,1X,F5.2,1X,A8,1X,F5.2,1X,F4.2,1X,A8,1X, + F5.2,1X,F4.2,1X,I1,1X,F4.2,1X,F6.2,1X,F4.2,1X,I3,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,132 read(1,'(A114)')ar__ read(ar__,1) + v2MASS(i__),RAdeg(i__),DEdeg(i__),Vmag(i__),SourceV(i__), + Kmag(i__),e_Kmag(i__),SourceK(i__),V_K(i__),Mass(i__), + Bin(i__),Prot1(i__),Power(i__),Amp(i__),Epoch(i__),Prot2(i__) if(ar__(42:46) .EQ. '') Vmag(i__) = rNULL__ if(ar__(63:66) .EQ. '') e_Kmag(i__) = rNULL__ if(ar__(77:81) .EQ. '') V_K(i__) = rNULL__ if(ar__(88:88) .EQ. '') Bin(i__) = iNULL__ if(ar__(111:114) .EQ. '') Prot2(i__) = rNULL__ c ..............Just test output........... write(6,1) + v2MASS(i__),RAdeg(i__),DEdeg(i__),Vmag(i__),SourceV(i__), + Kmag(i__),e_Kmag(i__),SourceK(i__),V_K(i__),Mass(i__), + Bin(i__),Prot1(i__),Power(i__),Amp(i__),Epoch(i__),Prot2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Periods For Field Stars Observed During PTF * Pleiades Campaign C Format for file interpretation 2 format( + F11.8,1X,F11.8,1X,F5.2,1X,F5.3,1X,F4.2,1X,F6.2,1X,F4.2,1X,I3, + 1X,A20,1X,A1) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,119 read(1,'(A79)')ar__1 read(ar__1,2) + RAdeg_1(i__),DEdeg_1(i__),Rptf(i__),e_Rptf(i__),Prot(i__), + Power_1(i__),Amp_1(i__),Epoch_1(i__),Star(i__),n_Star(i__) c ..............Just test output........... write(6,2) + RAdeg_1(i__),DEdeg_1(i__),Rptf(i__),e_Rptf(i__),Prot(i__), + Power_1(i__),Amp_1(i__),Epoch_1(i__),Star(i__),n_Star(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end