Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/707/1824 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/707/1824 BLAST Vela sources (Netterfield+, 2009)
*================================================================================
*BLAST: the mass function, lifetimes, and properties of intermediate mass cores
*from a 50 deg^2^ submillimeter galactic survey in Vela (l~265{deg}).
* Netterfield C.B., Ade P.A.R., Bock J.J., Chapin E.L., Devlin M.J.,
* Griffin M., Gundersen J.O., Halpern M., Hargrave P.C., Hughes D.H.,
* Klein J., Marsden G., Martin P.G., Mauskopf P., Olmi L., Pascale E.,
* Patanchon G., Rex M., Roy A., Scott D., Semisch C., Thomas N.,
* Truch M.D.P., Tucker C., Tucker G.S., Viero M.P., Wiebe D.V.
* <Astrophys. J., 707, 1824-1835 (2009)>
* =2009ApJ...707.1824N
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! BLAST Vela sources measured properties
integer*4 nr__
parameter (nr__=1282) ! Number of records
character*80 ar__ ! Full-size record
C Position composed of: GLON GLAT
character*14 BLAST (nr__) ! Source name (JHHMMSS+DDMMSS)
real*8 GLON (nr__) ! (deg) Galactic longitude
real*8 GLAT (nr__) ! (deg) Galactic latitude
real*4 F250 (nr__) ! (Jy) BLAST flux density at 250um
real*4 e_F250 (nr__) ! (Jy) Uncertainty in F250
real*4 F350 (nr__) ! (Jy) BLAST flux density at 350um
real*4 e_F350 (nr__) ! (Jy) Uncertainty in F350
real*4 F500 (nr__) ! (Jy) BLAST flux density at 500um
real*4 e_F500 (nr__) ! (Jy) Uncertainty in F500
real*4 FWHM (nr__) ! (arcsec) Full-Width at Half-Maximum at 250um
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! BLAST Vela sources derived properties
integer*4 nr__1
parameter (nr__1=1282) ! Number of records
character*97 ar__1 ! Full-size record
character*14 BLAST_1 (nr__1) ! Source name (JHHMMSS+DDMMSS)
real*4 T (nr__1) ! (K) Derived temperature
real*4 E_T (nr__1) ! (K) Upper limit uncertainty on T
real*4 e_T_1 (nr__1) ! (K) Lower limit uncertainty on T
real*4 M (nr__1) ! (Msun) Derived mass
real*8 E_M (nr__1) ! (Msun) ? Upper limit uncertainty on M
real*8 e_M_1 (nr__1) ! (Msun) ? Lower limit uncertainty on M
real*8 L (nr__1) ! (Lsun) ? Derived luminosity
real*8 E_L (nr__1) ! (Lsun) ? Upper limit uncertainty on L
real*8 e_L_1 (nr__1) ! (Lsun) ? Lower limit uncertainty on L
real*4 Size (nr__1) ! (pc) Derived source size
real*4 e_Size (nr__1) ! (pc) ? Uncertainty in Size
C=============================================================================
C Loading file 'table1.dat' ! BLAST Vela sources measured properties
C Format for file interpretation
1 format(
+ 6X,A14,1X,F8.4,1X,F7.4,1X,F6.1,1X,F5.1,1X,F6.1,1X,F5.1,1X,
+ F5.1,1X,F5.1,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,1282
read(1,'(A80)')ar__
read(ar__,1)
+ BLAST(i__),GLON(i__),GLAT(i__),F250(i__),e_F250(i__),
+ F350(i__),e_F350(i__),F500(i__),e_F500(i__),FWHM(i__)
c ..............Just test output...........
write(6,1)
+ BLAST(i__),GLON(i__),GLAT(i__),F250(i__),e_F250(i__),
+ F350(i__),e_F350(i__),F500(i__),e_F500(i__),FWHM(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! BLAST Vela sources derived properties
C Format for file interpretation
2 format(
+ 6X,A14,1X,F4.1,1X,F4.1,1X,F4.1,1X,F5.1,1X,F10.1,1X,F9.1,1X,
+ F7.1,1X,F8.1,1X,F7.1,1X,F4.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,1282
read(1,'(A97)')ar__1
read(ar__1,2)
+ BLAST_1(i__),T(i__),E_T(i__),e_T_1(i__),M(i__),E_M(i__),
+ e_M_1(i__),L(i__),E_L(i__),e_L_1(i__),Size(i__),e_Size(i__)
if(ar__1(43:52) .EQ. '') E_M(i__) = rNULL__
if(ar__1(54:62) .EQ. '') e_M_1(i__) = rNULL__
if(ar__1(64:70) .EQ. '') L(i__) = rNULL__
if(ar__1(72:79) .EQ. '') E_L(i__) = rNULL__
if(ar__1(81:87) .EQ. '') e_L_1(i__) = rNULL__
if(ar__1(94:97) .EQ. '') e_Size(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ BLAST_1(i__),T(i__),E_T(i__),e_T_1(i__),M(i__),E_M(i__),
+ e_M_1(i__),L(i__),E_L(i__),e_L_1(i__),Size(i__),e_Size(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end