Subroutine Version
c
      Include 'Cmain'
      Include 'Cplot'
      Include 'Ctable'
      Include 'Caxis'
      Include 'Cflags'
      Include 'Ctxblk'
      Include 'Clabls'
      Include 'Clegnd'
      Include 'Cgrid'
c
      Vers = 5.03
c
      Write(6,100) 27,27,27,Vers
100   Format(1X,1A1,'[H',1A1,'[J',1A1,'#6PLTPRG VERSION ',F4.2)
c
      Call Point(Ipt,Ncols+1,Npoint)
      Call Point(Ititl,Ncols+1,Npoint)
      Call Point(Ilab,Nlab+1,Llabel)
      Call Point(Ileg,Nleg+1,Lleg)
c
      Nl = Nlab
      Nlnew = Nl
      Do 10 I=1,Ntxbl
         Nlnew = Nlnew + Ntxl(I)
 10   Continue
c
      If (Ntxbl .LE. 0) Then
         Max = Ilab
      Else
         Call Point(Nblo,Nlnew+1,Llabel)
         Max = Nblo
      End If
c
      Mx = 0
      Do 20 I=1,Ncols
         Mx = Max0(Mx,Npoint(I))
20    Continue
c
      Write(6,150) 27,27,27,27,27,27,Ncols,Ncolmx,Ipt-1,Last,
     $             Mx,Npt_Max
150   Format(/T10,1A1,'[4mDESCRIPTION',1A1,'[0m',31X,1A1,
     $       '[4mCURRENT',1A1,'[0m',13X,1A1,'[4mMAXIMUM',
     $        1A1,'[0m'/
     $       ' Number of columns',T50,I8,T70,I8/
     $       ' Number of total points',T50,I8,T70,I8/
     $       ' Number of points in the largest column',
     $         T50,I8,T70,I8/)
      Write(6,250) Ncurve,Ncrvmx,Nlnew,Nlabmx,Max-1,Lachmx,
     $             Nlab,Ilab-1,Ntxbl,Mxtxbl
c
250   Format(' Number of curves',T50,I8,T70,I8/
     $       ' Number of labels & text block labels',T50,I8,
     $         T70,I8/
     $       ' Number of characters in use',T50,I8,T70,I8/
     $       ' Number of labels',T50,I8/
     $       ' Number of label characters in use',T50,I8/
     $       ' Number of text blocks',T50,I8,T70,I8)
c
      Write(6,350) Nleg,Nlegmx,Ileg-1,Lechmx
350   Format(/' Number of legend labels (&header)',T50,I8,T70,I8/
     $        ' Number of of characters in use',T50,I8,T70,I8/)
c
c                   Table Presentation Data
c
      K = 0
      Do 40 I=1,Ntab
         K = K + Tcolen(I)
 40   Continue
      Call Point(Itab,K+1,Tablen)
c
      If (Ntab .EQ. 0) Then
         N = 0
      Else
         N = Ntab - 1
      End If
c
      Write(6,450) N,Nhedmx,K,Ntalmx,Itab-1,Ntachx
450   Format(' Number of table columns',T50,I8,T70,I8/
     $       ' Number of lines in all headers',T50,I8,T70,I8/
     $       ' Number of header characters in use',T50,I8,T70,I8/)
      Write(6,500,ERR=60) Idflag,Ipflag,Itflag
500   Format(' Data Flag =',I2,', Plot Flag =',I2,', Table Flag =',
     $         I2)
 60   Continue
      Return
      End