PROGRAM QA6
       DIMENSION TOTX(10),TOTY(10),AM(10,10),CV(10)
       READ (5,800)NX,NY,NCV
       WRITE (6,900)NX,NY,NCV
       READ (5,810)(TOTX(I),I=1,NX)
       WRITE (6,910)(TOTX(I),I=1,NX)
       READ (5,810)(TOTY(I),I=1,NY)
       WRITE (6,920)(TOTY(I),I=1,NY)
       WRITE (6,930)
       DO 10 J=1,NY
       READ (5,810)(AM(I,J),I=1,NX)
 10    WRITE (6,940)(AM(I,J),I=1,NX)
       READ (5,810)(CV(I),I=1,NCV)
       WRITE (6,950)(CV(I),I=1,NCV)
C      PLOTTING
       !CALL C_PLOTS(0,0,6LPLTOUT)
       CALL C_PLOTS(0,0,6HPLTOUT)
       CALL C_PLOT(0.,1.,-3)
       CALL C_CNTOUR(AM,NX,NY,TOTX,TOTY,3.0,CV,NCV,.TRUE.,10)
       CALL C_PLOT(0.,0.,999)
 800   FORMAT(3I6)
 810   FORMAT(8F6.1)
 900   FORMAT(1H1,4HNX =,I2,4HNY =,I2,5HNCV =,I2)
 910   FORMAT(1H0,4HTOTX,/,(1H ,5X,10F10.1))
 920   FORMAT(1H0,4HTOTY,/(1H ,5X,10F10.1))
 930   FORMAT(1H0,2HAM)
 940   FORMAT(1H0,5X,10F10.1)
 950   FORMAT(1H0,2HCV,/,(1H ,10F10.1))
       STOP
       END