Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/112/1803 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 2024-Apr-20
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/112/1803 Large Scale Structure (Marzke+ 1996)
*================================================================================
*Large-Scale Structure at Low Galactic Latitude
* Marzke R.O., Huchra J.P., Geller M.J.
* <Astron. J. 112, 1803 (1996)>
* =1996AJ....112.1803M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! The Galactic Plane Survey [B(0)<=15.5]
integer*4 nr__
parameter (nr__=1664) ! Number of records
character*97 ar__ ! Full-size record
C 1950 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension 1950
real*8 DEdeg ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
character*11 Name ! Source name
character*1 Note ! [*] indicates a note in file "notes.dat"
integer*4 RAh ! (h) Right Ascension (1950)
integer*4 RAm ! (min) Right Ascension (1950)
real*4 RAs ! (s) Right Ascension (1950)
character*1 DE_ ! Sign, Declination
integer*4 DEd ! (deg) Declination (1950)
integer*4 DEm ! (arcmin) Declination (1950)
integer*4 DEs ! (arcsec) Declination (1950)
real*4 m_zw ! (mag) Zwicky B(0) magnitude
character*1 r_m_zw ! *Source code for m(zw) (if not from CGCG)
integer*4 HRV ! (km/s) ? Heliocentric radial velocity, cz
integer*4 e_HRV ! (km/s) ? Error in HRV
character*4 r_HRV ! Redshift source code (see refs.dat)
character*2 Morph ! *Morphological type
character*1 Bar ! *Bar type
character*1 Lum ! *Luminosity class
character*1 Pec ! *Peculiarities
real*4 D1 ! (arcmin) ? Major axis diameter
real*4 D2 ! (arcmin) ? Minor axis diameter
character*6 UGC ! UGC (Cat. VII/26>) number
character*9 Comments ! *Comments & references to other catalogues
*Note on r_m(zw):
* Source code for magnitude if not from CGCG. "H" refers to magnitudes
* split by eye by JPH; "K" refers to magnitudes from Kirshner et al.
* (1978, Cat. <J/AJ/83/1549>; 1983, <J/AJ/88/1285>).
*Note on Morph:
* Morphological types are de Vaucouleurs' T types from the RC2, Uppsala Catalog
* and the Revised Shapley-Ames Catalog. Some additional types have been defined
* for peculiar and untyped objects and for objects that are in catalogues of
* extragalactic objects but are really galactic in nature.
* Additional types for galaxies in the CfA Redshift Survey region (described
* below) have been estimated by J. Huchra from glass copies of the Palomar Sky
* Survey.
* Types for southern galaxies come from both the ESO catalog and the
* Vorontsov-Velyaminov Catalogs.
*
* Morphological types codes are:
* -7 Elliptical (Unclassified)
* -6 Compact Elliptical
* -5 E, and dwarf E
* -4 E/S0
* -3 L-, SO-
* -2 L, SO
* -1 L+, SO+
* 0 SO/a, SO-a
* 1 Sa
* 2 Sab
* 3 Sb
* 4 Sbc
* 5 Sc
* 6 Scd
* 7 Sd
* 8 Sdm
* 9 Sm, Magellanic Spiral
* 10 Im, Irr I, Magellanic Irregular, Dwarf Irregular
* 11 Compact Irregular, Extragalactic HII Region
* 15 Peculiar, Unclassifiable
* 16 Irr II
* 20 S..., Sc-Irr, Unclassified Spiral
* 25 Plate Flaw, Star, etc. misclassified as galaxy
* 33 Reflection Nebula, misclassified as galaxy
* 32 HII Region misclassified as galaxy
* 30 Planetary Nebula, misclassified as galaxy
* 40 Part of a galaxy, e.g. a bright HII region like N5471
*Note on Bar:
* A unbarred
* X mixed type
* B barred
*Note on Lum:
* Luminosity Classes (for Spirals and Irregulars)
* 1 I 6 III-IV
* 2 I-II 7 IV
* 3 II 8 IV-V
* 4 II-III 9 V
* 5 III
*Note on Pec:
* P = Peculiar
* S = No inner ring
* R = Ringed (outer)
* T = Pseudo inner ring
* D = Double or Multiple
*Note on Comments:
* If the comment is "See Notes," then there is a note about a superposed
* star in the corresponding notes file.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! The Galactic Plane Survey [B(0)>=15.5]
integer*4 nr__1
parameter (nr__1=356) ! Number of records
character*97 ar__1 ! Full-size record
C 1950 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_1 ! (deg) Right Ascension 1950
real*8 DEdeg_1 ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
character*11 Name_1 ! Source name
character*1 Note_1 ! [*] indicates a note in file "notes.dat"
integer*4 RAh_1 ! (h) Right Ascension (1950)
integer*4 RAm_1 ! (min) Right Ascension (1950)
real*4 RAs_1 ! (s) Right Ascension (1950)
character*1 DE__1 ! Sign, Declination
integer*4 DEd_1 ! (deg) Declination (1950)
integer*4 DEm_1 ! (arcmin) Declination (1950)
integer*4 DEs_1 ! (arcsec) Declination (1950)
real*4 m_zw_1 ! (mag) Zwicky B(0) magnitude
character*1 r_m_zw_1 ! *Source code for m(zw) (if not from CGCG)
integer*4 HRV_1 ! (km/s) ? Heliocentric radial velocity, cz
integer*4 e_HRV_1 ! (km/s) ? Error in HRV
character*4 r_HRV_1 ! Redshift source code (see refs.dat)
character*2 Morph_1 ! *Morphological type
character*1 Bar_1 ! *Bar type
character*1 Lum_1 ! *Luminosity class
character*1 Pec_1 ! *Peculiarities
real*4 D1_1 ! (arcmin) ? Major axis diameter
real*4 D2_1 ! (arcmin) ? Minor axis diameter
character*6 UGC_1 ! UGC (Cat. VII/26>) number
character*9 Comments_1 ! *Comments & references to other catalogues
*Note on r_m(zw):
* Source code for magnitude if not from CGCG. "H" refers to magnitudes
* split by eye by JPH; "K" refers to magnitudes from Kirshner et al.
* (1978, Cat. <J/AJ/83/1549>; 1983, <J/AJ/88/1285>).
*Note on Morph:
* Morphological types are de Vaucouleurs' T types from the RC2, Uppsala Catalog
* and the Revised Shapley-Ames Catalog. Some additional types have been defined
* for peculiar and untyped objects and for objects that are in catalogues of
* extragalactic objects but are really galactic in nature.
* Additional types for galaxies in the CfA Redshift Survey region (described
* below) have been estimated by J. Huchra from glass copies of the Palomar Sky
* Survey.
* Types for southern galaxies come from both the ESO catalog and the
* Vorontsov-Velyaminov Catalogs.
*
* Morphological types codes are:
* -7 Elliptical (Unclassified)
* -6 Compact Elliptical
* -5 E, and dwarf E
* -4 E/S0
* -3 L-, SO-
* -2 L, SO
* -1 L+, SO+
* 0 SO/a, SO-a
* 1 Sa
* 2 Sab
* 3 Sb
* 4 Sbc
* 5 Sc
* 6 Scd
* 7 Sd
* 8 Sdm
* 9 Sm, Magellanic Spiral
* 10 Im, Irr I, Magellanic Irregular, Dwarf Irregular
* 11 Compact Irregular, Extragalactic HII Region
* 15 Peculiar, Unclassifiable
* 16 Irr II
* 20 S..., Sc-Irr, Unclassified Spiral
* 25 Plate Flaw, Star, etc. misclassified as galaxy
* 33 Reflection Nebula, misclassified as galaxy
* 32 HII Region misclassified as galaxy
* 30 Planetary Nebula, misclassified as galaxy
* 40 Part of a galaxy, e.g. a bright HII region like N5471
*Note on Bar:
* A unbarred
* X mixed type
* B barred
*Note on Lum:
* Luminosity Classes (for Spirals and Irregulars)
* 1 I 6 III-IV
* 2 I-II 7 IV
* 3 II 8 IV-V
* 4 II-III 9 V
* 5 III
*Note on Pec:
* P = Peculiar
* S = No inner ring
* R = Ringed (outer)
* T = Pseudo inner ring
* D = Double or Multiple
*Note on Comments:
* If the comment is "See Notes," then there is a note about a superposed
* star in the corresponding notes file.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'notes.dat' ! Notes to tables 1 and 2
integer*4 nr__2
parameter (nr__2=78) ! Number of records
character*38 ar__2 ! Full-size record
character*11 Name_2 ! Source name
character*24 Note_2 ! Superposed star(s) name(s) or other note
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! Velocity sources (Table 3)
integer*4 nr__3
parameter (nr__3=72) ! Number of records
character*182 ar__3 ! Full-size record
character*4 Source ! Redshift source code
character*175 Reference ! Reference to redshift source
C=============================================================================
C Loading file 'table1.dat' ! The Galactic Plane Survey [B(0)<=15.5]
C Format for file interpretation
1 format(
+ A11,A1,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,F6.2,A1,1X,I6,
+ 1X,I4,2X,A4,2X,A2,1X,A1,1X,A1,1X,A1,1X,F5.1,1X,F4.1,1X,A6,2X,
+ A9)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,1664
read(1,'(A97)')ar__
read(ar__,1)
+ Name,Note,RAh,RAm,RAs,DE_,DEd,DEm,DEs,m_zw,r_m_zw,HRV,e_HRV,
+ r_HRV,Morph,Bar,Lum,Pec,D1,D2,UGC,Comments
if(ar__(42:47) .EQ. '') HRV = iNULL__
if(ar__(49:52) .EQ. '') e_HRV = iNULL__
if(ar__(70:74) .EQ. '') D1 = rNULL__
if(ar__(76:79) .EQ. '') D2 = rNULL__
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ Name,Note,RAh,RAm,RAs,DE_,DEd,DEm,DEs,m_zw,r_m_zw,HRV,e_HRV,
+ r_HRV,Morph,Bar,Lum,Pec,D1,D2,UGC,Comments
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! The Galactic Plane Survey [B(0)>=15.5]
C Format for file interpretation
2 format(
+ A11,A1,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,F6.2,A1,1X,I6,
+ 1X,I4,2X,A4,2X,A2,1X,A1,1X,A1,1X,A1,1X,F5.1,1X,F4.1,1X,A6,2X,
+ A9)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,356
read(1,'(A97)')ar__1
read(ar__1,2)
+ Name_1,Note_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,
+ m_zw_1,r_m_zw_1,HRV_1,e_HRV_1,r_HRV_1,Morph_1,Bar_1,Lum_1,
+ Pec_1,D1_1,D2_1,UGC_1,Comments_1
if(ar__1(42:47) .EQ. '') HRV_1 = iNULL__
if(ar__1(49:52) .EQ. '') e_HRV_1 = iNULL__
if(ar__1(70:74) .EQ. '') D1_1 = rNULL__
if(ar__1(76:79) .EQ. '') D2_1 = rNULL__
RAdeg_1 = rNULL__
DEdeg_1 = rNULL__
c Derive coordinates RAdeg_1 and DEdeg_1 from input data
c (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown)
if(RAh_1 .GT. -180) RAdeg_1=RAh_1*15.
if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4.
if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240.
if(DEd_1 .GE. 0) DEdeg_1=DEd_1
if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60.
if(DEs_1 .GE. 0) DEdeg_1=DEdeg_1+DEs_1/3600.
if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1
c ..............Just test output...........
write(6,2)
+ Name_1,Note_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,
+ m_zw_1,r_m_zw_1,HRV_1,e_HRV_1,r_HRV_1,Morph_1,Bar_1,Lum_1,
+ Pec_1,D1_1,D2_1,UGC_1,Comments_1
write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'notes.dat' ! Notes to tables 1 and 2
C Format for file interpretation
3 format(A11,3X,A24)
C Effective file loading
open(unit=1,status='old',file=
+'notes.dat')
write(6,*) '....Loading file: notes.dat'
do i__=1,78
read(1,'(A38)')ar__2
read(ar__2,3)Name_2,Note_2
c ..............Just test output...........
write(6,3)Name_2,Note_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! Velocity sources (Table 3)
C Format for file interpretation
4 format(A4,3X,A175)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,72
read(1,'(A182)')ar__3
read(ar__3,4)Source,Reference
c ..............Just test output...........
write(6,4)Source,Reference
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end