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

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/24 17:26:47  mclareni
* Extend the include file cleanup to dzebra, rz and tq, and also add
* dependencies in some cases.
*
* Revision 1.1.1.1  1996/03/06 10:47:23  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE RZEND(CHDIR)
*
************************************************************************
*
*        To close all transactions with file CHDIR.
*          Corresponding directories are dropped
* Input:
*   CHDIR   Character variable specifying  the name of the  top directory
*           to be associated with unit LUN.
*
* Called by <USER>
*
*  Author  : R.Brun DD/US/PD
*  Written : 01.04.86
*  Last mod: 07.12.92 Loglevel manipulation
*
************************************************************************
#include "zebra/zunit.inc"
#include "zebra/zstate.inc"
#include "zebra/rzcl.inc"
      CHARACTER  CHDIR*(*)
      DIMENSION IHDIR(4)
      LOGICAL RZSAME
*
*-----------------------------------------------------------------------
*
#include "zebra/q_jbit.inc"
#include "zebra/q_jbyt.inc"

      IQUEST(1)=0
      IF(LQRS.EQ.0)GO TO 99
*
*           Save current directory
*
      CALL RZSAVE
*
      NCHD=LEN(CHDIR)
      IF(NCHD.GT.16)NCHD=16
      CALL VBLANK(IHDIR,4)
      CALL UCTOH(CHDIR,IHDIR,4,NCHD)
      CALL ZHTOI(IHDIR,IHDIR,4)
*
      LRZ=LQRS
  10  IF(LRZ.NE.0)THEN
         IF(.NOT.RZSAME(IHDIR,IQ(KQSP+LRZ+1),4))THEN
            LRZ=LQ(KQSP+LRZ)
            GO TO 10
         ENDIF
*
      LTOP=LRZ
      LOGLV = JBYT(IQ(KQSP+LTOP),15,3)-3
      IF(LOGLV.GE.0) WRITE(IQLOG,9019) CHDIR
 9019 FORMAT(' RZEND. called for ',A)
*
*           Release lock if update mode
*
         IF(JBIT(IQ(KQSP+LTOP),3).NE.0)THEN
            LCDIR=LTOP
            CALL RZFREE('RZFILE')
         ENDIF
*
*           Drop control bank
*
         CALL MZDROP(JQPDVS,LTOP,' ')
         LTOP = 0
         LCDIR= 0
*
*           Error
*
      ELSEIF(NQLOGD.GE.-2)THEN
         WRITE(IQLOG,1000) CHDIR
 1000    FORMAT(' RZEND. Unknown directory ',A)
      ENDIF
*
  99  RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.2 1996/04/24 17:26:47 mclareni
	6	* Extend the include file cleanup to dzebra, rz and tq, and also add
	7	* dependencies in some cases.
	8	*
	9	* Revision 1.1.1.1 1996/03/06 10:47:23 mclareni
	10	* Zebra
	11	*
	12	*
	13	#include "zebra/pilot.h"
	14	SUBROUTINE RZEND(CHDIR)
	15	*
	16	************************************************************************
	17	*
	18	* To close all transactions with file CHDIR.
	19	* Corresponding directories are dropped
	20	* Input:
	21	* CHDIR Character variable specifying the name of the top directory
	22	* to be associated with unit LUN.
	23	*
	24	* Called by <USER>
	25	*
	26	* Author : R.Brun DD/US/PD
	27	* Written : 01.04.86
	28	* Last mod: 07.12.92 Loglevel manipulation
	29	*
	30	************************************************************************
	31	#include "zebra/zunit.inc"
	32	#include "zebra/zstate.inc"
	33	#include "zebra/rzcl.inc"
	34	CHARACTER CHDIR()
	35	DIMENSION IHDIR(4)
	36	LOGICAL RZSAME
	37	*
	38	*-----------------------------------------------------------------------
	39	*
	40	#include "zebra/q_jbit.inc"
	41	#include "zebra/q_jbyt.inc"
	42
	43	IQUEST(1)=0
	44	IF(LQRS.EQ.0)GO TO 99
	45	*
	46	* Save current directory
	47	*
	48	CALL RZSAVE
	49	*
	50	NCHD=LEN(CHDIR)
	51	IF(NCHD.GT.16)NCHD=16
	52	CALL VBLANK(IHDIR,4)
	53	CALL UCTOH(CHDIR,IHDIR,4,NCHD)
	54	CALL ZHTOI(IHDIR,IHDIR,4)
	55	*
	56	LRZ=LQRS
	57	10 IF(LRZ.NE.0)THEN
	58	IF(.NOT.RZSAME(IHDIR,IQ(KQSP+LRZ+1),4))THEN
	59	LRZ=LQ(KQSP+LRZ)
	60	GO TO 10
	61	ENDIF
	62	*
	63	LTOP=LRZ
	64	LOGLV = JBYT(IQ(KQSP+LTOP),15,3)-3
65	IF(LOGLV.GE.0) WRITE(IQLOG,9019) CHDIR
66	9019 FORMAT(' RZEND. called for ',A)
67	*
68	* Release lock if update mode
69	*
70	IF(JBIT(IQ(KQSP+LTOP),3).NE.0)THEN
71	LCDIR=LTOP
72	CALL RZFREE('RZFILE')
73	ENDIF
74	*
75	* Drop control bank
76	*
77	CALL MZDROP(JQPDVS,LTOP,' ')
78	LTOP = 0
79	LCDIR= 0
80	*
81	* Error
82	*
83	ELSEIF(NQLOGD.GE.-2)THEN
84	WRITE(IQLOG,1000) CHDIR
85	1000 FORMAT(' RZEND. Unknown directory ',A)
86	ENDIF
87	*
88	99 RETURN
89	END