Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/114/2381 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-Apr-16
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/AJ/114/2381 UBVI photometry of NGC 7252 (Miller+, 1997)
*================================================================================
*The star cluster system of the merger remnant NGC 7252.
* Miller B.W., Whitmore B.C., Schweizer F., Fall S.M.
* <Astron. J. 114, 2381 (1997)>
* =1997AJ....114.2381M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tables.dat' ! Cluster candidates in NGC 7252
integer*4 nr__
parameter (nr__=80) ! Number of records
character*84 ar__ ! Full-size record
integer*4 MWS97 ! Sequential number ([MWS97] NN in simbad)
real*8 oRA ! (arcsec) Offset from right ascension (1)
real*8 oDE ! (arcsec) Offset from declination (1)
real*4 rproj ! (arcsec) Projected radius
real*4 Vmag ! (mag) V magnitude corrected for foreground extinction
real*4 e_Vmag ! (mag) rms uncertainty on Cmag
real*4 U_B ! (mag) ? U-B colour index corrected for foreground
* extinction
real*4 e_U_B ! (mag) ? rms uncertainty on U-B
real*4 B_V ! (mag) ? B-V colour index corrected for foreground
* extinction
real*4 e_B_V ! (mag) ? rms uncertainty on B-V
real*4 V_I ! (mag) ? V-I colour index corrected for foreground
* extinction
real*4 e_V_I ! (mag) ? rms uncertainty on V-I
real*4 Q ! (mag) ? Reddening-free index Q=(U-B)-0.72(B-V)
real*4 e_Q ! (mag) ? rms uncertainty on Q
real*4 Reff ! (pc) ? Effective radius
*Note (1): Coordinates are with respect to the nuclear position:
* RA=22:20:44.775, DE=-24:40:41.831, J2000.
* A positive offset indicates that the object is east or north of
* the nucleus.
C=============================================================================
C Loading file 'tables.dat' ! Cluster candidates in NGC 7252
C Format for file interpretation
1 format(
+ I2,1X,F7.3,1X,F7.3,1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,
+ F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'tables.dat')
write(6,*) '....Loading file: tables.dat'
do i__=1,80
read(1,'(A84)')ar__
read(ar__,1)
+ MWS97,oRA,oDE,rproj,Vmag,e_Vmag,U_B,e_U_B,B_V,e_B_V,V_I,e_V_I,
+ Q,e_Q,Reff
if(ar__(37:41) .EQ. '') U_B = rNULL__
if(ar__(43:46) .EQ. '') e_U_B = rNULL__
if(ar__(48:52) .EQ. '') B_V = rNULL__
if(ar__(54:57) .EQ. '') e_B_V = rNULL__
if(ar__(59:63) .EQ. '') V_I = rNULL__
if(ar__(65:68) .EQ. '') e_V_I = rNULL__
if(ar__(70:74) .EQ. '') Q = rNULL__
if(ar__(76:79) .EQ. '') e_Q = rNULL__
if(ar__(81:84) .EQ. '') Reff = rNULL__
c ..............Just test output...........
write(6,1)
+ MWS97,oRA,oDE,rproj,Vmag,e_Vmag,U_B,e_U_B,B_V,e_B_V,V_I,e_V_I,
+ Q,e_Q,Reff
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end