Conversion of standardized ReadMe file for
file /./ftp/cats/II/108 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.5, on 2013-May-20
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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. II/108 Two-Micron Sky Survey, Nearest SAO Stars on POSS (Nagy 1983)
*================================================================================
*The Two-Micron Sky Survey: Nearest SAO Star and Locations on Palomar Sky Survey
* Prints
* Nagy T.A., Hill R.S., and Mead J.M.
* <ADC Bull. 1, 183 (1983)>
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data.dat' ! Catalog Data
integer*4 nr__
parameter (nr__=6817) ! Number of records
character*49 ar__ ! Full-size record
integer*4 ID ! ? IRC Number from Two-Micron Sky Survey
integer*4 SAO ! *? ID of Closest SAO Star to IRC Source
integer*4 D ! (arcsec) *? Great Circle Arc Distance between SAO and IRC
integer*4 PA ! (deg) *?=0 Position Angle of IRC Relative to SAO Source
character*4 POSS ! *POSS Plate ID
integer*4 X ! (mm) *Rectangular Coordinate on POSS Print Area
integer*4 Y ! (mm) Rectangular Coordinate on POSS Print Area
integer*4 MLP ! *Modified Luyten Palomar Number
*Note on SAO:
* This datum is from the MATCH output data file.
*Note on D:
* The published positions from the individual source catalogues are
* the data inputs to the MATCH program. Proper motion effects are
* not incorporated into the MATCH program.
*Note on PA:
* The angle is measured from North through East according to the
* standard convention. This quantity was computed from the published
* Epoch 1950.0 source positions.
*Note on POSS:
* The POSS plate ID for the plate area on which the IRC object
* appears. The plate IDs include the Palomar (Arabic numeral
* preceded by the letter S) and Whiteoak (IDs from 7000-9999)
* Southern Extensions. If an object appears on more than one POSS
* print area, a multiple listing is given for each print area on
* which the given object appears.
* The POSS Designations in this table are for the red plates. There
* are four different blue and red numbers as given below:
* POSS-E POSS-O MLP
* 9 10 465
* 14 15 469
* 15 16 472
* 11 12 473
*Note on X:
* The values are measured with respect to the Southwest corner of
* the print area. The center of the print area is:
* X = 172.5
* Y = 173.5
*Note on MLP:
* This number represents a sequential numbering of the POSS plus
* Whiteoak plate areas (range 1-1037). The overall sequence is
* from North to South; within each declination band it is by
* increasing Right Ascension. Therefore, plate 1 is at the North
* Pole and plate 1037 is at the Southern limit of the Whiteoak
* extension. This numbering scheme also takes into account the
* nearly duplicate POSS plate areas (895 and 1619) which correspond
* to MLP numbers 723 and 724 respectively. Since the two plate
* centers are almost identical, when a source is assigned to one
* of the plates, typically it is assigned to both.
C=============================================================================
C Loading file 'data.dat' ! Catalog Data
C Format for file interpretation
1 format(2X,I6,2X,I6,2X,I4,2X,I3,2X,A4,2X,I3,2X,I3,3X,I3)
C Effective file loading
open(unit=1,file='data.dat', status='old')
write(6,*) '....Loading file: data.dat'
do i__=1,6817
read(1,'(A49)')ar__
read(ar__,1)ID,SAO,D,PA,POSS,X,Y,MLP
if(ar__(3:8) .EQ. '') ID = iNULL__
if(ar__(11:16) .EQ. '') SAO = iNULL__
if(ar__(19:22) .EQ. '') D = iNULL__
c ..............Just test output...........
write(6,1)ID,SAO,D,PA,POSS,X,Y,MLP
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end