Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/680/349 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/680/349 Galactic distribution of IRDCs (Jackson+, 2008)
*================================================================================
*The galactic distribution of infrared dark clouds.
* Jackson J.M., Finn S.C., Rathborne J.M., Chambers E.T., Simon R.
* <Astrophys. J., 680, 349-361 (2008)>
* =2008ApJ...680..349J
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Fourth-quadrant IRDC cores detected in CS
integer*4 nr__
parameter (nr__=210) ! Number of records
character*69 ar__ ! Full-size record
C Position composed of: GLON GLAT
character*13 MSXDC (nr__) ! IRDC candidate name (GLLL.ll+BB.bb)
character*1 m_MSXDC (nr__) ! [abc] a to c core designation (G1)
real*4 GLON (nr__) ! (deg) Galactic longitude coordinate
real*4 GLAT (nr__) ! (deg) Galactic latitude coordinate
real*4 Peak (nr__) ! Peak contrast (G2)
real*4 TA_p (nr__) ! (K) Antenna temperature peak
real*4 Vel (nr__) ! (km/s) Systemic velocity
real*4 W_CS (nr__) ! (km/s) CS(2-1) line width (97.981GHz)
real*4 Int (nr__) ! (K.km/s) Integrated CS line intensity
real*4 Rgal (nr__) ! (kpc) ? Galactocentric radius
real*4 Dnear (nr__) ! (kpc) ? Near kinematic distance
character*1 Comp (nr__) ! [Y] two velocity components?
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Fourth-quadrant IRDC candidates not detected in CS
integer*4 nr__1
parameter (nr__1=134) ! Number of records
character*33 ar__1 ! Full-size record
C Position composed of: GLON GLAT
character*13 MSXDC_1 (nr__1) ! Cloud name (GLLL.ll+BB.bb)
character*1 m_MSXDC_1 (nr__1) ! [ab] a to b core designation (G1)
real*4 GLON_1 (nr__1) ! (deg) Galactic longitude coordinate
real*4 GLAT_1 (nr__1) ! (deg) Galactic latitude coordinate
real*4 Peak_1 (nr__1) ! Peak contrast (G2)
C=============================================================================
C Loading file 'table1.dat' ! Fourth-quadrant IRDC cores detected in CS
C Format for file interpretation
1 format(
+ A13,1X,A1,1X,F6.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F6.1,1X,F4.1,1X,
+ F5.2,1X,F5.2,1X,F4.2,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,210
read(1,'(A69)')ar__
read(ar__,1)
+ MSXDC(i__),m_MSXDC(i__),GLON(i__),GLAT(i__),Peak(i__),
+ TA_p(i__),Vel(i__),W_CS(i__),Int(i__),Rgal(i__),Dnear(i__),
+ Comp(i__)
if(ar__(58:62) .EQ. '') Rgal(i__) = rNULL__
if(ar__(64:67) .EQ. '') Dnear(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ MSXDC(i__),m_MSXDC(i__),GLON(i__),GLAT(i__),Peak(i__),
+ TA_p(i__),Vel(i__),W_CS(i__),Int(i__),Rgal(i__),Dnear(i__),
+ Comp(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Fourth-quadrant IRDC candidates not detected in CS
C Format for file interpretation
2 format(A13,1X,A1,1X,F6.2,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,134
read(1,'(A33)')ar__1
read(ar__1,2)
+ MSXDC_1(i__),m_MSXDC_1(i__),GLON_1(i__),GLAT_1(i__),
+ Peak_1(i__)
c ..............Just test output...........
write(6,2)
+ MSXDC_1(i__),m_MSXDC_1(i__),GLON_1(i__),GLAT_1(i__),
+ Peak_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end