Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/765/28 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-Apr-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/ApJ/765/28 CFHTLS galaxies with faint tidal features (Atkinson+, 2013)
*================================================================================
*Faint tidal features in galaxies within the Canada-France-Hawaii Telescope
*Legacy Survey wide fields.
* Atkinson A.M., Abraham R.G., Ferguson A.M.N.
* <Astrophys. J., 765, 28 (2013)>
* =2013ApJ...765...28A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Master data table of selected galaxies
integer*4 nr__
parameter (nr__=1780) ! Number of records
character*63 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*6 CFHTLS ! Identifier (W{1-4}-NNN)
integer*4 Conf ! [0/4]? Confidence tidal class, 4=certain (1)
character*5 Feat ! Feature classification (2)
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000)
real*4 zph ! [0.04/0.2] Photometric redshift estimate
real*4 r_Mag ! [-25/-19.3] Absolute rest-frame r' band magnitude
real*4 M_ ! ([Msun]) [9/12] Log of the stellar mass
real*4 g__r_ ! (mag) Rest-frame (g'-r') color index
character*1 R_B ! Blue cloud (B) or red sequence (R) flag
*Note (1): Confidence class (see text for details):
* 4 = certain detection of a tidal feature;
* 3 = probable detection of a tidal feature (over 75% certain);
* 2 = possible detection of a tidal feature (around 50% certain);
* 1 = hint of a potential tidal feature. Very uncertain;
* 0 = none.
*Note (2): Feature classification as follows (thumbnail of Fig.6):
* H = shell surrounding the galaxy (a)
* S = stream (b)
* M = miscellaneous/diffuse structure (c)
* A = one arm (d)
* L = linear feature (e)
* F = fans of diffuse light (f)
C=============================================================================
C Loading file 'table4.dat' ! Master data table of selected galaxies
C Format for file interpretation
1 format(
+ A6,1X,I1,1X,A5,1X,F10.6,1X,F10.6,1X,F5.3,1X,F6.2,1X,F5.2,1X,
+ F5.3,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,1780
read(1,'(A63)')ar__
read(ar__,1)
+ CFHTLS,Conf,Feat,RAdeg,DEdeg,zph,r_Mag,M_,g__r_,R_B
if(ar__(8:8) .EQ. '') Conf = iNULL__
c ..............Just test output...........
write(6,1)
+ CFHTLS,Conf,Feat,RAdeg,DEdeg,zph,r_Mag,M_,g__r_,R_B
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end