Conversion of standardized ReadMe file for
file /./ftp/cats/J/other/IBVS/5296 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/other/IBVS/5296 Extrema of pulsating stars (Agerer+, 2002) *================================================================================ *Photoelectric minima of selected eclipsing binaries and maxima of *pulsating stars. * Agerer F., Hubscher J. * <IAU Inform. Bull. Var. Stars, 5296, 1 (2002)> * =2002IBVS.5296....1A C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Minima of Eclipsing binaries integer*4 nr__ parameter (nr__=581) ! Number of records character*80 ar__ ! Full-size record character*13 VName (nr__) ! Variable name character*3 Cst (nr__) ! Constellation (for non-GCVS stars only) real*8 HJD (nr__) ! (d) Heliocentric Julian Date of * Minimun (table1.dat) or Maximum (table2.dat) character*1 u_HJD (nr__) ! Uncertainty flag on HJD real*4 e_HJD (nr__) ! (d) ? rms uncertainty on HJD character*8 Obs (nr__) ! Observator name (1) real*8 O_C (nr__) ! (mag) ? Observed minus computed character*1 n_O_C (nr__) ! [s] s: secondary minimum character*9 Ref (nr__) ! Reference (2) character*3 Filter (nr__) ! Filter (-Ir, BV, R or V) character*6 n_VName (nr__) ! Remarks in notes.dat file character*3 Rem (nr__) ! [red] red: reduced results *Note (1): Observator names as follows: * AG = Agerer, F., Tiefenbach * ATB = Achterberg, Dr. H., Norderstedt * BRN = Brauner, B., Herford * DDH = Diederich, H., Darmstadt * DIE = Dietrich, M., Radebeul * FR = Frank, P., Velden * HSR = Husar, Dr. D., Hamburg * JU = Jungbluth, Dr. H., Karlsruhe * KI = Kleikamp, W., Marl * MON = Monninger, G., Gemmingen * MS = MS: Moschner, W., Lennestadt * MZ = Maintz, G., Bonn * PC = Poschinger, K., Hamburg * PS = Paschke, A. Rueti (CH) * QHL = Quehl, Dr. W., Kornwestheim * QU = Quester, W., Esslingen * RAT = Rdtz, M. Herges-Hallenberg * RCR = Rdtz, Ch. Herges-Hallenberg * RTZ = Rdtz, S. Herges-Hallenberg * SIR = Schirmer, J., Fredenbeck * STK = Strunk, J., Leopoldshvhe * WTR = Walter, F., Muenchen *Note (2): Reference use the nomenclature: * GCVS yy = General Catalogue of Variable Stars, 4th ed. 19yy * IBVS nnnn = Information Bulletin on Variable Stars No. nnnn * MVS vv,ppp = Mitteilungen ueber Veranderliche Sterne; volume,pages * SAC vv = Rocznik Astronomiczny No. vv, Krakow (SAC) * BAVM nnn = BAV Mitteilungen No. nnn c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Maxima of Pulsating stars integer*4 nr__1 parameter (nr__1=262) ! Number of records character*80 ar__1 ! Full-size record character*13 VName_1 (nr__1) ! Variable name character*3 Cst_1 (nr__1) ! Constellation (for non-GCVS stars only) real*8 HJD_1 (nr__1) ! (d) Heliocentric Julian Date of * Minimun (table1.dat) or Maximum (table2.dat) character*1 u_HJD_1 (nr__1) ! Uncertainty flag on HJD real*4 e_HJD_1 (nr__1) ! (d) ? rms uncertainty on HJD character*8 Obs_1 (nr__1) ! Observator name (1) real*8 O_C_1 (nr__1) ! (mag) ? Observed minus computed character*1 n_O_C_1 (nr__1) ! [s] s: secondary minimum character*9 Ref_1 (nr__1) ! Reference (2) character*3 Filter_1 (nr__1) ! Filter (-Ir, BV, R or V) character*6 n_VName_1 (nr__1) ! Remarks in notes.dat file character*3 Rem_1 (nr__1) ! [red] red: reduced results *Note (1): Observator names as follows: * AG = Agerer, F., Tiefenbach * ATB = Achterberg, Dr. H., Norderstedt * BRN = Brauner, B., Herford * DDH = Diederich, H., Darmstadt * DIE = Dietrich, M., Radebeul * FR = Frank, P., Velden * HSR = Husar, Dr. D., Hamburg * JU = Jungbluth, Dr. H., Karlsruhe * KI = Kleikamp, W., Marl * MON = Monninger, G., Gemmingen * MS = MS: Moschner, W., Lennestadt * MZ = Maintz, G., Bonn * PC = Poschinger, K., Hamburg * PS = Paschke, A. Rueti (CH) * QHL = Quehl, Dr. W., Kornwestheim * QU = Quester, W., Esslingen * RAT = Rdtz, M. Herges-Hallenberg * RCR = Rdtz, Ch. Herges-Hallenberg * RTZ = Rdtz, S. Herges-Hallenberg * SIR = Schirmer, J., Fredenbeck * STK = Strunk, J., Leopoldshvhe * WTR = Walter, F., Muenchen *Note (2): Reference use the nomenclature: * GCVS yy = General Catalogue of Variable Stars, 4th ed. 19yy * IBVS nnnn = Information Bulletin on Variable Stars No. nnnn * MVS vv,ppp = Mitteilungen ueber Veranderliche Sterne; volume,pages * SAC vv = Rocznik Astronomiczny No. vv, Krakow (SAC) * BAVM nnn = BAV Mitteilungen No. nnn c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'notes.dat' ! Notes integer*4 nr__2 parameter (nr__2=18) ! Number of records character*77 ar__2 ! Full-size record integer*4 Note (nr__2) ! Note number character*74 Text (nr__2) ! Text of the note c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'crossref.dat' ! References for first citation integer*4 nr__3 parameter (nr__3=39) ! Number of records character*33 ar__3 ! Full-size record character*9 BAVM (nr__3) ! BAVM name character*23 Ref_2 (nr__3) ! Reference for this object, in IBVS or BAVSR C============================================================================= C Loading file 'table1.dat' ! Minima of Eclipsing binaries C Format for file interpretation 1 format( + A13,1X,A3,1X,F12.4,A1,1X,F5.4,1X,A8,1X,F7.4,1X,A1,1X,A9,1X,A3, + 1X,A6,A3) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,581 read(1,'(A80)')ar__ read(ar__,1) + VName(i__),Cst(i__),HJD(i__),u_HJD(i__),e_HJD(i__),Obs(i__), + O_C(i__),n_O_C(i__),Ref(i__),Filter(i__),n_VName(i__),Rem(i__) if(ar__(33:37) .EQ. '') e_HJD(i__) = rNULL__ if(ar__(48:54) .EQ. '') O_C(i__) = rNULL__ c ..............Just test output........... write(6,1) + VName(i__),Cst(i__),HJD(i__),u_HJD(i__),e_HJD(i__),Obs(i__), + O_C(i__),n_O_C(i__),Ref(i__),Filter(i__),n_VName(i__),Rem(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Maxima of Pulsating stars C Format for file interpretation 2 format( + A13,1X,A3,1X,F12.4,A1,1X,F5.4,1X,A8,1X,F7.4,1X,A1,1X,A9,1X,A3, + 1X,A6,A3) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,262 read(1,'(A80)')ar__1 read(ar__1,2) + VName_1(i__),Cst_1(i__),HJD_1(i__),u_HJD_1(i__),e_HJD_1(i__), + Obs_1(i__),O_C_1(i__),n_O_C_1(i__),Ref_1(i__),Filter_1(i__), + n_VName_1(i__),Rem_1(i__) if(ar__1(33:37) .EQ. '') e_HJD_1(i__) = rNULL__ if(ar__1(48:54) .EQ. '') O_C_1(i__) = rNULL__ c ..............Just test output........... write(6,2) + VName_1(i__),Cst_1(i__),HJD_1(i__),u_HJD_1(i__),e_HJD_1(i__), + Obs_1(i__),O_C_1(i__),n_O_C_1(i__),Ref_1(i__),Filter_1(i__), + n_VName_1(i__),Rem_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'notes.dat' ! Notes C Format for file interpretation 3 format(I2,1X,A74) C Effective file loading open(unit=1,status='old',file= +'notes.dat') write(6,*) '....Loading file: notes.dat' do i__=1,18 read(1,'(A77)')ar__2 read(ar__2,3)Note(i__),Text(i__) c ..............Just test output........... write(6,3)Note(i__),Text(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'crossref.dat' ! References for first citation C Format for file interpretation 4 format(A9,1X,A23) C Effective file loading open(unit=1,status='old',file= +'crossref.dat') write(6,*) '....Loading file: crossref.dat' do i__=1,39 read(1,'(A33)')ar__3 read(ar__3,4)BAVM(i__),Ref_2(i__) c ..............Just test output........... write(6,4)BAVM(i__),Ref_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end