FORTRAN Generation
(/./ftp/cats/J/AJ/109/639)

Conversion of standardized ReadMe file for file /./ftp/cats/J/AJ/109/639 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-Mar-28
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/109/639              The Core of NGC 6624                     (Sosin+ 1995)
*================================================================================
*HST Observations of the Core of the Globular Cluster NGC 6624
*     Sosin C., King I.R.
*    <Astron. J. 109, 639 (1995)>
*    =1995AJ....109..639S
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table1.dat'	! Photometry of all stars brighter than V=20 in
                               our inner two fields in NGC 6624

      integer*4 nr__
      parameter (nr__=618)	! Number of records
      character*74 ar__   	! Full-size record

      integer*4     ID         (nr__) ! Identification number
      integer*4     Field      (nr__) ! *[1,2] Field number
      real*8        Xpos       (nr__) ! (pix) X coordinate on F480LP image under Field
      real*8        Ypos       (nr__) ! (pix) Y coordinate on F480LP image under Field
      real*8        oRA        (nr__) ! (arcsec) *RA (J2000) relative to cluster center
      real*8        oDE        (nr__) ! (arcsec) *Dec (J2000) relative to cluster center
      real*8        m480       (nr__) ! (mag) F480LP instrumental magnitude
      real*4        m430_m480  (nr__) ! (mag) F430W - F480LP color (HST instr. system)
      real*8        Vmag       (nr__) ! (mag) V magnitude
      real*4        B_V        (nr__) ! (mag) B-V color
      character*11  Comment    (nr__) ! Comments
*Note on Field:
*  1=central 11x11 arcsec image, 2=image at r=10"
*Note on oRA, oDE:
*  Coordinates of cluster center:
*  B1950   RA 18h 20m 27.686s +/- 0.021s  Dec -30d 23' 17.10" +/- 0.27"
*  J2000   RA 18h 23m 40.453s +/- 0.021s  Dec -30d 21' 40.75" +/- 0.27"

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table2.dat'	! Photometry of all stars brighter than V=23 in
                               our outermost FOC field in NGC 6624

      integer*4 nr__1
      parameter (nr__1=166)	! Number of records
      character*57 ar__1  	! Full-size record

      integer*4     ID_1       (nr__1) ! Identification number
      real*4        Xpos_1     (nr__1) ! (pix) X coord. on outermost (r=28") F480LP image
      real*4        Ypos_1     (nr__1) ! (pix) Y coord. on outermost (r=28") F480LP image
      real*8        oRA_1      (nr__1) ! (arcsec) *RA (J2000) relative to star at (257,286)
      real*8        oDE_1      (nr__1) ! (arcsec) *Dec (J2000) relative to star at (257,286)
      real*8        m480_1     (nr__1) ! (mag) F480LP instrumental magnitude
      real*4        m430_m480_1(nr__1) ! (mag) F430W - F480LP color (HST instr. system)
      real*8        Vmag_1     (nr__1) ! (mag) V magnitude
      real*4        B_V_1      (nr__1) ! (mag) B-V color
*Note on oRA, oDE:
*  Coordinates of bright star at (257,286) in outermost field:
*  B1950   RA 18h 20m 29.141s +/- 0.012s  Dec -30d 22' 54.91" +/- 0.15"
*  J2000   RA 18h 23m 41.898s +/- 0.012s  Dec -30d 21' 18.45" +/- 0.15"

C=============================================================================

C  Loading file 'table1.dat'	! Photometry of all stars brighter than V=20 in
*                               our inner two fields in NGC 6624

C  Format for file interpretation

    1 format(I4,I3,F7.1,F7.1,F7.3,F7.3,F7.2,F6.2,F7.2,F6.2,2X,A11)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,618
        read(1,'(A74)')ar__
        read(ar__,1)
     +  ID(i__),Field(i__),Xpos(i__),Ypos(i__),oRA(i__),oDE(i__),
     +  m480(i__),m430_m480(i__),Vmag(i__),B_V(i__),Comment(i__)
c    ..............Just test output...........
        write(6,1)
     +  ID(i__),Field(i__),Xpos(i__),Ypos(i__),oRA(i__),oDE(i__),
     +  m480(i__),m430_m480(i__),Vmag(i__),B_V(i__),Comment(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table2.dat'	! Photometry of all stars brighter than V=23 in
*                               our outermost FOC field in NGC 6624

C  Format for file interpretation

    2 format(I4,1X,F6.1,F6.1,F7.3,F7.3,F7.2,F6.2,F7.2,F6.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,166
        read(1,'(A57)')ar__1
        read(ar__1,2)
     +  ID_1(i__),Xpos_1(i__),Ypos_1(i__),oRA_1(i__),oDE_1(i__),
     +  m480_1(i__),m430_m480_1(i__),Vmag_1(i__),B_V_1(i__)
c    ..............Just test output...........
        write(6,2)
     +  ID_1(i__),Xpos_1(i__),Ypos_1(i__),oRA_1(i__),oDE_1(i__),
     +  m480_1(i__),m430_m480_1(i__),Vmag_1(i__),B_V_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end