Conversion of standardized ReadMe file for
file /./ftp/cats/J/PAZh/28/653 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/PAZh/28/653 Pulsation Modes of Cepheid (Sachkov, 2002) *================================================================================ *Two Period-Radius Relations for Classical Cepheids: *Determining the Pulsation Mode and the Distance Scale * Sachkov M.E. * <Pis'ma Astron. Zh. 28, 653 (2002)> * =2002PAZh...28..653S * =2002AstL...28..589S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'objects.dat' ! Objects positions integer*4 nr__ parameter (nr__=64) ! Number of records character*57 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg ! (deg) Right Ascension J2000 real*8 DEdeg ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*9 Star ! Name of the star system character*15 OName ! Other star name integer*4 RAh ! (h) Right ascension (J2000) integer*4 RAm ! (min) Right ascension (J2000) real*8 RAs ! (s) Right ascension (J2000) character*1 DE_ ! [-+] Declination sign integer*4 DEd ! (deg) Declination (J2000) integer*4 DEm ! (arcmin) Declination (J2000) real*4 DEs ! (arcsec) Declination (J2000) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! First overtone Cepheid radii integer*4 nr__1 parameter (nr__1=13) ! Number of records character*44 ar__1 ! Full-size record character*9 Star_1 ! Star name in GCVS real*4 logP1 ! ([d]) Logarithm of first-overtone period integer*4 Rad ! (solRad) Cepheid Radius in solar units integer*4 e_Rad ! (solRad) Uncertainty in Rad real*4 delPhi ! Phase shift real*4 e_delPhi ! Uncertainty in delPhi real*4 AmpV ! (mag) Amplitude in V-band real*4 Mm ! Parameter of light curve in GCVS (G1) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Fundamental mode Cepheid radii integer*4 nr__2 parameter (nr__2=51) ! Number of records character*44 ar__2 ! Full-size record character*9 Star_2 ! Star name in GCVS real*4 logP0 ! ([d]) Logarithm of fundamental-mode period integer*4 Rad_1 ! (solRad) Cepheid Radius in solar units integer*4 e_Rad_1 ! (solRad) Uncertainty in Rad real*4 delPhi_1 ! Phase shift real*4 e_delPhi_1 ! Uncertainty in delPhi real*4 AmpV_1 ! (mag) Amplitude in V-band real*4 Mm_1 ! Parameter of light curve in GCVS (G1) C============================================================================= C Loading file 'objects.dat' ! Objects positions C Format for file interpretation 1 format(A9,2X,A15,2X,I2,1X,I2,1X,F7.4,1X,A1,I2,1X,I2,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'objects.dat') write(6,*) '....Loading file: objects.dat' do i__=1,64 read(1,'(A57)')ar__ read(ar__,1)Star,OName,RAh,RAm,RAs,DE_,DEd,DEm,DEs RAdeg = rNULL__ DEdeg = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh .GT. -180) RAdeg=RAh*15. if(RAm .GT. -180) RAdeg=RAdeg+RAm/4. if(RAs .GT. -180) RAdeg=RAdeg+RAs/240. if(DEd .GE. 0) DEdeg=DEd if(DEm .GE. 0) DEdeg=DEdeg+DEm/60. if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600. if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg c ..............Just test output........... write(6,1)Star,OName,RAh,RAm,RAs,DE_,DEd,DEm,DEs write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table1.dat' ! First overtone Cepheid radii C Format for file interpretation 2 format(A9,1X,F6.4,1X,I3,1X,I2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,13 read(1,'(A44)')ar__1 read(ar__1,2)Star_1,logP1,Rad,e_Rad,delPhi,e_delPhi,AmpV,Mm c ..............Just test output........... write(6,2)Star_1,logP1,Rad,e_Rad,delPhi,e_delPhi,AmpV,Mm c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Fundamental mode Cepheid radii C Format for file interpretation 3 format(A9,1X,F6.4,1X,I3,1X,I2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,51 read(1,'(A44)')ar__2 read(ar__2,3) + Star_2,logP0,Rad_1,e_Rad_1,delPhi_1,e_delPhi_1,AmpV_1,Mm_1 c ..............Just test output........... write(6,3) + Star_2,logP0,Rad_1,e_Rad_1,delPhi_1,e_delPhi_1,AmpV_1,Mm_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end