Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/169/337 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 2026-Oct-12
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/169/337 MOBStIRS: Bow shocks parameters from Zooniverse (Whisnant+, 2025)
*================================================================================
*The Milky Way Project MOBStIRS: Parameterizing infrared stellar-wind bow shock
*morphologies with Citizen Science.
* Whisnant A.S., Povich M.S., Patten N., Kobulnicky H.A.
* <Astron. J., 169, 337 (2025)>
* =2025AJ....169..337W
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! List of citizen scientist participants by username
and number of images classified
integer*4 nr__
parameter (nr__=240) ! Number of records
character*21 ar__ ! Full-size record
character*17 Username ! Citizen scientist username
integer*4 nCl ! [1/432] Number of classifications
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Apparent shape parameter measurements for IR bow
shocks in the MOBStIRS final sample
integer*4 nr__1
parameter (nr__1=586) ! Number of records
character*105 ar__1 ! Full-size record
integer*4 Seq ! [1/896] Bowshock number (1)
character*22 Name ! Subject name, GLLL.llll+BB.bbbb or
* MWP2GLLL.llll+BB.bbbbb (7)
integer*4 nCS ! [5/56] Number of citizen science
* classifications
real*4 Frac ! [0.5/1] Fraction of measurements that were
* confident
real*4 R0pre ! (arcsec) [-99/267] Previous R0 standoff distance
* measurement (2)
real*4 R0CS ! (arcsec) [3.1/247.5] Citizen science R0 standoff
* distance measurement (2)
real*4 R0err ! (arcsec) [0.17/33.5] Statistical uncertainty on R0
* standoff distance (2)
real*4 R90 ! (arcsec) [4.1/396.5] R90 (3)
real*4 e_R90 ! (arcsec) [0.3/58.6] Uncertainty in R90 (3)
real*4 Rc ! (arcsec) [5.6/484.8] Rc (4)
real*4 e_Rc ! (arcsec) [0.3/56.6] Uncertainty in Rc
integer*4 O_F ! [1/2] Flag indicating successful
* classifications of original (O) and/or
* flipped (F) images (5)
integer*4 Asym ! [-99/1] Flag indicating symmetry (6)
real*4 Planitude ! [0.9/3.9] Projected planitude (Rc/R0)
real*4 e_Planitude ! [0.06/1.3] Uncertainty in projected
* planitude
real*4 Alatude ! [0.6/2.41] Projected alatude (R90/R0)
real*4 e_Alatude ! [0.03/0.9] Uncertainty in projected alatude
*Note (1): These numbers were assigned according to
* Kobulnicky+2016 (J/ApJS/227/18) and Jayasinghe+2019 (J/MNRAS/488/1141).
*Note (2): R0 is measured from the driving star to the apex of the arc.
*Note (3): R90 is the distance from the driving star to the arc, perpendicular
* to the symmetry axis of the bow shock.
*Note (4): Rc is the best-fitting circle along the arc of the bow shock, which
* is not necessarily centered on the driving star.
*Note (5): Classification flag as follows:
* 2 = The bow shock had successful classifications on both the original and
* flipped image versions (224 occurrences)
* 1 = The bow shock had successful classifications on either the original or
* flipped image (362 occurrences)
*Note (6): Symmetry flag as follows:
* 1 = The bow shock was determined to be asymmetric (270 occurrences)
* 0 = The bow shock was determined to be symmetric (92 occurrences)
* -99 = The O+F parameter is equal to 1 (224 occurrences)
*Note (7): The objects are a subset of the Kobulnicky+2016 (J/ApJS/227/18) and
* Jayasinghe+2019 (J/MNRAS/488/1141) catalogs, no new sources are presented.
* However, different ID formatting and, in some cases, different coordinates
* for the objects' central stars are used, preventing a direct match by name
* with the Kobulnicky+2016 and Jayasinghe+2019 catalogs.
C=============================================================================
C Loading file 'table1.dat' ! List of citizen scientist participants by username
* and number of images classified
C Format for file interpretation
1 format(A17,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,240
read(1,'(A21)')ar__
read(ar__,1)Username,nCl
c ..............Just test output...........
write(6,1)Username,nCl
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Apparent shape parameter measurements for IR bow
* shocks in the MOBStIRS final sample
C Format for file interpretation
2 format(
+ I3,1X,A22,1X,I2,1X,F4.2,1X,F5.1,1X,F6.2,1X,F5.2,1X,F6.2,1X,
+ F5.2,1X,F6.2,1X,F5.2,1X,I1,1X,I3,1X,F4.2,1X,F4.2,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,586
read(1,'(A105)')ar__1
read(ar__1,2)
+ Seq,Name,nCS,Frac,R0pre,R0CS,R0err,R90,e_R90,Rc,e_Rc,O_F,Asym,
+ Planitude,e_Planitude,Alatude,e_Alatude
c ..............Just test output...........
write(6,2)
+ Seq,Name,nCS,Frac,R0pre,R0CS,R0err,R90,e_R90,Rc,e_Rc,O_F,Asym,
+ Planitude,e_Planitude,Alatude,e_Alatude
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end