MINICERN/packlib/zebra/rz/rzvers.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:23  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE RZVERS(CHTITL,CHCOMP,CHOPT)
  11 *
  12 *     Print or return RZ version number
  13 *
  14       CHARACTER*(*) CHTITL,CHCOMP,CHOPT
  15       CHARACTER*80  CTITLE,CCOMPL
  16
  17 #include "zebra/zunit.inc"
  18
  19       IDATQQ = 0
  20       ITIMQQ = 0
  21 *
  22 *     Clear title and compilation date/time
  23 *
  24       CTITLE = ' '
  25       CCOMPL = ' '
  26
  27       CTITLE =
  28      +  'RZEBRA   3.01/08'
  29       WRITE(CCOMPL,9001) IDATQQ,ITIMQQ
  30 9001  FORMAT(' This version created on ',I6,' at ',I4)
  31
  32       LTITLE = LENOCC(CTITLE)
  33       LCOMPL = LENOCC(CCOMPL)
  34
  35       IF(INDEX(CHOPT,'P').NE.0) THEN
  36
  37          WRITE(IQPRNT,*) CTITLE(1:LTITLE)
  38          WRITE(IQPRNT,*) CCOMPL(1:LCOMPL)
  39
  40       ELSE
  41
  42          CHTITL = CTITLE(1:LTITLE)
  43          CHCOMP = CCOMPL(1:LCOMPL)
  44
  45       ENDIF
  46
  47       END