This commit was generated by cvs2svn to compensate for changes in r2,

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgens / ublank.F

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgens/ublank.F b/MINICERN/packlib/kernlib/kerngen/tcgens/ublank.F
new file mode 100644 (file)
index 0000000..00de1bc
--- /dev/null
+++ b/MINICERN/packlib/kernlib/kerngen/tcgens/ublank.F
@@ -0,0 +1,22 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/02/15 17:50:14  mclareni
+* Kernlib
+*
+*
+#include "kerngen/pilot.h"
+      SUBROUTINE UBLANK (IV,JL,JR)
+C
+C CERN PROGLIB# V300    UBLANK          .VERSION KERNFOR  4.08  840613
+C ORIG. 01/01/65 JZ
+C
+      DIMENSION IV(80)
+      DATA IBL     /4H     /
+C
+C
+      DO 29 J=JL,JR
+   29 IV(J)= IBL
+      RETURN
+      END