Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/408/67 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-Oct-08
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/408/67 LSB galaxies in near-infrared. II. (Monnier-Ragaigne+, 2003)
*================================================================================
*A search for Low Surface Brightness galaxies in the near-infrared.
*II. Arecibo HI line observations.
* Monnier-Ragaigne D., van Driel W., O'Neil K., Schneider S.E., Balkowski C.,
* Jarrett T.H.
* <Astron. Astrophys. 408, 67 (2003)>
* =2003A&A...408...67M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Comparison with published HI data
integer*4 nr__
parameter (nr__=24) ! Number of records
character*102 ar__ ! Full-size record
character*6 ID ! Identification of the galaxy
character*13 OName ! Other name
integer*4 V_HI ! (km/s) Heliocentric central radial velocity of 21cm
* line profile
real*4 I_HI ! (Jy.km/s) ? Integrated 21cm line flux
integer*4 W_50 ! (km/s) ? Width velocity at 50% of peak maximum
character*1 Tel ! [AN] Telescopes, Arecibo (A) or Nancay (N)
character*50 Ref ! Reference
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3a.dat' ! Detected objects -
identifications and coordinates
integer*4 nr__1
parameter (nr__1=107) ! Number of records
character*54 ar__1 ! Full-size record
character*6 ID_1 ! Identification of the galaxy
character*1 n_ID ! [)] Source names in brackets are not found in
* later versions of the public 2MASS database
character*14 v2MASXi ! 2MASS name (hhmmsss+ddmmss, J2000.0)
character*1 f_ID ! [*] *: S396N has no entry in table3b.dat
integer*4 PGC ! ? PGC number
character*20 OName_1 ! Other name
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4a.dat' ! Marginal detections -
identifications and coordinates
integer*4 nr__2
parameter (nr__2=21) ! Number of records
character*54 ar__2 ! Full-size record
character*6 ID_2 ! Identification of the galaxy
character*1 n_ID_1 ! [)] Source names in brackets are not found in
* later versions of the public 2MASS database
character*14 v2MASXi_1 ! 2MASS name (hhmmsss+ddmmss, J2000.0)
character*1 f_ID_1 ! [*] *: S396N has no entry in table3b.dat
integer*4 PGC_1 ! ? PGC number
character*20 OName_2 ! Other name
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5a.dat' ! Undetected objects -
identifications and coordinates
integer*4 nr__3
parameter (nr__3=237) ! Number of records
character*54 ar__3 ! Full-size record
character*6 ID_3 ! Identification of the galaxy
character*1 n_ID_2 ! [)] Source names in brackets are not found in
* later versions of the public 2MASS database
character*14 v2MASXi_2 ! 2MASS name (hhmmsss+ddmmss, J2000.0)
character*1 f_ID_2 ! [*] *: S396N has no entry in table3b.dat
integer*4 PGC_2 ! ? PGC number
character*20 OName_3 ! Other name
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3b.dat' ! Detected objects - basic data
integer*4 nr__4
parameter (nr__4=108) ! Number of records
character*133 ar__4 ! Full-size record
character*6 ID_4 ! Identification of the galaxy
character*1 m_ID ! [ab] Multiplicity index on ID, when two
* line profiles detected in the same spectrum
real*4 K20 ! (mag) ? Total magnitude measured within the
* r_K20_ isophotal aperture
real*4 J_Ks ! (mag) ? J-Ks colour index
real*4 SuBrK5 ! (mag/arcsec+2) ? Mean central surface brightness measured
* within a radius of 5" around the source's
* center in the Ks band
real*4 b_a ! ? b/a ratio (ellipticity)
real*4 r_K20 ! (arcsec) ? Fiducial aperture in the Ks band
real*4 BTc ! (mag) ? Total apparent B-band magnitude (G1)
real*4 D25 ! (arcmin) ? Isophotal B-band diameter measured at a
* surface brightness level of
* 25mag/arcsec^2^
real*4 SuBrB25 ! (mag/arcsec+2) ? Mean B-band surface brightness within
* the 25mag/arcsec^2^ isophote
character*7 MType ! Morphological type
real*4 rms ! (mJy) rms noise level in a spectrum
character*1 l_I_HI ! Limit flag on I(HI)
real*4 I_HI_1 ! (Jy.km/s) Integrated 21cm line flux
character*1 l_V_HI ! Limit flag on V(HI)
integer*4 V_HI_1 ! (km/s) ? Heliocentric central radial velocity of
* 21cm line profile
integer*4 e_V_HI ! (km/s) ? rms uncertainty on V(HI)
integer*4 V_opt ! (km/s) ? Mean heliocentric optical radial velocity
integer*4 W_50_1 ! (km/s) ? Velocity widths at 50% of peak maximum
integer*4 W_20 ! (km/s) ? Velocity widths at 20% of peak maximum
character*1 n_Dist ! [(] Note (1)
real*4 Dist ! (Mpc) Distance
character*1 n_logM_HI ! [(] Note (2)
real*4 logM_HI ! ([solMass]) Total HI mass
real*4 logL_K ! ([solLum]) Absolute magnitude in the Ks band (G2)
real*4 logL_B ! ([solLum]) ? Absolute magnitude in the B band (G2)
real*4 M_HI__LK ! Mass-to-Ks luminosity ratio
real*4 M_HI__LB ! ? Mass-to-blue luminosity ratio
*Note (1): For L224O: Our H I spectrum of the target galaxy, NGC 464,
* shows two detections, at 5803 and 6673km/s. It is impossible to assign
* the detections to the objects, as neither has a known optical
* redshift. For the distance dependent parameters listed for L224Oa and
* L224Ob it was assumed that the H I is associated with NGC 464.
*Note (2): For S490P: H I profile partially outside our search range.
* For S2834O: Two H I lines were detected in our spectrum, at 5615 and
* 9802km/s. For the distance dependent parameters listed for S2834Oa/b
* it was assumed that the H I is associated with the target galaxy.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4b.dat' ! Marginal detections - basic data
integer*4 nr__5
parameter (nr__5=21) ! Number of records
character*114 ar__5 ! Full-size record
character*6 ID_5 ! Identification of the galaxy
real*4 K20_1 ! (mag) Total magnitude measured within the r_K20_
* isophotal aperture
real*4 J_Ks_1 ! (mag) J-Ks colour index
real*4 SuBrK5_1 ! (mag/arcsec+2) Mean central surface brightness measured
* within a radius of 5" around the source's
* center in the Ks band
real*4 b_a_1 ! b/a ratio
real*4 r_K20_1 ! (arcsec) Fiducial aperture in the Ks band
real*4 BTc_1 ! (mag) ? Total apparent B-band magnitude (G1)
real*4 D25_1 ! (arcmin) ? Isophotal B-band diameter measured at a
* surface brightness level of 25mag/arcsec^2^
real*4 SuBrB25_1 ! (mag/arcsec+2) ? Mean B-band surface brightness within
* the 25mag/arcsec^2^ isophote
character*5 MType_1 ! Morphological type
real*4 rms_1 ! (mJy) rms noise level in a spectrum
real*4 I_HI_1 ! (Jy.km/s) Integrated line flux
integer*4 V_HI_1 ! (km/s) Heliocentric central radial velocity of a
* line profile
integer*4 V_opt_1 ! (km/s) ? Mean heliocentric optical radial velocity
integer*4 W_50_1 ! (km/s) Velocity widths at 50% of peak maximum
real*4 Dist_1 ! (Mpc) Distance
real*4 logM_HI_1 ! ([solMass]) Total HI mass
real*4 logL_K_1 ! ([solLum]) Absolute magnitude in the Ks band (G2)
real*4 logL_B_1 ! ([solLum]) ? Absolute magnitude in the B band (G2)
real*4 M_HI__LK_1 ! Mass-to-Ks luminosity ratio
real*4 M_HI__LB_1 ! ? Mass-to-blue luminosity ratio
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5b.dat' ! Undetected objects - basic data
integer*4 nr__6
parameter (nr__6=271) ! Number of records
character*84 ar__6 ! Full-size record
character*6 ID_6 ! Identification of the galaxy
real*4 K20_2 ! (mag) Total magnitude measured within the r_K20_
* isophotal aperture
real*4 J_Ks_2 ! (mag) J-Ks colour index
real*4 H_Ks ! (mag) H-Ks colour index
real*4 SuBrK5_2 ! (mag/arcsec+2) Mean central surface brightness measured
* within a radius of 5" around the source's
* center in the Ks band
real*4 b_a_2 ! b/a ratio
real*4 r_K20_1 ! (arcsec) Fiducial aperture in the Ks band
real*4 BTc_2 ! (mag) ? Total apparent B-band magnitude (1)
real*4 D25_2 ! (arcmin) ? Isophotal B-band diameter measured at a
* surface brightness level of 25mag/arcsec^2^
real*4 SuBrB25_2 ! (mag/arcsec+2) ? Mean B-band surface brightness within
* the 25mag/arcsec^2^ isophote
character*4 MType_2 ! Morphological type
real*4 rms_2 ! (mJy) rms noise level in a spectrum
real*4 I_HI_1 ! (Jy.km/s) Integrated line flux (2)
real*4 M_HI__LK_2 ! Mass-to-Ks luminosity ratio
real*4 M_HI__LB_2 ! ? Mass-to-blue luminosity ratio
character*2 Search ! Search mode (3)
*Note (1): Reduced to the RC3 system and corrected for galactic extinction,
* inclination and redshift effects.
*Note (2): Estimated upper limits to I(HI) are for 250km/s wide, flat-topped
* profiles
*Note (3): 3 different line search modes were used:
* lo in the -500 to 11000km/s range,
* hi in the 9500 to 21000km/s range
* kv for objects with previously known redshifts;
C=============================================================================
C Loading file 'table2.dat' ! Comparison with published HI data
C Format for file interpretation
1 format(A6,4X,A13,2X,I4,2X,F5.2,3X,I3,4X,A1,5X,A50)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,24
read(1,'(A102)')ar__
read(ar__,1)ID,OName,V_HI,I_HI,W_50,Tel,Ref
if(ar__(32:36) .EQ. '') I_HI = rNULL__
if(ar__(40:42) .EQ. '') W_50 = iNULL__
c ..............Just test output...........
write(6,1)ID,OName,V_HI,I_HI,W_50,Tel,Ref
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3a.dat' ! Detected objects -
* identifications and coordinates
C Format for file interpretation
2 format(A6,A1,1X,A14,1X,A1,1X,I7,2X,A20)
C Effective file loading
open(unit=1,status='old',file=
+'table3a.dat')
write(6,*) '....Loading file: table3a.dat'
do i__=1,107
read(1,'(A54)')ar__1
read(ar__1,2)ID_1,n_ID,v2MASXi,f_ID,PGC,OName_1
if(ar__1(26:32) .EQ. '') PGC = iNULL__
c ..............Just test output...........
write(6,2)ID_1,n_ID,v2MASXi,f_ID,PGC,OName_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4a.dat' ! Marginal detections -
* identifications and coordinates
C Format for file interpretation
3 format(A6,A1,1X,A14,1X,A1,1X,I7,2X,A20)
C Effective file loading
open(unit=1,status='old',file=
+'table4a.dat')
write(6,*) '....Loading file: table4a.dat'
do i__=1,21
read(1,'(A54)')ar__2
read(ar__2,3)ID_2,n_ID_1,v2MASXi_1,f_ID_1,PGC_1,OName_2
if(ar__2(26:32) .EQ. '') PGC_1 = iNULL__
c ..............Just test output...........
write(6,3)ID_2,n_ID_1,v2MASXi_1,f_ID_1,PGC_1,OName_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5a.dat' ! Undetected objects -
* identifications and coordinates
C Format for file interpretation
4 format(A6,A1,1X,A14,1X,A1,1X,I7,2X,A20)
C Effective file loading
open(unit=1,status='old',file=
+'table5a.dat')
write(6,*) '....Loading file: table5a.dat'
do i__=1,237
read(1,'(A54)')ar__3
read(ar__3,4)ID_3,n_ID_2,v2MASXi_2,f_ID_2,PGC_2,OName_3
if(ar__3(26:32) .EQ. '') PGC_2 = iNULL__
c ..............Just test output...........
write(6,4)ID_3,n_ID_2,v2MASXi_2,f_ID_2,PGC_2,OName_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3b.dat' ! Detected objects - basic data
C Format for file interpretation
5 format(
+ 1X,A6,A1,2X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.1,1X,F5.2,1X,
+ F4.2,1X,F5.2,1X,A7,1X,F4.2,1X,A1,F4.2,1X,A1,I5,1X,I2,1X,I5,1X,
+ I3,1X,I3,1X,A1,F5.1,1X,A1,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3b.dat')
write(6,*) '....Loading file: table3b.dat'
do i__=1,108
read(1,'(A133)')ar__4
read(ar__4,5)
+ ID_4,m_ID,K20,J_Ks,SuBrK5,b_a,r_K20,BTc,D25,SuBrB25,MType,rms,
+ l_I_HI,I_HI_1,l_V_HI,V_HI_1,e_V_HI,V_opt,W_50_1,W_20,n_Dist,
+ Dist,n_logM_HI,logM_HI,logL_K,logL_B,M_HI__LK,M_HI__LB
if(ar__4(11:15) .EQ. '') K20 = rNULL__
if(ar__4(17:20) .EQ. '') J_Ks = rNULL__
if(ar__4(22:26) .EQ. '') SuBrK5 = rNULL__
if(ar__4(28:31) .EQ. '') b_a = rNULL__
if(ar__4(33:36) .EQ. '') r_K20 = rNULL__
if(ar__4(38:42) .EQ. '') BTc = rNULL__
if(ar__4(44:47) .EQ. '') D25 = rNULL__
if(ar__4(49:53) .EQ. '') SuBrB25 = rNULL__
if(ar__4(75:79) .EQ. '') V_HI_1 = iNULL__
if(ar__4(81:82) .EQ. '') e_V_HI = iNULL__
if(ar__4(84:88) .EQ. '') V_opt = iNULL__
if(ar__4(90:92) .EQ. '') W_50_1 = iNULL__
if(ar__4(94:96) .EQ. '') W_20 = iNULL__
if(ar__4(118:122) .EQ. '') logL_B = rNULL__
if(ar__4(129:132) .EQ. '') M_HI__LB = rNULL__
c ..............Just test output...........
write(6,5)
+ ID_4,m_ID,K20,J_Ks,SuBrK5,b_a,r_K20,BTc,D25,SuBrB25,MType,rms,
+ l_I_HI,I_HI_1,l_V_HI,V_HI_1,e_V_HI,V_opt,W_50_1,W_20,n_Dist,
+ Dist,n_logM_HI,logM_HI,logL_K,logL_B,M_HI__LK,M_HI__LB
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4b.dat' ! Marginal detections - basic data
C Format for file interpretation
6 format(
+ A6,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.1,1X,F5.2,1X,F4.2,1X,
+ F5.2,1X,A5,1X,F4.2,1X,F4.2,1X,I5,1X,I4,1X,I3,1X,F5.1,1X,F4.2,
+ 1X,F5.2,1X,F5.2,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4b.dat')
write(6,*) '....Loading file: table4b.dat'
do i__=1,21
read(1,'(A114)')ar__5
read(ar__5,6)
+ ID_5,K20_1,J_Ks_1,SuBrK5_1,b_a_1,r_K20_1,BTc_1,D25_1,
+ SuBrB25_1,MType_1,rms_1,I_HI_1,V_HI_1,V_opt_1,W_50_1,Dist_1,
+ logM_HI_1,logL_K_1,logL_B_1,M_HI__LK_1,M_HI__LB_1
if(ar__5(35:39) .EQ. '') BTc_1 = rNULL__
if(ar__5(41:44) .EQ. '') D25_1 = rNULL__
if(ar__5(46:50) .EQ. '') SuBrB25_1 = rNULL__
if(ar__5(74:77) .EQ. '') V_opt_1 = iNULL__
if(ar__5(100:104) .EQ. '') logL_B_1 = rNULL__
if(ar__5(111:114) .EQ. '') M_HI__LB_1 = rNULL__
c ..............Just test output...........
write(6,6)
+ ID_5,K20_1,J_Ks_1,SuBrK5_1,b_a_1,r_K20_1,BTc_1,D25_1,
+ SuBrB25_1,MType_1,rms_1,I_HI_1,V_HI_1,V_opt_1,W_50_1,Dist_1,
+ logM_HI_1,logL_K_1,logL_B_1,M_HI__LK_1,M_HI__LB_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5b.dat' ! Undetected objects - basic data
C Format for file interpretation
7 format(
+ A6,1X,F5.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.1,1X,F5.2,1X,
+ F4.2,1X,F5.2,1X,A4,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,2X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'table5b.dat')
write(6,*) '....Loading file: table5b.dat'
do i__=1,271
read(1,'(A84)')ar__6
read(ar__6,7)
+ ID_6,K20_2,J_Ks_2,H_Ks,SuBrK5_2,b_a_2,r_K20_1,BTc_2,D25_2,
+ SuBrB25_2,MType_2,rms_2,I_HI_1,M_HI__LK_2,M_HI__LB_2,Search
if(ar__6(40:44) .EQ. '') BTc_2 = rNULL__
if(ar__6(46:49) .EQ. '') D25_2 = rNULL__
if(ar__6(51:55) .EQ. '') SuBrB25_2 = rNULL__
if(ar__6(77:80) .EQ. '') M_HI__LB_2 = rNULL__
c ..............Just test output...........
write(6,7)
+ ID_6,K20_2,J_Ks_2,H_Ks,SuBrK5_2,b_a_2,r_K20_1,BTc_2,D25_2,
+ SuBrB25_2,MType_2,rms_2,I_HI_1,M_HI__LK_2,M_HI__LB_2,Search
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end