Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/130/177 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.5, on 2013-Jun-19
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__
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/ApJS/130/177 Arecibo Dual-Beam Survey (Rosenberg+, 2000)
*================================================================================
*The Arecibo Dual-Beam Survey: Arecibo and VLA observations.
* Rosenberg J.L., Schneider S.E.
* <Astrophys. J. Suppl. Ser. 130, 177 (2000)>
* =2000ApJS..130..177R
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Galaxy Detection Data
integer*4 nr__
parameter (nr__=265) ! Number of records
character*104 ar__ ! Full-size record
real*8 RA_ (nr__) ! (deg) Right Ascension J2000
real*8 Dec (nr__) ! (deg) Declination J2000
character*11 ADBS (nr__) ! Name (ADBS JHHMMSS+DDMM in Simbad)
character*1 f_ADBS (nr__) ! [*] Flag added at CDS, see "History" section below
integer*4 Nobs (nr__) ! Number of ADBS detections
integer*4 RAh (nr__) ! (h) Right ascension (J2000)
integer*4 RAm (nr__) ! (min) Right ascension (J2000)
real*4 RAs (nr__) ! (s) Right ascension (J2000)
character*1 DE_ (nr__) ! Declination sign (J2000)
integer*4 DEd (nr__) ! (deg) Declination (J2000)
integer*4 DEm (nr__) ! (arcmin) Declination (J2000)
real*4 DEs (nr__) ! (arcsec) Declination (J2000)
real*4 rms1 (nr__) ! (mJy) rms of first source's detection spectra
real*4 rms2 (nr__) ! (mJy) ? rms of second source's detection spectra
real*4 AFlx (nr__) ! (Jy.km/s) ? Arecibo flux (21cm)
character*1 n_AFlx (nr__) ! [j] Note on AFlx (2)
real*8 ADV20 (nr__) ! (km/s) ? Arecibo measured velocity width at 20% of peak
real*8 ADV50 (nr__) ! (km/s) ? Arecibo measured velocity width at 50% of peak
real*8 AHV (nr__) ! (km/s) ? Arecibo heliocentric corrected center velocity
real*8 VFlx (nr__) ! (Jy.km/s) ? VLA flux
real*8 VDV50 (nr__) ! (km/s) ? VLA measured velocity width at 50% of peak
real*8 VHV (nr__) ! (km/s) ? VLA heliocentric corrected center velocity
*Note (2): Individual note:
* j: NGC 4294 was not distinguished from NGC 4299 in the original detection
* lists, although both were visible, so the "DECscan" position was between
* the two. The flux, line width, and velocity values listed here are from
* Helou, Hoffman, & Salpeter, 1984ApJS...55..433H.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Optical Source Information
integer*4 nr__1
parameter (nr__1=265) ! Number of records
character*83 ar__1 ! Full-size record
character*11 ADBS_1 (nr__1) ! Name (ADBS JHHMMSS+DDMM in Simbad)
character*22 Names (nr__1) ! Optical names
character*1 n_Names (nr__1) ! [bdefg] Note on Names (2)
real*8 GLON (nr__1) ! (deg) Galactic longitude
real*8 GLAT (nr__1) ! (deg) Galactic latitude
real*4 AV (nr__1) ! (mag) Reddening in V band
real*8 Diam (nr__1) ! (arcsec) ? Diameter (1)
character*1 n_Diam (nr__1) ! [c] Note on Diam (2)
real*4 Ell (nr__1) ! ? Ellipticity (1)
real*8 PA (nr__1) ! (deg) [-90/90]? Position angle (1)
*Note (1): Diameter, ellipticity, and position angle determined by
* SExtractor on DSS images.
*Note (2): Individual notes:
* b: Interacting galaxies for which we estimate the size of the whole system
* by eye.
* c: POSS I image used because POSS II image was not available.
* d: This detection might be associated with UGC 3376, but it is not clear.
* e: SExtractor was unable to fit this galaxy so the UGC value was used.
* f: This H I detection is far from the center of M64, but it lies along the
* major axis and the VLA map shows an elliptical structure aligned with
* the major axis. This is is probably a detection of an extremely extended
* H I envelope around M64. The M64 parameters given are the UGC values.
* g: There is probably a second source slightly blended with this one at the
* same right ascension, but at a higher declination. It is hard to
* discern how much this other source contributed to the actual detection
* and if it could have been detected independently.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Sources Without an Identified Optical Counterpart
integer*4 nr__2
parameter (nr__2=22) ! Number of records
character*96 ar__2 ! Full-size record
character*11 ADBS_2 (nr__2) ! Name (ADBS JHHMMSS+DDMM in Simbad)
real*8 GLAT_1 (nr__2) ! (deg) Galactic longitude
real*4 AV_1 (nr__2) ! (mag) Reddening in V band
character*7 Plate (nr__2) ! POSS plate (I or II) examined
character*60 Com (nr__2) ! Comments
C=============================================================================
C Loading file 'table2.dat' ! Galaxy Detection Data
C Format for file interpretation
1 format(
+ A11,A1,I1,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,F4.1,1X,F4.2,
+ 1X,F4.2,1X,F6.3,A1,1X,F7.3,1X,F7.3,1X,F8.3,1X,F7.3,1X,F7.3,1X,
+ F8.3)
C Effective file loading
open(unit=1,file='table2.dat', status='old')
write(6,*) '....Loading file: table2.dat'
do i__=1,265
read(1,'(A104)')ar__
read(ar__,1)
+ ADBS(i__),f_ADBS(i__),Nobs(i__),RAh(i__),RAm(i__),RAs(i__),
+ DE_(i__),DEd(i__),DEm(i__),DEs(i__),rms1(i__),rms2(i__),
+ AFlx(i__),n_AFlx(i__),ADV20(i__),ADV50(i__),AHV(i__),
+ VFlx(i__),VDV50(i__),VHV(i__)
if(ar__(43:46) .EQ. '') rms2(i__) = rNULL__
if(ar__(48:53) .EQ. '') AFlx(i__) = rNULL__
if(ar__(56:62) .EQ. '') ADV20(i__) = rNULL__
if(ar__(64:70) .EQ. '') ADV50(i__) = rNULL__
if(ar__(72:79) .EQ. '') AHV(i__) = rNULL__
if(ar__(81:87) .EQ. '') VFlx(i__) = rNULL__
if(ar__(89:95) .EQ. '') VDV50(i__) = rNULL__
if(ar__(97:104) .EQ. '') VHV(i__) = rNULL__
c Derive coordinates RA_ and Dec from input data
c (RA_ and Dec are set to rNULL_ when unknown)
RA_(i__) = RAh(i__)
if(RAh(i__) .GE. 0) RA_(i__)=RAh(i__)*15.
if(RAm(i__) .GE. 0) RA_(i__)=RA_(i__)+RAm(i__)/4.
if(RAs(i__) .GE. 0) RA_(i__)=RA_(i__)+RAs(i__)/240.
Dec(i__) = DEd(i__)
if(DEm(i__) .GE. 0) Dec(i__)=Dec(i__)+DEm(i__)/60.
if(DEs(i__) .GE. 0) Dec(i__)=Dec(i__)+DEs(i__)/3600.
if(DE_(i__).EQ.'-'.AND.Dec(i__).GE.0) Dec(i__)=-Dec(i__)
c ..............Just test output...........
write(6,1)
+ ADBS(i__),f_ADBS(i__),Nobs(i__),RAh(i__),RAm(i__),RAs(i__),
+ DE_(i__),DEd(i__),DEm(i__),DEs(i__),rms1(i__),rms2(i__),
+ AFlx(i__),n_AFlx(i__),ADV20(i__),ADV50(i__),AHV(i__),
+ VFlx(i__),VDV50(i__),VHV(i__)
write(6,'(6H Pos: 2F8.4)') RA_(i__),Dec(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Optical Source Information
C Format for file interpretation
2 format(
+ A11,1X,A22,A1,1X,F8.4,1X,F8.4,1X,F6.3,1X,F7.3,A1,1X,F5.3,1X,
+ F7.3)
C Effective file loading
open(unit=1,file='table3.dat', status='old')
write(6,*) '....Loading file: table3.dat'
do i__=1,265
read(1,'(A83)')ar__1
read(ar__1,2)
+ ADBS_1(i__),Names(i__),n_Names(i__),GLON(i__),GLAT(i__),
+ AV(i__),Diam(i__),n_Diam(i__),Ell(i__),PA(i__)
if(ar__1(62:68) .EQ. '') Diam(i__) = rNULL__
if(ar__1(71:75) .EQ. '') Ell(i__) = rNULL__
if(ar__1(77:83) .EQ. '') PA(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ ADBS_1(i__),Names(i__),n_Names(i__),GLON(i__),GLAT(i__),
+ AV(i__),Diam(i__),n_Diam(i__),Ell(i__),PA(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Sources Without an Identified Optical Counterpart
C Format for file interpretation
3 format(A11,1X,F8.4,1X,F6.3,1X,A7,1X,A60)
C Effective file loading
open(unit=1,file='table4.dat', status='old')
write(6,*) '....Loading file: table4.dat'
do i__=1,22
read(1,'(A96)')ar__2
read(ar__2,3)
+ ADBS_2(i__),GLAT_1(i__),AV_1(i__),Plate(i__),Com(i__)
c ..............Just test output...........
write(6,3)
+ ADBS_2(i__),GLAT_1(i__),AV_1(i__),Plate(i__),Com(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end