Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/350/513 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-28 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/A+A/350/513 V368 Cep UBVRI time series (Kahanpaa+, 1999) *================================================================================ *Time series analysis of V368 Cephei photometry * Kahanpaa J., Jetsu L., Alha L., Ezhkova O.V., Grankin K.N., Hackman T., * Ibragimov M.A., Kokko M., Kondratiev V.B., Laakso T., Lindroos O., * Mel'nikov S.Yu., Nikula P.O., Schultz J., Shevchenko V.S., Torppa J., * Tuominen I., Tyynela J., Virtanen J. * <Astron. Astrophys. 350, 513 (1999)> * =1999A&A...350..513K C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! The collected photometry of V368 Cep integer*4 nr__ parameter (nr__=162) ! Number of records character*54 ar__ ! Full-size record integer*4 Set (nr__) ! [1/9] Set number real*8 HJD (nr__) ! (d) Observing time real*4 Umag (nr__) ! (mag) ? U magnitude (1) real*4 Bmag (nr__) ! (mag) ? B magnitude (1) real*4 Vmag (nr__) ! (mag) ? V magnitude (1) real*4 Rmag (nr__) ! (mag) ? R magnitude (1) real*4 Imag (nr__) ! (mag) ? I magnitude (1) character*6 Flare (nr__) ! Detected flares *Note (1): The standard Johnson UBVRI magnitudes are given, except for * SET=3, 4 and 5, which contain magnitude differences between * V368 Cep and HD219522 in standard Johnson U and Cousins (RI)_C_. C============================================================================= C Loading file 'table5.dat' ! The collected photometry of V368 Cep C Format for file interpretation 1 format( + I1,1X,F12.4,1X,F6.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,A6) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,162 read(1,'(A54)')ar__ read(ar__,1) + Set(i__),HJD(i__),Umag(i__),Bmag(i__),Vmag(i__),Rmag(i__), + Imag(i__),Flare(i__) if(ar__(16:21) .EQ. '') Umag(i__) = rNULL__ if(ar__(23:27) .EQ. '') Bmag(i__) = rNULL__ if(ar__(29:33) .EQ. '') Vmag(i__) = rNULL__ if(ar__(35:40) .EQ. '') Rmag(i__) = rNULL__ if(ar__(42:47) .EQ. '') Imag(i__) = rNULL__ c ..............Just test output........... write(6,1) + Set(i__),HJD(i__),Umag(i__),Bmag(i__),Vmag(i__),Rmag(i__), + Imag(i__),Flare(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end