[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / rz / rzvers.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:23  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE RZVERS(CHTITL,CHCOMP,CHOPT)
*
*     Print or return RZ version number
*
      CHARACTER*(*) CHTITL,CHCOMP,CHOPT
      CHARACTER*80  CTITLE,CCOMPL
 
#include "zebra/zunit.inc"
 
      IDATQQ = 0
      ITIMQQ = 0
*
*     Clear title and compilation date/time
*
      CTITLE = ' '
      CCOMPL = ' '
 
      CTITLE =
     +  'RZEBRA   3.01/08'
      WRITE(CCOMPL,9001) IDATQQ,ITIMQQ
9001  FORMAT(' This version created on ',I6,' at ',I4)
 
      LTITLE = LENOCC(CTITLE)
      LCOMPL = LENOCC(CCOMPL)
 
      IF(INDEX(CHOPT,'P').NE.0) THEN
 
         WRITE(IQPRNT,*) CTITLE(1:LTITLE)
         WRITE(IQPRNT,*) CCOMPL(1:LCOMPL)
 
      ELSE
 
         CHTITL = CTITLE(1:LTITLE)
         CHCOMP = CCOMPL(1:LCOMPL)
 
      ENDIF
 
      END
Commit	Line	Data
fe4da5cc	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