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

[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / f / cbabk2.F

diff --git a/MINICERN/mathlib/gen/f/cbabk2.F b/MINICERN/mathlib/gen/f/cbabk2.F
deleted file mode 100644 (file)
index 6bc4702..0000000
--- a/MINICERN/mathlib/gen/f/cbabk2.F
+++ /dev/null
@@ -1,38 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/04/01 15:02:33  mclareni
-* Mathlib gen
-*
-*
-#include "gen/pilot.h"
-      SUBROUTINE CBABK2(NM,N,LOW,IGH,SCALE,M,ZR,ZI)
-      INTEGER I,J,K,M,N,II,NM,IGH,LOW
-      REAL SCALE(N),ZR(NM,M),ZI(NM,M)
-      REAL S
-      IF (IGH .EQ. LOW) GO TO 120
-      DO 110 I = LOW, IGH
-         S = SCALE(I)
-         DO 100 J = 1, M
-            ZR(I,J) = ZR(I,J) * S
-            ZI(I,J) = ZI(I,J) * S
-  100    CONTINUE
-  110 CONTINUE
-  120 DO 140 II = 1, N
-         I = II
-         IF (I .GE. LOW .AND. I .LE. IGH) GO TO 140
-         IF (I .LT. LOW) I = LOW - II
-         K = SCALE(I)
-         IF (K .EQ. I) GO TO 140
-         DO 130 J = 1, M
-            S = ZR(I,J)
-            ZR(I,J) = ZR(K,J)
-            ZR(K,J) = S
-            S = ZI(I,J)
-            ZI(I,J) = ZI(K,J)
-            ZI(K,J) = S
-  130    CONTINUE
-  140 CONTINUE
-      RETURN
-      END