C   OUTPL.FOR                                                           
      SUBROUTINE OUTPL(IOP, SECD, TLOSS, FLAG, AX, AY, SD, RD,          
     & NOPT, ICF, FREQ, NP, TITIN, NC, COHINC)                          
                                                                        
      CHARACTER*3 XTYP, YTYP, COHINC                                    
      CHARACTER*30 DLAB(10)                                             
      CHARACTER*80 TITIN, TITXUP                                        
      CHARACTER*80 TITLE, TITLEX, TITLEY, OPTION                        
                                                                        
      REAL SECD(NOPT,3), TLOSS(1)                                       
      REAL FLAG(NOPT,ICF), AX(NOPT,6), AY(NOPT,7)                       
                                                                       
      COMMON /LUNIT/ LUPLP, LUPLT, LUPRT
      COMMON /TITL/ TITLE, TITLEX, TITLEY, XTYP, YTYP                   
      COMMON /XAXN/ DX, XDIV                                            
      COMMON /YAXN/ DY, YDIV                                            
                                                                        
                                                                        
  300 FORMAT(1H ,F10.2,2X,F11.2)                                        
  400 FORMAT(1H ,///,'   TRANSMISSION LOSS VERSUS RANGE BY COHERENT',
     & ' ADDITION OF MODES',//,'   FREQUENCY      =',F9.1,' Hz',               
     & /,'   SOURCE DEPTH   =',F9.1,' m',/,'   RECEIVER',
     & ' DEPTH =',F9.1,' m',//,'   RANGE(km)      TL(dB)')                      
  401 FORMAT(1H ,///,'   TRANSMISSION LOSS VERSUS RANGE BY INCOHERENT',
     & ' ADDITION OF MODES',//,'   FREQUENCY      =',F9.1,' Hz',               
     & /,'   SOURCE DEPTH   =',F9.1,' m',/,'   RECEIVER',
     & ' DEPTH =',F9.1,' m',//,'   RANGE(km)      TL(dB)')                      
  402 FORMAT(1H1)                                                       
  820 FORMAT('Range (km)$  ')                                           
  840 FORMAT('Loss (dB)$')                                              
  850 FORMAT('SD= ',F7.1,'m$')                                          
  860 FORMAT('RD= ',F7.1,'m$')                                          
  870 FORMAT('F = ',F7.1,'Hz$')                                         
  880 FORMAT('C-SNAP TLRAN ',A3)                                        
                                                                        

      PRT=FLAG(IOP,2)                                                   
      PLT=FLAG(IOP,3)                                                   

      IF(PLT.GT.0.)   THEN                                              
       OPTION=' '                                                       
       TITXUP= TITIN                                                    
       TITLE= ' '                                                       
       XDIV=1.0E-3                                                      
       YDIV=1.0                                                         
       XTYP='LIN'                                                       
       YTYP='LIN'                                                       
       WRITE(TITLEX,820)                                                
       WRITE(TITLEY,840)                                                
       WRITE(DLAB(1),870)   FREQ                                        
       DX= SECD(IOP,3)                                                  
       DY=0.0                                                           
       XOFF= SECD(IOP,1)                                                
       YOFF=0.0                                                         
      END IF                                                            

      IF(PRT.GT.0.0)   WRITE(LUPRT,402)                                 
      WRITE(DLAB(2),850)   SD                                           
      WRITE(DLAB(3),860)   RD                                           
                                                                        
      IF(PRT.LT.1.0)   GO TO 2800                                       
      IF( COHINC .EQ. 'COH' )   THEN
        WRITE(LUPRT,400)   FREQ,SD,RD                                     
      ELSE
        WRITE(LUPRT,401)   FREQ,SD,RD           
      END IF
      RMARCH= SECD(IOP,1)*1.0E-3                                        
      DELTAR= SECD(IOP,3)*1.0E-3                                        
      DO  2600   L=1,NP                                                 
      RKM= RMARCH + (L-1)*DELTAR                                        
 2600 WRITE(LUPRT,300)   RKM,TLOSS(L)                                   
 2800 IF(PLT.LT.1.0)   GO TO 3000                                       
                                                                        
      WRITE(OPTION,880) COHINC                                          
                                                                        
      CALL PLTFIL(TITXUP,          
     &             0,               
     &             OPTION,          
     &             3,               
     &             NC,               
     &             (AX(IOP,2)-AX(IOP,1))/AX(IOP,3), 
     &             (AY(IOP,2)-AY(IOP,1))/AY(IOP,3), 
     &             AX(IOP,1),       
     &             AX(IOP,2),       
     &             AX(IOP,4),       
     &             AY(IOP,2),       
     &             AY(IOP,1),       
     &             AY(IOP,4),       
     &             DLAB)

      CALL PLTF1(1,               
     &           NP,              
     &           NINT(AX(IOP,6)), 
     &           XOFF,            
     &           YOFF)            
      CALL PLTF2(TLOSS,1,NP)                                            
 3000 CONTINUE                                                          
      RETURN                                                            
      END