Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/551/973 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-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/551/973 Variables near SN 1991T in NGC 4527 (Saha+, 2001) *================================================================================ *Cepheid calibration of the peak brightness of type Ia supernovae. *X. SN 1991T in NGC 4527. * Saha A., Sandage A., Thim F., Labhardt L., Tammann G.A., Christensen J., * Panagia N., Macchetto F.D. * <Astrophys. J. 551, 973 (2001)> * =2001ApJ...551..973S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Position of the Variable Stars on U42G0101R and U42G0102R images identified in the HST data archive integer*4 nr__ parameter (nr__=66) ! Number of records character*24 ar__ ! Full-size record character*6 v_SST2001_ ! Object identification in a Chip number-Variable * number format (CN-VNN) real*4 Xpos ! (pix) X position real*4 Ypos ! (pix) Y position c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Photometry of variable stars: magnitudes and error estimates integer*4 nr__1 parameter (nr__1=1122) ! Number of records character*38 ar__1 ! Full-size record character*6 v_SST2001__1 ! Object identification in a Chip number-Variable * number format (CN-VNN) character*5 Filt ! Filter name, F555W (~V band) or F814W (~I band) real*8 HJD ! (d) Heliocentric Julian date real*4 mag ! (mag) ? WFPC Filt band magnitude real*4 e_mag ! (mag) ? Uncertainty in mag c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Characteristics of the Cepheids integer*4 nr__2 parameter (nr__2=66) ! Number of records character*69 ar__2 ! Full-size record character*6 v_SST2001__2 ! Object identification in a Chip number-Variable * number format (CN-VNN) real*4 Per ! (d) Period character*1 u_Per ! Uncertainty flag on Per real*4 Vmag ! (mag) ? Mean V band magnitude real*4 e_Vmag ! (mag) ? Magnitude scatter in Vmag real*4 Imag ! (mag) ? Mean I_c_ band magnitude real*4 e_Imag ! (mag) ? Magnitude scatter in Imag real*4 ModV ! (mag) ? Apparent distance modulus from Vmag (1) real*4 ModI ! (mag) ? Apparent distance modulus from Imag (2) real*4 ModT ! (mag) ? True distance modulus, corrected for * normal extinction (3) real*4 e_ModT ! (mag) ? The RMS uncertainty in ModT integer*4 q__SST2001_ ! Light-curve quality index on [SST2001] (4) *Note (1): ModV = 2.76*log(Per) + 1.40 + Vmag *Note (2): ModI = 3.06*log(Per) + 1.81 + Imag *Note (3): ModT = ModV - R' * (ModV - ModI) where R' is the ratio of total to * selective absorption. See equation 5. *Note (4): Prescription given in Paper V (Saha et al., 1996ApJ...466...55S) * and ranges from 0 to 6. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! DoPHOT and ROMAFOT mean magnitudes in V and I of 66 Cepheid candidates integer*4 nr__3 parameter (nr__3=66) ! Number of records character*42 ar__3 ! Full-size record character*6 v_SST2001__3 ! Object identification in a Chip number-Variable * number format (CN-VNN) real*4 v_Vmag_d ! (mag) DoPHOT mean V magnitude real*4 v_Imag_d ! (mag) ? DoPHOT mean I magnitude integer*4 q__Vmag_d ! ? DoPHOT quality index real*4 v_Vmag_r ! (mag) ? ROMAFOT mean V magnitude real*4 v_Imag_r ! (mag) ? ROMAFOT mean I magnitude integer*4 q__Vmag_r ! ? ROMAFOT quality index C============================================================================= C Loading file 'table2.dat' ! Position of the Variable Stars on U42G0101R * and U42G0102R images identified in the HST * data archive C Format for file interpretation 1 format(A6,2X,F6.2,2X,F6.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,66 read(1,'(A24)')ar__ read(ar__,1)v_SST2001_,Xpos,Ypos c ..............Just test output........... write(6,1)v_SST2001_,Xpos,Ypos c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Photometry of variable stars: * magnitudes and error estimates C Format for file interpretation 2 format(A6,1X,A5,1X,F12.4,1X,F5.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,1122 read(1,'(A38)')ar__1 read(ar__1,2)v_SST2001__1,Filt,HJD,mag,e_mag if(ar__1(27:31) .EQ. '') mag = rNULL__ if(ar__1(33:36) .EQ. '') e_mag = rNULL__ c ..............Just test output........... write(6,2)v_SST2001__1,Filt,HJD,mag,e_mag c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Characteristics of the Cepheids C Format for file interpretation 3 format( + A6,1X,F6.3,A1,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3, + 1X,F6.3,1X,F4.2,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,66 read(1,'(A69)')ar__2 read(ar__2,3) + v_SST2001__2,Per,u_Per,Vmag,e_Vmag,Imag,e_Imag,ModV,ModI,ModT, + e_ModT,q__SST2001_ if(ar__2(16:21) .EQ. '') Vmag = rNULL__ if(ar__2(23:27) .EQ. '') e_Vmag = rNULL__ if(ar__2(29:34) .EQ. '') Imag = rNULL__ if(ar__2(36:40) .EQ. '') e_Imag = rNULL__ if(ar__2(42:47) .EQ. '') ModV = rNULL__ if(ar__2(49:54) .EQ. '') ModI = rNULL__ if(ar__2(56:61) .EQ. '') ModT = rNULL__ if(ar__2(63:66) .EQ. '') e_ModT = rNULL__ c ..............Just test output........... write(6,3) + v_SST2001__2,Per,u_Per,Vmag,e_Vmag,Imag,e_Imag,ModV,ModI,ModT, + e_ModT,q__SST2001_ c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! DoPHOT and ROMAFOT mean magnitudes in V and I of * 66 Cepheid candidates C Format for file interpretation 4 format(A6,2X,F6.3,1X,F6.3,1X,I1,1X,F5.2,1X,F5.2,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,66 read(1,'(A42)')ar__3 read(ar__3,4) + v_SST2001__3,v_Vmag_d,v_Imag_d,q__Vmag_d,v_Vmag_r,v_Imag_r, + q__Vmag_r if(ar__3(16:21) .EQ. '') v_Imag_d = rNULL__ if(ar__3(23:23) .EQ. '') q__Vmag_d = iNULL__ if(ar__3(25:29) .EQ. '') v_Vmag_r = rNULL__ if(ar__3(31:35) .EQ. '') v_Imag_r = rNULL__ if(ar__3(37:37) .EQ. '') q__Vmag_r = iNULL__ c ..............Just test output........... write(6,4) + v_SST2001__3,v_Vmag_d,v_Imag_d,q__Vmag_d,v_Vmag_r,v_Imag_r, + q__Vmag_r c .......End.of.Just test output........... end do close(1) C============================================================================= stop end