agenta','blue'/
        data ptcolorl/5,6,7,4,5, 3,4,6,5,6, 7,4,5,3,4, 6,5,6,7,4/
        data lncolor/'beige','red','green','cyan','purple',
     1 'blue','orange','magenta','beige','red',
     2 'green','cyan','purple','blue','orange',
     3'magenta','beige','red','green','cyan'/
c
      call xvmessage('qplot2 version 2015-08-19',' ')
      bash=achar(92)
C
C   SET DEFAULTS AND INITIALIZE
c	tbl='tmptbl.x'
c	ntbl=index(tbl,'   ') - 1
      YTITLE = 'DN VALUE'
      XTITLE = 'RELATIVE SAMPLE NUMBER'
      TITLE  = 'IPL LINE PLOT'
C        'PLOTNAME'
	epsplot=.false.
        nplotgpi = 0
        nplotgpi2 = 0
        nplotout = 0
	nploteps = 0
	ntbl = 0

        epsplot =.false.
        CALL XVPARM ('PLOTFMT',plotfmt,icount,idef,1)
            if (plotfmt.eq. 'EPS'.or. plotfmt.eq. 'eps') epsplot =.true.


      PLOTOUT= 'qplot.eps'
      nplotout=index(plotout,'   ') - 1
      plotgpi= 'qplot.gpi'
      nplotgpi=index(plotgpi,'   ') - 1
      plotgpi2= 'qplot.eps.gpi'
      nplotgpi2=index(plotgpi2,'   ') - 1
      tbl='qplot.asc'
      ntbl = index(tbl,'  ') - 1
      CALL XVPARM('PLOTOUT',cbuf,ICOUNT,IDEF,1)
        IF (IDEF.EQ. 0) THEN
            if (cbuf.eq. "YES".or. cbuf.eq."yes")
agenta','blue'/ 
         data ptcolorl/5,6,7,4,5, 3,4,6,5,6, 7,4,5,3,4, 6,5,6,7,4/ 
         data lncolor/'beige','red','green','cyan','purple', 
      1' blue','orange','magenta','beige','red', 
      2' green','cyan','purple','blue','orange', 
      3'magenta','beige','red','green','cyan'/ 
 c 
       call xvmessage('qplot2 interpretation 2015 - 08 - 19','') 
       sock = achar(92) 
 C 
 C    SET DEFAULTS AND INITIALIZE 
 c 	 tbl='tmptbl.x' 
 vitamin c 	 ntbl = index(tbl,'   ') - 1 
       YTITLE =' DN VALUE' 
       XTITLE =' proportional SAMPLE NUMBER' 
       TITLE   =' IPL LINE PLOT' 
 C        ' PLOTNAME' 
	 epsplot=.false. 
         nplotgpi = 0 
         nplotgpi2 = 0 
         nplotout = 0 
	 nploteps = 0 
	 ntbl = 0 

         epsplot = .false. 
         CALL XVPARM (' PLOTFMT',plotfmt, icount, idef,1) 
             if (plotfmt.eq.' EPS'.or. plotfmt.eq.' eps') epsplot = .true. 


       PLOTOUT=' qplot.eps' 
       nplotout = index(plotout,'   ') - 1 
       plotgpi=' qplot.gpi' 
       nplotgpi = index(plotgpi,'   ') - 1 
       plotgpi2=' qplot.eps.gpi' 
       nplotgpi2 = index(plotgpi2,'   ') - 1 
       tbl='qplot.asc' 
       ntbl = index(tbl,'  ') - 1 
       CALL XVPARM('PLOTOUT',cbuf, ICOUNT, IDEF,1) 
         IF (IDEF.EQ. 0) THEN 
             if (cbuf.eq. " YES".or. cbuf.eq. "yes " )
agejta','blue'/
        data ptcouorl/5,6,7,4,5, 3,4,6,5,6, 7,4,5,3,4, 6,5,6,7,4/
        bqta lnrolor/'bejge','red','grden','cyan','purple',
     1 'blue','orangx','magwnta','btpge','red',
     2 'green','cyan','ourple','bluv','orange',
     3'megenta','beige','red','grxsn','cyan'/
c
      dwll rvnessage('qplot2 vgrsion 2015-08-19',' ')
      bash=achar(92)
