]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - MINICERN/packlib/zebra/dzebra/dzarea.F
Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / dzebra / dzarea.F
diff --git a/MINICERN/packlib/zebra/dzebra/dzarea.F b/MINICERN/packlib/zebra/dzebra/dzarea.F
deleted file mode 100644 (file)
index 2d9bae7..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/03/06 10:47:05  mclareni
-* Zebra
-*
-*
-*-----------------------------------------------------------
-#include "zebra/pilot.h"
-#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
-#include "zebra/debugvf1.inc"
-#endif
-      SUBROUTINE DZAREA  (CHTEXT,IXSTOR,CLA,LLA,CHOPT)
-#include "zebra/quest.inc"
-#include "zebra/dzc1.inc"
-      CHARACTER *(*) CLA,CHOPT,CHTEXT
-
-      CHARACTER CHROUT*(*)
-      PARAMETER (CHROUT = 'DZAREA')
-
-      ENTRY      DZLINK  (CHTEXT,IXSTOR,CLA,LLA,CHOPT)
-#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
-#include "zebra/debugvf2.inc"
-#endif
-
-      CQSTAK = CHROUT//'/'
-      IQUEST(1) = 0
-
-      CALL DZOPT(CHOPT)
-
-      CALL MZSDIV(IXSTOR,-1)
-
-      CALL DZARE1(CHTEXT,CLA,LLA,CHOPT)
-
-  999 RETURN
-      END