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

[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / u / u100fc.F.ori

diff --git a/MINICERN/mathlib/gen/u/u100fc.F.ori b/MINICERN/mathlib/gen/u/u100fc.F.ori
deleted file mode 100644 (file)
index a76ba62..0000000
--- a/MINICERN/mathlib/gen/u/u100fc.F.ori
+++ /dev/null
@@ -1,21 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/04/01 15:01:45  mclareni
-* Mathlib gen
-*
-*
-#include "gen/pilot.h"
-      SUBROUTINE U100FC (I,K)
-      DIMENSION K(40), L(40)
-      CALL VZERO (K, 40)
-      IF(I)  4,3,2
-    4 K(1)=-77
-      RETURN
-    2 DO 5  JK=1,I
-      CALL U100PR(JK,L,M)
-      DO 5 JM=1,40
-    5 K(JM)=K(JM)+L(JM)
-    3 RETURN
-      END