C+
C NAME:
C	print_lat_lon.f
C PURPOSE:
C	print_the Image #, Julian date, and interpolated latitude and longitude of each image.
C     
C CATEGORY:
C	I/O
C CALLING SEQUENCE:
C	print_lat_lon(NOBS,JDX,alatyy,alonxx)
C
C INPUTS:
C     NOBS               integer     Number of star images used
C     JDX   (NOBS)       real*8      Julian Date of the image observation time
C     alatyy(NOBS)       real        Interpolated latitude
C     alonxx(NOBS)       real        Interpolated longitude   
C
C OUTPUTS:
C     I                  integer     The image number measured
C     JDX   (NOBS)       real*8      Julian Date of the image observation time
C     alatyy(NOBS)       real        Interpolated latitude
C     alonxx(NOBS)       real        Interpolated longitude    
C                                   (These outputs are printed so  they can be plotted on a spreadsheet
C
C FUNCTIONS/SUBROUTINES:
C
C MODIFICATION HISTORY:
C	September-2022, Bernard Jackson (UCSD)
C-
	subroutine print_lat_lon(NOBS,JDX,alatyy,alonxx)

        real            alatyy(NOBS),
     &                  alonxx(NOBS)

        real*8          JDX   (NOBS)

          print*, ' '
          print*, ' Into print_lat_lon'
                    
            do I=1,NOBS
                write(*,'(A,I5,F15.6,2F7.2)')'I,JDX(I),alatyy(I),alonxx(I)',I,JDX(I),alatyy(I),alonxx(I)
            end do

            print*, ' Out of print_lat_lon'
	  return
	end