SUBROUTINE PRNTXX(KFILDO,CCALL,XDATA,ELEV,NSTA,P,TELEV,NX,NY)
C
C        MAY       2019   GLAHN   TDL   MOS-2000
C
C        PURPOSE
C            TO PRINT SOME VALUES.  PROBABLY CALLED FROM BCD5.
C
C        DATA SET USE
C            KFILDO    - UNIT NUMBER OF OUTPUT (PRINT) FILE.  (OUTPUT)
C
C        VARIABLES
C              KFILDO = UNIT NUMBER OF OUTPUT (PRINT) FILE.  (INPUT)
C            XDATA(K) = THE DATA TO (K=1,NSTA)  (INPUT-OUTPUT)
C        1         2         3         4         5         6         7 X
C 
C        NONSYSTEM SUBROUTINES USED 
C            NONE
C
      CHARACTER*8 CCALL(NSTA)
C
      DIMENSION XDATA(NSTA),ELEV(NSTA)
      DIMENSION P(NX,NY),TELEV(NX,NY)
C
      DO 210 K=1,NSTA
C
      IF(CCALL(K).EQ.'PATL    ')THEN
         WRITE(KFILDO,205)CCALL(K),XDATA(K),ELEV(K),
     1                    P(780,659),P(780,660),P(781,659),P(781,660),
     2    TELEV(780,659),TELEV(780,660),TELEV(781,659),TELEV(781,660)
 205     FORMAT(/' IN PRNTXX--CCALL(K),XDATA(K),',
     1           'P(780,659),P(780,660),P(781,659),P(781,660)',
     2    'TELEV(780,659),TELEV(780,660),TELEV(781,659),TELEV(781,660)',
     3      A8,2F8.2/4F10.2/4F10.2)
     
     
**************************************************************
         DO 278 JY=661,658,-1
         WRITE(KFILDO,277)(P(IX,JY),IX=779,782)
 277     FORMAT(/' AT 277 IN PRNTXX--JY,(P(IX,JY),IX=779,782)',
     1           25X,4F10.3)
 278     CONTINUE
**************************************************************
     
     
     
     
      ENDIF
C
 210  CONTINUE 

      RETURN
      END