* Last processed by NICE on 12-Jun-2000 15:53:00
* Customized for :  IEEE, LINUX, UNIX, MOTIF, F77
      SUBROUTINE LISTPO(LINE,ERROR)
      CHARACTER*(*) LINE
      LOGICAL ERROR
*
      INCLUDE 'setup.inc'
      INCLUDE 'size.inc'
      INCLUDE 'data.inc'
      LOGICAL SIC_PRESENT
* PI is defined with more digits than necessary to avoid losing
* the last few bits in the decimal to binary conversion
      REAL*8 PI
      PARAMETER (PI=3.14159265358979323846D0)
      REAL*4 SECPI,DEGPI
      PARAMETER (SECPI = 3600.*180./PI)
      PARAMETER (DEGPI = 180./PI)
      INTEGER I,LUN,ISCAN
      CHARACTER*80 OFILE,NAME
*
      IF (NDATA.EQ.0 .OR. NPT.EQ.0) RETURN
      LUN = 6
      IF (SIC_PRESENT(1,0)) THEN
         CALL SIC_CH (LINE,1,1,OFILE,I,.TRUE.,ERROR)
         IF (ERROR) RETURN
         LUN = 1
         NAME = OFILE
         CALL SIC_PARSEF(NAME,OFILE,' ','.LIS')
         OPEN (UNIT=LUN,FILE=OFILE,
C+VMS
c     $   CARRIAGECONTROL='LIST',RECORDTYPE='STREAM_LF',
C-VMS
     $   STATUS='UNKNOWN')
      ENDIF
*
      ISCAN = 0
      CALL SIC_I4 (LINE,0,1,ISCAN,.FALSE.,ERROR)
      IF (ERROR) RETURN
      CALL GET_GOOD (NPT,KP)
      WRITE(LUN,102)
      DO I=1,NPT
         IF (ISCAN.EQ.0 .OR. SCAN(I).EQ.ISCAN) THEN
            IF (GOOD(I)) THEN
               WRITE(LUN,100) SCAN(I),NINT(X(3,I)),
     $         X(1,I)*DEGPI,X(2,I)*DEGPI,TIEM(I),
     $         FOBS(I)*SECPI,RMS(I),SOURCE(I)
            ELSE
               WRITE(LUN,101) SCAN(I),NINT(X(3,I)),
     $         X(1,I)*DEGPI,X(2,I)*DEGPI,TIEM(I),
     $         FOBS(I)*SECPI,RMS(I),SOURCE(I)
            ENDIF
         ENDIF
      ENDDO
      IF (LUN.NE.6) CLOSE(LUN)
*
100   FORMAT(1X,I6,I3,5(1X,F10.3),1X,A)
101   FORMAT(1X,'!',I5,I3,5(1X,F10.3),1X,A)
102   FORMAT(1X,'  Scan Code',
     $'    Az         El         Time       Error      Rms')
      END