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.
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