Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/408/67 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 2026-Oct-06
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 (nr__) ! Identification of the galaxy
character*13 OName (nr__) ! Other name
integer*4 V_HI (nr__) ! (km/s) Heliocentric central radial velocity of 21cm
* line profile
real*4 I_HI (nr__) ! (Jy.km/s) ? Integrated 21cm line flux
integer*4 W_50 (nr__) ! (km/s) ? Width velocity at 50% of peak maximum
character*1 Tel (nr__) ! [AN] Telescopes, Arecibo (A) or Nancay (N)
character*50 Ref (nr__) ! 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 (nr__1) ! Identification of the galaxy
character*1 n_ID (nr__1) ! [)] Source names in brackets are not found in
* later versions of the public 2MASS database
character*14 v2MASXi (nr__1) ! 2MASS name (hhmmsss+ddmmss, J2000.0)
character*1 f_ID (nr__1) ! [*] *: S396N has no entry in table3b.dat
integer*4 PGC (nr__1) ! ? PGC number
character*20 OName_1 (nr__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 (nr__2) ! Identification of the galaxy
character*1 n_ID_1 (nr__2) ! [)] Source names in brackets are not found in
* later versions of the public 2MASS database
character*14 v2MASXi_1 (nr__2) ! 2MASS name (hhmmsss+ddmmss, J2000.0)
character*1 f_ID_1 (nr__2) ! [*] *: S396N has no entry in table3b.dat
integer*4 PGC_1 (nr__2) ! ? PGC number
character*20 OName_2 (nr__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 (nr__3) ! Identification of the galaxy
character*1 n_ID_2 (nr__3) ! [)] Source names in brackets are not found in
* later versions of the public 2MASS database
character*14 v2MASXi_2 (nr__3) ! 2MASS name (hhmmsss+ddmmss, J2000.0)
character*1 f_ID_2 (nr__3) ! [*] *: S396N has no entry in table3b.dat
integer*4 PGC_2 (nr__3) ! ? PGC number
character*20 OName_3 (nr__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 (nr__4) ! Identification of the galaxy
character*1 m_ID (nr__4) ! [ab] Multiplicity index on ID, when two
* line profiles detected in the same spectrum
real*4 K20 (nr__4) ! (mag) ? Total magnitude measured within the
* r_K20_ isophotal aperture
real*4 J_Ks (nr__4) ! (mag) ? J-Ks colour index
real*4 SuBrK5 (nr__4) ! (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 (nr__4) ! ? b/a ratio (ellipticity)
real*4 r_K20 (nr__4) ! (arcsec) ? Fiducial aperture in the Ks band
real*4 BTc (nr__4) ! (mag) ? Total apparent B-band magnitude (G1)
real*4 D25 (nr__4) ! (arcmin) ? Isophotal B-band diameter measured at a
* surface brightness level of
* 25mag/arcsec^2^
real*4 SuBrB25 (nr__4) ! (mag/arcsec+2) ? Mean B-band surface brightness within
* the 25mag/arcsec^2^ isophote
character*7 MType (nr__4) ! Morphological type
real*4 rms (nr__4) ! (mJy) rms noise level in a spectrum
character*1 l_I_HI (nr__4) ! Limit flag on I(HI)
real*4 I_HI_1 (nr__4) ! (Jy.km/s) Integrated 21cm line flux
character*1 l_V_HI (nr__4) ! Limit flag on V(HI)
integer*4 V_HI_1 (nr__4) ! (km/s) ? Heliocentric central radial velocity of
* 21cm line profile
integer*4 e_V_HI (nr__4) ! (km/s) ? rms uncertainty on V(HI)
integer*4 V_opt (nr__4) ! (km/s) ? Mean heliocentric optical radial velocity
integer*4 W_50_1 (nr__4) ! (km/s) ? Velocity widths at 50% of peak maximum
integer*4 W_20 (nr__4) ! (km/s) ? Velocity widths at 20% of peak maximum
character*1 n_Dist (nr__4) ! [(] Note (1)
real*4 Dist (nr__4) ! (Mpc) Distance
character*1 n_logM_HI (nr__4) ! [(] Note (2)
real*4 logM_HI (nr__4) ! ([solMass]) Total HI mass
real*4 logL_K (nr__4) ! ([solLum]) Absolute magnitude in the Ks band (G2)
real*4 logL_B (nr__4) ! ([solLum]) ? Absolute magnitude in the B band (G2)
real*4 M_HI__LK (nr__4) ! Mass-to-Ks luminosity ratio
real*4 M_HI__LB (nr__4) ! ? 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 (nr__5) ! Identification of the galaxy
real*4 K20_1 (nr__5) ! (mag) Total magnitude measured within the r_K20_
* isophotal aperture
real*4 J_Ks_1 (nr__5) ! (mag) J-Ks colour index
real*4 SuBrK5_1 (nr__5) ! (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 (nr__5) ! b/a ratio
real*4 r_K20_1 (nr__5) ! (arcsec) Fiducial aperture in the Ks band
real*4 BTc_1 (nr__5) ! (mag) ? Total apparent B-band magnitude (G1)
real*4 D25_1 (nr__5) ! (arcmin) ? Isophotal B-band diameter measured at a
* surface brightness level of 25mag/arcsec^2^
real*4 SuBrB25_1 (nr__5) ! (mag/arcsec+2) ? Mean B-band surface brightness within
* the 25mag/arcsec^2^ isophote
character*5 MType_1 (nr__5) ! Morphological type
real*4 rms_1 (nr__5) ! (mJy) rms noise level in a spectrum
real*4 I_HI_1 (nr__5) ! (Jy.km/s) Integrated line flux
integer*4 V_HI_1 (nr__5) ! (km/s) Heliocentric central radial velocity of a
* line profile
integer*4 V_opt_1 (nr__5) ! (km/s) ? Mean heliocentric optical radial velocity
integer*4 W_50_1 (nr__5) ! (km/s) Velocity widths at 50% of peak maximum
real*4 Dist_1 (nr__5) ! (Mpc) Distance
real*4 logM_HI_1 (nr__5) ! ([solMass]) Total HI mass
real*4 logL_K_1 (nr__5) ! ([solLum]) Absolute magnitude in the Ks band (G2)
real*4 logL_B_1 (nr__5) ! ([solLum]) ? Absolute magnitude in the B band (G2)
real*4 M_HI__LK_1 (nr__5) ! Mass-to-Ks luminosity ratio
real*4 M_HI__LB_1 (nr__5) ! ? 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 (nr__6) ! Identification of the galaxy
real*4 K20_2 (nr__6) ! (mag) Total magnitude measured within the r_K20_
* isophotal aperture
real*4 J_Ks_2 (nr__6) ! (mag) J-Ks colour index
real*4 H_Ks (nr__6) ! (mag) H-Ks colour index
real*4 SuBrK5_2 (nr__6) ! (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 (nr__6) ! b/a ratio
real*4 r_K20_1 (nr__6) ! (arcsec) Fiducial aperture in the Ks band
real*4 BTc_2 (nr__6) ! (mag) ? Total apparent B-band magnitude (1)
real*4 D25_2 (nr__6) ! (arcmin) ? Isophotal B-band diameter measured at a
* surface brightness level of 25mag/arcsec^2^
real*4 SuBrB25_2 (nr__6) ! (mag/arcsec+2) ? Mean B-band surface brightness within
* the 25mag/arcsec^2^ isophote
character*4 MType_2 (nr__6) ! Morphological type
real*4 rms_2 (nr__6) ! (mJy) rms noise level in a spectrum
real*4 I_HI_1 (nr__6) ! (Jy.km/s) Integrated line flux (2)
real*4 M_HI__LK_2 (nr__6) ! Mass-to-Ks luminosity ratio
real*4 M_HI__LB_2 (nr__6) ! ? Mass-to-blue luminosity ratio
character*2 Search (nr__6) ! 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(i__),OName(i__),V_HI(i__),I_HI(i__),W_50(i__),Tel(i__),
+ Ref(i__)
if(ar__(32:36) .EQ. '') I_HI(i__) = rNULL__
if(ar__(40:42) .EQ. '') W_50(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ ID(i__),OName(i__),V_HI(i__),I_HI(i__),W_50(i__),Tel(i__),
+ Ref(i__)
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(i__),n_ID(i__),v2MASXi(i__),f_ID(i__),PGC(i__),
+ OName_1(i__)
if(ar__1(26:32) .EQ. '') PGC(i__) = iNULL__
c ..............Just test output...........
write(6,2)
+ ID_1(i__),n_ID(i__),v2MASXi(i__),f_ID(i__),PGC(i__),
+ OName_1(i__)
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(i__),n_ID_1(i__),v2MASXi_1(i__),f_ID_1(i__),PGC_1(i__),
+ OName_2(i__)
if(ar__2(26:32) .EQ. '') PGC_1(i__) = iNULL__
c ..............Just test output...........
write(6,3)
+ ID_2(i__),n_ID_1(i__),v2MASXi_1(i__),f_ID_1(i__),PGC_1(i__),
+ OName_2(i__)
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(i__),n_ID_2(i__),v2MASXi_2(i__),f_ID_2(i__),PGC_2(i__),
+ OName_3(i__)
if(ar__3(26:32) .EQ. '') PGC_2(i__) = iNULL__
c ..............Just test output...........
write(6,4)
+ ID_3(i__),n_ID_2(i__),v2MASXi_2(i__),f_ID_2(i__),PGC_2(i__),
+ OName_3(i__)
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(i__),m_ID(i__),K20(i__),J_Ks(i__),SuBrK5(i__),b_a(i__),
+ r_K20(i__),BTc(i__),D25(i__),SuBrB25(i__),MType(i__),rms(i__),
+ l_I_HI(i__),I_HI_1(i__),l_V_HI(i__),V_HI_1(i__),e_V_HI(i__),
+ V_opt(i__),W_50_1(i__),W_20(i__),n_Dist(i__),Dist(i__),
+ n_logM_HI(i__),logM_HI(i__),logL_K(i__),logL_B(i__),
+ M_HI__LK(i__),M_HI__LB(i__)
if(ar__4(11:15) .EQ. '') K20(i__) = rNULL__
if(ar__4(17:20) .EQ. '') J_Ks(i__) = rNULL__
if(ar__4(22:26) .EQ. '') SuBrK5(i__) = rNULL__
if(ar__4(28:31) .EQ. '') b_a(i__) = rNULL__
if(ar__4(33:36) .EQ. '') r_K20(i__) = rNULL__
if(ar__4(38:42) .EQ. '') BTc(i__) = rNULL__
if(ar__4(44:47) .EQ. '') D25(i__) = rNULL__
if(ar__4(49:53) .EQ. '') SuBrB25(i__) = rNULL__
if(ar__4(75:79) .EQ. '') V_HI_1(i__) = iNULL__
if(ar__4(81:82) .EQ. '') e_V_HI(i__) = iNULL__
if(ar__4(84:88) .EQ. '') V_opt(i__) = iNULL__
if(ar__4(90:92) .EQ. '') W_50_1(i__) = iNULL__
if(ar__4(94:96) .EQ. '') W_20(i__) = iNULL__
if(ar__4(118:122) .EQ. '') logL_B(i__) = rNULL__
if(ar__4(129:132) .EQ. '') M_HI__LB(i__) = rNULL__
c ..............Just test output...........
write(6,5)
+ ID_4(i__),m_ID(i__),K20(i__),J_Ks(i__),SuBrK5(i__),b_a(i__),
+ r_K20(i__),BTc(i__),D25(i__),SuBrB25(i__),MType(i__),rms(i__),
+ l_I_HI(i__),I_HI_1(i__),l_V_HI(i__),V_HI_1(i__),e_V_HI(i__),
+ V_opt(i__),W_50_1(i__),W_20(i__),n_Dist(i__),Dist(i__),
+ n_logM_HI(i__),logM_HI(i__),logL_K(i__),logL_B(i__),
+ M_HI__LK(i__),M_HI__LB(i__)
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(i__),K20_1(i__),J_Ks_1(i__),SuBrK5_1(i__),b_a_1(i__),
+ r_K20_1(i__),BTc_1(i__),D25_1(i__),SuBrB25_1(i__),
+ MType_1(i__),rms_1(i__),I_HI_1(i__),V_HI_1(i__),V_opt_1(i__),
+ W_50_1(i__),Dist_1(i__),logM_HI_1(i__),logL_K_1(i__),
+ logL_B_1(i__),M_HI__LK_1(i__),M_HI__LB_1(i__)
if(ar__5(35:39) .EQ. '') BTc_1(i__) = rNULL__
if(ar__5(41:44) .EQ. '') D25_1(i__) = rNULL__
if(ar__5(46:50) .EQ. '') SuBrB25_1(i__) = rNULL__
if(ar__5(74:77) .EQ. '') V_opt_1(i__) = iNULL__
if(ar__5(100:104) .EQ. '') logL_B_1(i__) = rNULL__
if(ar__5(111:114) .EQ. '') M_HI__LB_1(i__) = rNULL__
c ..............Just test output...........
write(6,6)
+ ID_5(i__),K20_1(i__),J_Ks_1(i__),SuBrK5_1(i__),b_a_1(i__),
+ r_K20_1(i__),BTc_1(i__),D25_1(i__),SuBrB25_1(i__),
+ MType_1(i__),rms_1(i__),I_HI_1(i__),V_HI_1(i__),V_opt_1(i__),
+ W_50_1(i__),Dist_1(i__),logM_HI_1(i__),logL_K_1(i__),
+ logL_B_1(i__),M_HI__LK_1(i__),M_HI__LB_1(i__)
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(i__),K20_2(i__),J_Ks_2(i__),H_Ks(i__),SuBrK5_2(i__),
+ b_a_2(i__),r_K20_1(i__),BTc_2(i__),D25_2(i__),SuBrB25_2(i__),
+ MType_2(i__),rms_2(i__),I_HI_1(i__),M_HI__LK_2(i__),
+ M_HI__LB_2(i__),Search(i__)
if(ar__6(40:44) .EQ. '') BTc_2(i__) = rNULL__
if(ar__6(46:49) .EQ. '') D25_2(i__) = rNULL__
if(ar__6(51:55) .EQ. '') SuBrB25_2(i__) = rNULL__
if(ar__6(77:80) .EQ. '') M_HI__LB_2(i__) = rNULL__
c ..............Just test output...........
write(6,7)
+ ID_6(i__),K20_2(i__),J_Ks_2(i__),H_Ks(i__),SuBrK5_2(i__),
+ b_a_2(i__),r_K20_1(i__),BTc_2(i__),D25_2(i__),SuBrB25_2(i__),
+ MType_2(i__),rms_2(i__),I_HI_1(i__),M_HI__LK_2(i__),
+ M_HI__LB_2(i__),Search(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end