Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/131/105 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 2024-Apr-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__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/A+AS/131/105 NGC 6221 ionized gas kinematics (Vega Beltran+ 1998)
*================================================================================
*Mixed early and late-type properties in the bar of NGC 6221:
*evidence for evolution along the Hubble sequence?
* Vega Beltran J.C., Zeilinger W.W., Amico P., Schultheis M.,
* Corsini E.M., Funes J.G., Beckman J., Bertola F.
* <Astron. Astrophys. Suppl. Ser. 131, 105 (1998)>
* =1998A&AS..131..105V (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Stellar kinematics for PA: 5, 50, 95, 125 & 155{deg}
integer*4 nr__
parameter (nr__=51) ! Number of records
character*68 ar__ ! Full-size record
integer*4 PA (nr__) ! (deg) Position angle
real*4 Rad (nr__) ! (arcsec) [-90/90] Radius
integer*4 Vel (nr__) ! (km/s) Velocity
integer*4 e_Vel (nr__) ! (km/s) Velocity error
integer*4 sigmaVel (nr__) ! (km/s) Velocity dispersion
integer*4 e_sigmaVel (nr__) ! (km/s) Velocity dispersion error
real*4 h3 (nr__) ! h_3_ Gauss-Hermite coefficient
real*4 e_h3 (nr__) ! h_3_ Gauss-Hermite coefficient error
real*4 h4 (nr__) ! h_4_ Gauss-Hermite coefficient
real*4 e_h4 (nr__) ! h_4_ Gauss-Hermite coefficient error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Ionized gas kinematics for PA=5 (Major Axis)
integer*4 nr__1
parameter (nr__1=55) ! Number of records
character*71 ar__1 ! Full-size record
real*4 Rad_1 (nr__1) ! (arcsec) [-90/90] Radius
integer*4 HVHa (nr__1) ! (km/s) H{alpha} observed heliocentric velocity
integer*4 e_HVHa (nr__1) ! (km/s) H{alpha} observed heliocentric velocity error
integer*4 sigmaHVHa (nr__1) ! (km/s) H{alpha} velocity dispersion
integer*4 HVNII (nr__1) ! (km/s) Observed [NII] heliocentric velocity
integer*4 e_HVNII (nr__1) ! (km/s) Observed [NII] heliocentric velocity error
integer*4 sigmaHVNII (nr__1) ! (km/s) velocity dispersion of [NII]
real*4 v_NII__Ha (nr__1) ! Flux ratio [NII]/H{alpha}
integer*4 HV (nr__1) ! (km/s) Averaged ionized gas heliocentric velocity
integer*4 e_HV (nr__1) ! (km/s) Averaged ionized gas velocity error
integer*4 sigmaHV (nr__1) ! (km/s) Averaged velocity dispersion
integer*4 e_sigmaHV (nr__1) ! (km/s) Averaged velocity dispersion error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Ionized gas kinematics for PA=50
integer*4 nr__2
parameter (nr__2=108) ! Number of records
character*71 ar__2 ! Full-size record
real*4 Rad_2 (nr__2) ! (arcsec) [-90/90] Radius
integer*4 HVHa_1 (nr__2) ! (km/s) H{alpha} observed heliocentric velocity
integer*4 e_HVHa_1 (nr__2) ! (km/s) H{alpha} observed heliocentric velocity error
integer*4 sigmaHVHa_1(nr__2) ! (km/s) H{alpha} velocity dispersion
integer*4 HVNII_1 (nr__2) ! (km/s) Observed [NII] heliocentric velocity
integer*4 e_HVNII_1 (nr__2) ! (km/s) Observed [NII] heliocentric velocity error
integer*4 sigmaHVNII_1(nr__2) ! (km/s) velocity dispersion of [NII]
real*4 v_NII__Ha_1(nr__2) ! Flux ratio [NII]/H{alpha}
integer*4 HV_1 (nr__2) ! (km/s) Averaged ionized gas heliocentric velocity
integer*4 e_HV_1 (nr__2) ! (km/s) Averaged ionized gas velocity error
integer*4 sigmaHV_1 (nr__2) ! (km/s) Averaged velocity dispersion
integer*4 e_sigmaHV_1(nr__2) ! (km/s) Averaged velocity dispersion error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Ionized gas kinematics for PA=95 (Minor Axis)
integer*4 nr__3
parameter (nr__3=122) ! Number of records
character*71 ar__3 ! Full-size record
real*4 Rad_3 (nr__3) ! (arcsec) [-90/90] Radius
integer*4 HVHa_2 (nr__3) ! (km/s) H{alpha} observed heliocentric velocity
integer*4 e_HVHa_2 (nr__3) ! (km/s) H{alpha} observed heliocentric velocity error
integer*4 sigmaHVHa_2(nr__3) ! (km/s) H{alpha} velocity dispersion
integer*4 HVNII_2 (nr__3) ! (km/s) Observed [NII] heliocentric velocity
integer*4 e_HVNII_2 (nr__3) ! (km/s) Observed [NII] heliocentric velocity error
integer*4 sigmaHVNII_2(nr__3) ! (km/s) velocity dispersion of [NII]
real*4 v_NII__Ha_2(nr__3) ! Flux ratio [NII]/H{alpha}
integer*4 HV_2 (nr__3) ! (km/s) Averaged ionized gas heliocentric velocity
integer*4 e_HV_2 (nr__3) ! (km/s) Averaged ionized gas velocity error
integer*4 sigmaHV_2 (nr__3) ! (km/s) Averaged velocity dispersion
integer*4 e_sigmaHV_2(nr__3) ! (km/s) Averaged velocity dispersion error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Ionized gas kinematics for PA=125 (Bar Major Axis)
integer*4 nr__4
parameter (nr__4=81) ! Number of records
character*71 ar__4 ! Full-size record
real*4 Rad_4 (nr__4) ! (arcsec) [-90/90] Radius
integer*4 HVHa_3 (nr__4) ! (km/s) H{alpha} observed heliocentric velocity
integer*4 e_HVHa_3 (nr__4) ! (km/s) H{alpha} observed heliocentric velocity error
integer*4 sigmaHVHa_3(nr__4) ! (km/s) H{alpha} velocity dispersion
integer*4 HVNII_3 (nr__4) ! (km/s) Observed [NII] heliocentric velocity
integer*4 e_HVNII_3 (nr__4) ! (km/s) Observed [NII] heliocentric velocity error
integer*4 sigmaHVNII_3(nr__4) ! (km/s) velocity dispersion of [NII]
real*4 v_NII__Ha_3(nr__4) ! Flux ratio [NII]/H{alpha}
integer*4 HV_3 (nr__4) ! (km/s) Averaged ionized gas heliocentric velocity
integer*4 e_HV_3 (nr__4) ! (km/s) Averaged ionized gas velocity error
integer*4 sigmaHV_3 (nr__4) ! (km/s) Averaged velocity dispersion
integer*4 e_sigmaHV_3(nr__4) ! (km/s) Averaged velocity dispersion error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Ionized gas kinematics for PA=155
integer*4 nr__5
parameter (nr__5=78) ! Number of records
character*71 ar__5 ! Full-size record
real*4 Rad_5 (nr__5) ! (arcsec) [-90/90] Radius
integer*4 HVHa_4 (nr__5) ! (km/s) H{alpha} observed heliocentric velocity
integer*4 e_HVHa_4 (nr__5) ! (km/s) H{alpha} observed heliocentric velocity error
integer*4 sigmaHVHa_4(nr__5) ! (km/s) H{alpha} velocity dispersion
integer*4 HVNII_4 (nr__5) ! (km/s) Observed [NII] heliocentric velocity
integer*4 e_HVNII_4 (nr__5) ! (km/s) Observed [NII] heliocentric velocity error
integer*4 sigmaHVNII_4(nr__5) ! (km/s) velocity dispersion of [NII]
real*4 v_NII__Ha_4(nr__5) ! Flux ratio [NII]/H{alpha}
integer*4 HV_4 (nr__5) ! (km/s) Averaged ionized gas heliocentric velocity
integer*4 e_HV_4 (nr__5) ! (km/s) Averaged ionized gas velocity error
integer*4 sigmaHV_4 (nr__5) ! (km/s) Averaged velocity dispersion
integer*4 e_sigmaHV_4(nr__5) ! (km/s) Averaged velocity dispersion error
C=============================================================================
C Loading file 'table3.dat' ! Stellar kinematics for PA: 5, 50, 95, 125 & 155{deg}
C Format for file interpretation
1 format(
+ I3,2X,F5.1,4X,I4,3X,I2,3X,I3,2X,I2,4X,F6.3,2X,F5.3,4X,F6.3,2X,
+ F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,51
read(1,'(A68)')ar__
read(ar__,1)
+ PA(i__),Rad(i__),Vel(i__),e_Vel(i__),sigmaVel(i__),
+ e_sigmaVel(i__),h3(i__),e_h3(i__),h4(i__),e_h4(i__)
c ..............Just test output...........
write(6,1)
+ PA(i__),Rad(i__),Vel(i__),e_Vel(i__),sigmaVel(i__),
+ e_sigmaVel(i__),h3(i__),e_h3(i__),h4(i__),e_h4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Ionized gas kinematics for PA=5 (Major Axis)
C Format for file interpretation
2 format(
+ F5.1,3X,I4,3X,I2,3X,I3,4X,I4,3X,I2,3X,I3,3X,F4.2,3X,I4,3X,I2,
+ 3X,I3,2X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,55
read(1,'(A71)')ar__1
read(ar__1,2)
+ Rad_1(i__),HVHa(i__),e_HVHa(i__),sigmaHVHa(i__),HVNII(i__),
+ e_HVNII(i__),sigmaHVNII(i__),v_NII__Ha(i__),HV(i__),e_HV(i__),
+ sigmaHV(i__),e_sigmaHV(i__)
c ..............Just test output...........
write(6,2)
+ Rad_1(i__),HVHa(i__),e_HVHa(i__),sigmaHVHa(i__),HVNII(i__),
+ e_HVNII(i__),sigmaHVNII(i__),v_NII__Ha(i__),HV(i__),e_HV(i__),
+ sigmaHV(i__),e_sigmaHV(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Ionized gas kinematics for PA=50
C Format for file interpretation
3 format(
+ F5.1,3X,I4,3X,I2,3X,I3,4X,I4,3X,I2,3X,I3,3X,F4.2,3X,I4,3X,I2,
+ 3X,I3,2X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,108
read(1,'(A71)')ar__2
read(ar__2,3)
+ Rad_2(i__),HVHa_1(i__),e_HVHa_1(i__),sigmaHVHa_1(i__),
+ HVNII_1(i__),e_HVNII_1(i__),sigmaHVNII_1(i__),
+ v_NII__Ha_1(i__),HV_1(i__),e_HV_1(i__),sigmaHV_1(i__),
+ e_sigmaHV_1(i__)
c ..............Just test output...........
write(6,3)
+ Rad_2(i__),HVHa_1(i__),e_HVHa_1(i__),sigmaHVHa_1(i__),
+ HVNII_1(i__),e_HVNII_1(i__),sigmaHVNII_1(i__),
+ v_NII__Ha_1(i__),HV_1(i__),e_HV_1(i__),sigmaHV_1(i__),
+ e_sigmaHV_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Ionized gas kinematics for PA=95 (Minor Axis)
C Format for file interpretation
4 format(
+ F5.1,3X,I4,3X,I2,3X,I3,4X,I4,3X,I2,3X,I3,3X,F4.2,3X,I4,3X,I2,
+ 3X,I3,2X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,122
read(1,'(A71)')ar__3
read(ar__3,4)
+ Rad_3(i__),HVHa_2(i__),e_HVHa_2(i__),sigmaHVHa_2(i__),
+ HVNII_2(i__),e_HVNII_2(i__),sigmaHVNII_2(i__),
+ v_NII__Ha_2(i__),HV_2(i__),e_HV_2(i__),sigmaHV_2(i__),
+ e_sigmaHV_2(i__)
c ..............Just test output...........
write(6,4)
+ Rad_3(i__),HVHa_2(i__),e_HVHa_2(i__),sigmaHVHa_2(i__),
+ HVNII_2(i__),e_HVNII_2(i__),sigmaHVNII_2(i__),
+ v_NII__Ha_2(i__),HV_2(i__),e_HV_2(i__),sigmaHV_2(i__),
+ e_sigmaHV_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Ionized gas kinematics for PA=125 (Bar Major Axis)
C Format for file interpretation
5 format(
+ F5.1,3X,I4,3X,I2,3X,I3,4X,I4,3X,I2,3X,I3,3X,F4.2,3X,I4,3X,I2,
+ 3X,I3,2X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,81
read(1,'(A71)')ar__4
read(ar__4,5)
+ Rad_4(i__),HVHa_3(i__),e_HVHa_3(i__),sigmaHVHa_3(i__),
+ HVNII_3(i__),e_HVNII_3(i__),sigmaHVNII_3(i__),
+ v_NII__Ha_3(i__),HV_3(i__),e_HV_3(i__),sigmaHV_3(i__),
+ e_sigmaHV_3(i__)
c ..............Just test output...........
write(6,5)
+ Rad_4(i__),HVHa_3(i__),e_HVHa_3(i__),sigmaHVHa_3(i__),
+ HVNII_3(i__),e_HVNII_3(i__),sigmaHVNII_3(i__),
+ v_NII__Ha_3(i__),HV_3(i__),e_HV_3(i__),sigmaHV_3(i__),
+ e_sigmaHV_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Ionized gas kinematics for PA=155
C Format for file interpretation
6 format(
+ F5.1,3X,I4,3X,I2,3X,I3,4X,I4,3X,I2,3X,I3,3X,F4.2,3X,I4,3X,I2,
+ 3X,I3,2X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,78
read(1,'(A71)')ar__5
read(ar__5,6)
+ Rad_5(i__),HVHa_4(i__),e_HVHa_4(i__),sigmaHVHa_4(i__),
+ HVNII_4(i__),e_HVNII_4(i__),sigmaHVNII_4(i__),
+ v_NII__Ha_4(i__),HV_4(i__),e_HV_4(i__),sigmaHV_4(i__),
+ e_sigmaHV_4(i__)
c ..............Just test output...........
write(6,6)
+ Rad_5(i__),HVHa_4(i__),e_HVHa_4(i__),sigmaHVHa_4(i__),
+ HVNII_4(i__),e_HVNII_4(i__),sigmaHVNII_4(i__),
+ v_NII__Ha_4(i__),HV_4(i__),e_HV_4(i__),sigmaHV_4(i__),
+ e_sigmaHV_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end