X-Git-Url: http://git.uio.no/git/?p=u%2Fmrichter%2FAliRoot.git;a=blobdiff_plain;f=MINICERN%2Fpacklib%2Fkernlib%2Fkerngen%2Ftcgens%2Fvmod.F;fp=MINICERN%2Fpacklib%2Fkernlib%2Fkerngen%2Ftcgens%2Fvmod.F;h=0000000000000000000000000000000000000000;hp=e686d4c717fd4812ff32422cd1fe5a7da69e1786;hb=b9d0a01d7a0723a09071b0b56200d72f59a9c2b6;hpb=9754311559f405f3949bf48d6883dd02a93e7088

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgens/vmod.F b/MINICERN/packlib/kernlib/kerngen/tcgens/vmod.F
deleted file mode 100644
index e686d4c717f..00000000000
--- a/MINICERN/packlib/kernlib/kerngen/tcgens/vmod.F
+++ /dev/null
@@ -1,26 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/02/15 17:50:18  mclareni
-* Kernlib
-*
-*
-#include "kerngen/pilot.h"
-      FUNCTION VMOD (A,N)
-C
-C CERN PROGLIB# F121    VMOD            .VERSION KERNFOR  1.0   710701
-C ORIG. 01/07/71
-C
-      DIMENSION A(*)
-C
-      XX= 0.
-      IF (N.LE.0)  GO TO 100
-      DO 9 I= 1,N
-    9 XX= XX + A(I)*A(I)
-      IF (XX.LE.0.)  GO TO 100
-      VMOD= SQRT (XX)
-      RETURN
-  100 VMOD = 0.
-      RETURN
-      END