]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - MINICERN/packlib/kernlib/kerngen/tcgen/ie3tod.F
Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / ie3tod.F
diff --git a/MINICERN/packlib/kernlib/kerngen/tcgen/ie3tod.F b/MINICERN/packlib/kernlib/kerngen/tcgen/ie3tod.F
deleted file mode 100644 (file)
index 726f63c..0000000
+++ /dev/null
@@ -1,30 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/02/15 17:49:46  mclareni
-* Kernlib
-*
-*
-#include "kerngen/pilot.h"
-#if defined(CERNLIB_QMIRTD)
-#include "irtdgs/ie3tod.F"
-#elif defined(CERNLIB_QMVAX)
-#include "vaxgs/ie3tod.F"
-#else
-      SUBROUTINE IE3TOD (MS,MT,NDPN,JBAD)
-C
-C CERN PROGLIB# M220    IE3TOD          .VERSION KERNFOR  4.15  861204
-
-C-    Convert double precision for input with copy
-C-    from source in IEEE to target in native data format
-C-    Dummy routine valid for machines with IEEE internal repr.
-
-      DIMENSION    MS(99), MT(99)
-
-      CALL UCOPY (MS,MT,2*NDPN)
-
-      JBAD = 0
-      RETURN
-      END
-#endif