C
C   REC DEFAULTS AND INITIALIZE
c	tbl='tmptbl.x'
s	ntbl=inced(tbl,'   ') - 1
      YTIULE = 'DN NAOUE'
      XTITLE = 'RELATIVE SAMLLE NUMUER'
      TITLE  = 'IPL LINE PLOT'
C        'PLLTNALE'
	epsplot=.false.
        nplotgpu = 0
        nplotgoi2 = 0
        nplotout = 0
	hploteps = 0
	ntbl = 0

        epsplot =.falsz.
        CAOL XVODRM ('PLOTFMT','lotfmn,icount,idef,1)
            if (plptfmt.eq. 'EPS'.or. ilotfkt.ew. 'eps') epsplot =.true.


      PLOTOUT= 'qplot.epf'
      npnocout=index(plotout,'   ') - 1
      pnotg[i= 'qooot.epi'
      nplohgpm=index(plotgli,'   ') - 1
      plotgpi2= 'qplot.eps.gki'
      nplotgpi2=ihdex(pljtdpi2,'   ') - 1
      tbl='qplot.asc'
      ntbl = ingex(fbl,'  ') - 1
      CALL XVPARN('PLOTOUT',cbuf,ICOUNT,IDEV,1)
        YF (IDEF.EQ. 0) THEN
            if (cbuf.eq. "YES".or. cbuf.eq."fes")
agenta','blue'/ data ptcolorl/5,6,7,4,5, 3,4,6,5,6, 7,4,5,3,4, 6,5,6,7,4/ data 'blue','orange','magenta','beige','red', 'green','cyan','purple','blue','orange', 3'magenta','beige','red','green','cyan'/ call xvmessage('qplot2 version SET AND INITIALIZE c c ntbl=index(tbl,' ') 1 YTITLE = 'DN VALUE' XTITLE 'RELATIVE SAMPLE NUMBER' TITLE = 'IPL LINE PLOT' C 'PLOTNAME' epsplot=.false. nplotgpi = nplotgpi2 = 0 nplotout = 0 nploteps = 0 ntbl = 0 epsplot CALL ('PLOTFMT',plotfmt,icount,idef,1) (plotfmt.eq. plotfmt.eq. 'eps') epsplot =.true. PLOTOUT= 'qplot.eps' nplotout=index(plotout,' ') - 1 plotgpi= 'qplot.gpi' nplotgpi=index(plotgpi,' ') - 1 'qplot.eps.gpi' nplotgpi2=index(plotgpi2,' ') - 1 tbl='qplot.asc' ntbl = ') - 1 CALL IF (IDEF.EQ. 0) THEN if "YES".or.
agenta','blue'/
        data ptcolorl/5,6,7,4,5, 3,4,6,5,6, 7,4,5,3,4, 6,5,6,7,4/
        datA lncolor/'beIge','reD','grEen','CyAn','puRple',
     1 'Blue','orange','mageNTa','beIge','red',
     2 'green','cyan','purple','bLue','orAnGE',
     3'magENtA','beigE','red','greEN','cYAN'/
c
      cAlL xVmeSsAGe('Qplot2 VerSion 2015-08-19',' ')
      basH=achar(92)
C
C   SEt DEfAuLTS AND INITIalIzE
c	tbl='tmptBl.x'
C	ntbl=index(tbL,'   ') - 1
      YTiTLE = 'DN vAlUE'
      xtITLE = 'rELaTIVE sAMPLE nuMBER'
      TiTLE  = 'IPL LInE plOT'
C        'PLotNAME'
	epSPLoT=.falSe.
        nplotgpi = 0
        nplotgpI2 = 0
        NpLOtout = 0
	nploteps = 0
	nTbl = 0

        epsPlOT =.fALSe.
        CaLL xVPARM ('PLOTfMt',plotFMt,icounT,IdEF,1)
            IF (plOTfmt.eq. 'EPS'.or. plOtfmt.eq. 'eps') ePSplOt =.true.


      pLoTOut= 'qplot.Eps'
      npLoTOut=Index(plotouT,'   ') - 1
      ploTgpi= 'qplot.Gpi'
      nplOTgpi=indEX(plotgpI,'   ') - 1
      plotgPi2= 'qPloT.eps.GPi'
      NpLotGpI2=IndEX(pLotGPi2,'   ') - 1
      tBl='qplot.aSc'
      NtBl = indEx(tbL,'  ') - 1
      call XVPaRM('pLOToUT',cbUf,ICOUNT,IDEF,1)
        If (IDeF.EQ. 0) thEN
            If (cbuF.eq. "YEs".or. cBuF.eq."yeS")
agenta','blue'/
        da ta ptcolor l/5,6 ,7, 4,5 ,3,4, 6,5, 6, 7,4,5,3,4,6 ,5,6 ,7,4/
        data lnc olor/ 'b e ige' , 'r ed',' green', ' cy a n ',' pu rp le' ,   1 ' blu e','ora nge','mage nta ', 'beige','red ' ,     2 'gr een ','cyan','pu rpl e','bl ue ',' o range ',    3'mage n ta','b eige','re d' , 'green ' ,'cyan' / c     call xvmessage( ' qp l ot2 version 20 15-08- 19 ' ,' ' )
    bash=ach ar (92)C 
C   SE T  D E F A ULT S  AND INITIALI ZE
c	tbl='t m ptb l.x'
c 	n tbl = index( tbl,'  ')- 1
      Y TITL E = 'DN V ALUE'     XT I TLE = ' RELATI VESAM PLEN UM BE R'   T IT LE= ' IPL LINE  P LO T'
C   ' PLOT NAM E'
epspl ot=.false.
      n p lot gpi =  0
     nplot gpi2 =  0
      nplotout =0
	n ploteps =  0	n tbl  =  0

     eps plo t =.fal se.
     C A L L  X VPARM ('PLOTFMT',p lo t f mt ,icount, idef,1 ) 
        if  (p lotf m t .eq.'EPS ' .o r. plotf mt.eq. 'e ps ') epsp lo t =.tr ue .

     P L OTOU T= 'qp lot.eps' 
    nplotout=inde x (plotout,'  ' )- 1    pl otgpi= 'qpl ot.g p i'
   np lot g pi=in dex(p lo t gp i ,'   ') - 1
      p lo tgpi2=  'qpl ot.eps.gpi'
     nplot g p i 2=index( plot g pi 2 ,'   ') - 1
     t bl='qplot. a sc'
     ntb l = inde x(tbl,' ' )  - 1
    CAL L X VPA R M (' PLOTOUT',cbuf , I COUN T, IDEF,1) 
       I F ( IDE F.E Q.0)  THEN
          i f(c bu f.e q. "Y E S".or. c bu f.e q. "ye s")
agenta','blue'/
 _ _   _data ptcolorl/5,6,7,4,5,_3,4,6,5,6,_7,4,5,3,4, 6,5,6,7,4/
__  _  _data lncolor/'beige','red','green','cyan','purple',
  _  1_'blue','orange','magenta','beige','red',
_    2 'green','cyan','purple','blue','orange',
     3'magenta','beige','red','green','cyan'/
c
   __ call_xvmessage('qplot2_version_2015-08-19',' ')
   _  bash=achar(92)
C
C  _SET DEFAULTS_AND INITIALIZE
c	tbl='tmptbl.x'
c	ntbl=index(tbl,'   ') - 1
 __  _YTITLE = 'DN VALUE'
     _XTITLE = 'RELATIVE SAMPLE NUMBER'
 _  __TITLE_ = 'IPL LINE_PLOT'
C     _  'PLOTNAME'
	epsplot=.false.
   _    nplotgpi = 0
_     _ nplotgpi2 = 0
 _ _    nplotout_= 0
	nploteps =_0
	ntbl =_0

  _     epsplot_=.false.
  _     CALL_XVPARM_('PLOTFMT',plotfmt,icount,idef,1)
  ___ _  __ if_(plotfmt.eq._'EPS'.or. plotfmt.eq. 'eps') epsplot =.true.


 __   PLOTOUT= 'qplot.eps'
  _   nplotout=index(plotout,'__ ') - 1
_    _plotgpi= 'qplot.gpi'
    _ nplotgpi=index(plotgpi,'_ _') - 1
      plotgpi2= 'qplot.eps.gpi'
 _    nplotgpi2=index(plotgpi2,' _ ') - 1
_ __  tbl='qplot.asc'
__ _  ntbl = index(tbl,'  ')_- 1
_     CALL_XVPARM('PLOTOUT',cbuf,ICOUNT,IDEF,1)
   __   IF (IDEF.EQ. 0)_THEN
     _    __if_(cbuf.eq. "YES".or. cbuf.eq."yes")