Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/134/185 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 2026-Jul-13
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/134/185 Cataclysmic variables from SDSS-DR5 (Szkody+, 2007)
*================================================================================
*Cataclysmic variables from Sloan Digital Sky Survey. VI. The sixth year (2005).
* Szkody P., Henden A., Mannikko L., Mukadam A., Schmidt G.D.,
* Bochanski J.J., Agueros M., Anderson S.F., Silvestri N.M., Dahab W.E.,
* Oguri M., Schneider D.P., Shin M.-S., Strauss M.A., Knapp G.R., West A.A.
* <Astron. J., 134, 185-194 (2007)>
* =2007AJ....134..185S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! CVs in SDSS
integer*4 nr__
parameter (nr__=28) ! Number of records
character*85 ar__ ! Full-size record
character*18 SDSSJ ! SDSS designation (HHMMSS.ss+DDMMSS.s)
character*1 f_SDSSJ ! [*] * for Objects publicly available in the
* SDSS DR5
character*1 n_SDSSJ ! [d] Star in a close pair (1)
integer*4 MJD ! ? SDSS MJD number for spectra
integer*4 Plate ! ? SDSS Plate number for spectra
integer*4 Fiber ! ? SDSS Fiber number for spectra
real*4 gmag ! (mag) SDSS g magnitude
real*4 u_g ! (mag) SDSS u-g colour index
real*4 g_r ! (mag) SDSS g-r colour index
real*4 r_i ! (mag) SDSS r-i colour index
real*4 i_z ! (mag) SDSS i-z colour index
real*4 P ! (h) ? Period
character*14 Com ! Comments (2)
*Note (1): d = Object is the eastern star of a close pair
*Note (2): DN is a dwarf nova, and Ec is eclipsing
C=============================================================================
C Loading file 'table1.dat' ! CVs in SDSS
C Format for file interpretation
1 format(
+ A18,A1,A1,1X,I5,1X,I4,1X,I3,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F4.2,1X,A14)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,28
read(1,'(A85)')ar__
read(ar__,1)
+ SDSSJ,f_SDSSJ,n_SDSSJ,MJD,Plate,Fiber,gmag,u_g,g_r,r_i,i_z,P,
+ Com
if(ar__(22:26) .EQ. '') MJD = iNULL__
if(ar__(28:31) .EQ. '') Plate = iNULL__
if(ar__(33:35) .EQ. '') Fiber = iNULL__
if(ar__(67:70) .EQ. '') P = rNULL__
c ..............Just test output...........
write(6,1)
+ SDSSJ,f_SDSSJ,n_SDSSJ,MJD,Plate,Fiber,gmag,u_g,g_r,r_i,i_z,P,
+ Com
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end