Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/722/367 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/ApJ/722/367 HI clouds in Quadrant I of the Milky Way (Ford+, 2010) *================================================================================ *Milky Way disk-halo transition in H I: properties of the cloud population. * Ford H.A., Lockman F.J., McClure-Griffiths N.M. * <Astrophys. J., 722, 367-379 (2010)> * =2010ApJ...722..367F C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Observed properties of tangent point HI clouds in the Quadrant I region integer*4 nr__ parameter (nr__=255) ! Number of records character*61 ar__ ! Full-size record C Position composed of: GLON GLAT real*4 GLON (nr__) ! (deg) Galactic longitude real*4 GLAT (nr__) ! (deg) Galactic latitude real*4 VLSR (nr__) ! (km/s) Local Standard of Rest velocity real*4 e_VLSR (nr__) ! (km/s) Uncertainty in VLSR real*4 Tpk (nr__) ! (K) Peak brightness temperature (uncertainties * are 0.07K) real*4 DelV (nr__) ! (km/s) FWHM of velocity profile {Delta}V real*4 e_DelV (nr__) ! (km/s) Uncertainty in DelV real*4 NHI (nr__) ! (10+19cm-2) HI column density peak real*4 e_NHI (nr__) ! (10+19cm-2) Uncertainty in NHI integer*4 bmin (nr__) ! (arcmin) Angular extent minor axis (1) integer*4 bmaj (nr__) ! (arcmin) Angular extent major axis (1) real*4 MHI_D2 (nr__) ! (Msun/kpc2) HI surface density (mass divided by * squared distance) (2) *Note (1): Uncertainties in the maximum angular extents are dominated by * background levels surrounding the cloud and are assumed to be 25% of * the estimated values. *Note (2): Mass uncertainties are dominated by the interactive process used in * mass determination and are assumed to be 40% of the estimated values. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Derived properties of tangent point HI clouds in the Quadrant I region integer*4 nr__1 parameter (nr__1=255) ! Number of records character*76 ar__1 ! Full-size record C Position composed of: GLON GLAT real*4 GLON_1 (nr__1) ! (deg) Galactic longitude real*4 GLAT_1 (nr__1) ! (deg) Galactic latitude real*4 VLSR_1 (nr__1) ! (km/s) Local Standard of Rest velocity real*4 e_VLSR_1 (nr__1) ! (km/s) Uncertainty in VLSR real*4 Vdev (nr__1) ! (km/s) Deviation velocity real*4 e_Vdev (nr__1) ! (km/s) Uncertainty in Vdev real*4 Dist (nr__1) ! (kpc) Heliocentric distance real*4 e_Dist (nr__1) ! (kpc) Uncertainy in Dist real*4 R (nr__1) ! (kpc) Galactocentric radius real*4 E_R (nr__1) ! (kpc) Upper limit uncertainty in R (1) real*4 Z (nr__1) ! (kpc) Height from the Galactic plane real*4 e_Z (nr__1) ! (kpc) Uncertainty in Z integer*4 Rad (nr__1) ! (pc) Radius of HI cloud integer*4 e_Rad (nr__1) ! (pc) Uncertainty in Rad integer*4 MHI (nr__1) ! (Msun) Physical HI mass integer*4 e_MHI (nr__1) ! (Msun) Uncertainty in MHI *Note (1): Along a given line of sight, the smallest Galactocentric radius * possible is at the tangent point. If the cloud is not located at the * tangent point it must be farther away from the center and the error * on R must be positive. C============================================================================= C Loading file 'table1.dat' ! Observed properties of tangent point HI clouds * in the Quadrant I region C Format for file interpretation 1 format( + F5.2,1X,F6.2,1X,F5.1,1X,F4.1,1X,F4.2,1X,F4.1,1X,F4.1,1X,F5.2, + 1X,F4.2,1X,I2,1X,I2,1X,F5.1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,255 read(1,'(A61)')ar__ read(ar__,1) + GLON(i__),GLAT(i__),VLSR(i__),e_VLSR(i__),Tpk(i__),DelV(i__), + e_DelV(i__),NHI(i__),e_NHI(i__),bmin(i__),bmaj(i__), + MHI_D2(i__) c ..............Just test output........... write(6,1) + GLON(i__),GLAT(i__),VLSR(i__),e_VLSR(i__),Tpk(i__),DelV(i__), + e_DelV(i__),NHI(i__),e_NHI(i__),bmin(i__),bmaj(i__), + MHI_D2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Derived properties of tangent point HI clouds * in the Quadrant I region C Format for file interpretation 2 format( + F5.2,1X,F6.2,1X,F5.1,1X,F4.1,1X,F4.1,1X,F4.1,1X,F3.1,1X,F3.1, + 1X,F3.1,1X,F3.1,1X,F5.2,1X,F4.2,1X,I2,1X,I2,1X,I4,1X,I4) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,255 read(1,'(A76)')ar__1 read(ar__1,2) + GLON_1(i__),GLAT_1(i__),VLSR_1(i__),e_VLSR_1(i__),Vdev(i__), + e_Vdev(i__),Dist(i__),e_Dist(i__),R(i__),E_R(i__),Z(i__), + e_Z(i__),Rad(i__),e_Rad(i__),MHI(i__),e_MHI(i__) c ..............Just test output........... write(6,2) + GLON_1(i__),GLAT_1(i__),VLSR_1(i__),e_VLSR_1(i__),Vdev(i__), + e_Vdev(i__),Dist(i__),e_Dist(i__),R(i__),E_R(i__),Z(i__), + e_Z(i__),Rad(i__),e_Rad(i__),MHI(i__),e_MHI(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end