Conversion of standardized ReadMe file for
file /./ftp/cats/J/PASJ/54/719 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/PASJ/54/719 IRAS/SiO sources in the Galactic bulge (Deguchi+, 2002)
*================================================================================
*Near-infrared observations of the IRAS/SiO sources in the Galactic bulge:
*a large scale distribution.
* Deguchi S., Fujii T., Nakashima J., Wood P.R.
* <Publ. Astron. Soc. Jap., 54, 719 (2002)>
* =2002PASJ...54..719D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Observed magnitudes and positions of the
IRAS candidates
integer*4 nr__
parameter (nr__=121) ! Number of records
character*80 ar__ ! Full-size record
character*10 IRAS (nr__) ! IRAS name
character*2 f_IRAS (nr__) ! [* ] Note on IRAS (1)
character*10 Date (nr__) ! ("YYYY/MM/DD") Observation date
real*4 Jmag (nr__) ! (mag) ? J magnitude
character*1 l_Hmag (nr__) ! Limit flag on Hmag
real*4 Hmag (nr__) ! (mag) ? H magnitude
character*1 l_Kmag (nr__) ! Limit flag on Kmag
real*4 Kmag (nr__) ! (mag) ? K magnitude
real*4 DX (nr__) ! (arcsec) Difference from IRAS position
* in right ascension (2)
real*4 DY (nr__) ! (arcsec) Difference from IRAS position
* in declination (2)
character*16 MSX5C (nr__) ! MSX5C name (LLL.llll+BB.bbbb)
real*4 DR (nr__) ! (arcsec) Position difference between IRAS and
* MSX5C sources
*Note (1): Remarks use the following symbols:
* * = These sources need attention for identification; notes are
* given in notes.dat file and false color images are in figure 1.
* ** = This source is an apparently-double SiO maser sources;
* see Deguchi et al., 1999PASJ...51..355D.
*Note (2): The coordinates of an object are given by
* RA = RA(IRAS PSC position) +DX
* DE = DE(IRAS PSC position) +DY,
* at the epoch of 1950
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'notes.dat' ! Note on the Identification
integer*4 nr__1
parameter (nr__1=62) ! Number of records
character*80 ar__1 ! Full-size record
character*10 IRAS_1 (nr__1) ! IRAS name (1)
character*69 Note (nr__1) ! Text of the note
*Note (1): We give here a note on the identifications of the IRAS
* counterparts which need caution.
* -- Overlapped stars or stars with close companions are 17327-3319,
* 17549-2155, 17567-1748, 18022-2400, 18049-2109, 18097-2316, and
* 18117-1625.
* -- Candidates located in relatively dense region of stars are
* 17289-3437, 17367-3258, and 17526-2627.
* -- Very faint candidates are 17108-3512, 17340-3129, 17545-2308,
* 18030-2120, 18056-1514, 18001-1918, and 18167-1634.
* -- The candidates at notable positions are 17279-3120, 18106-1734,
* and 18173-1642.
C=============================================================================
C Loading file 'table1.dat' ! Observed magnitudes and positions of the
* IRAS candidates
C Format for file interpretation
1 format(
+ A10,A2,1X,A10,1X,F6.3,1X,A1,F6.3,1X,A1,F6.3,1X,F5.1,1X,F5.2,
+ 1X,A16,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,121
read(1,'(A80)')ar__
read(ar__,1)
+ IRAS(i__),f_IRAS(i__),Date(i__),Jmag(i__),l_Hmag(i__),
+ Hmag(i__),l_Kmag(i__),Kmag(i__),DX(i__),DY(i__),MSX5C(i__),
+ DR(i__)
if(ar__(25:30) .EQ. '') Jmag(i__) = rNULL__
if(ar__(33:38) .EQ. '') Hmag(i__) = rNULL__
if(ar__(41:46) .EQ. '') Kmag(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ IRAS(i__),f_IRAS(i__),Date(i__),Jmag(i__),l_Hmag(i__),
+ Hmag(i__),l_Kmag(i__),Kmag(i__),DX(i__),DY(i__),MSX5C(i__),
+ DR(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'notes.dat' ! Note on the Identification
C Format for file interpretation
2 format(A10,1X,A69)
C Effective file loading
open(unit=1,status='old',file=
+'notes.dat')
write(6,*) '....Loading file: notes.dat'
do i__=1,62
read(1,'(A80)')ar__1
read(ar__1,2)IRAS_1(i__),Note(i__)
c ..............Just test output...........
write(6,2)IRAS_1(i__),Note(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end