Merging the VirtualMC branch to the main development branch (HEAD)

[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / j / names.F

diff --git a/MINICERN/mathlib/gen/j/names.F b/MINICERN/mathlib/gen/j/names.F
deleted file mode 100644 (file)
index 116449a..0000000
--- a/MINICERN/mathlib/gen/j/names.F
+++ /dev/null
@@ -1,34 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/04/01 15:02:51  mclareni
-* Mathlib gen
-*
-*
-#include "gen/pilot.h"
-      SUBROUTINE NAMES(NXARG,NYARG)
-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-C   PURPOSE                                                            C
-C     TO DEFINE WHICH LABELS SHALL BE PRINTED AT THE AXES BY           C
-C     SUBSEQUENT CALLS TO THE SUBROUTINE CONT.                         C
-C   USAGE                                                              C
-C     IF YOU FOR EXAMPLE WANT THE WORD KSI TO BE PRINTED AT THE        C
-C     HORIZONTAL AXIS AND THE WORD ETA TO BE PRINTED AT THE VERTICAL   C
-C     AXIS, EXECUTE THE STATEMENT                                      C
-C     CALL NAMES(NXARG,NYARG)                                          C
-C     BEFORE THE CALL TO CONT.WHERE -                                  C
-C     DATA NXARG,NYARG/6HKSI   ,6HETA   /
-C   PARAMETERS                                                         C
-C     NXARG  -  THE NAME TO BE PRINTED AT THE HORIZONTAL AXIS.         C
-C     NYARG  -  THE NAME TO BE PRINTED AT THE VERTICAL AXIS.           C
-C   REMARKS                                                            C
-C     THE DEFAULT OPTION OF BLANK NAMES IS AUTOMATICALLY PROVIDED.     C
-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      COMMON /J509C1/XBL,YBL,XUR,YUR,NX(6),NY(6),LETT1,LETT2,LINE1,LINE2
-C
-      CALL J509BD
-      CALL UBLOW(NXARG,NX,6)
-      CALL UBLOW(NYARG,NY,6)
-      RETURN
-      END