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

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgenc/mpwgs/jumpxn.F b/MINICERN/packlib/kernlib/kerngen/tcgenc/mpwgs/jumpxn.F
deleted file mode 100644
index d18f8168c66..00000000000
--- a/MINICERN/packlib/kernlib/kerngen/tcgenc/mpwgs/jumpxn.F
+++ /dev/null
@@ -1,64 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/02/15 17:50:40  mclareni
-* Kernlib
-*
-*
-      SUBROUTINE JUMPX2 (IPARA,IPARB)
-C
-C CERN PROGLIB# Z042    JUMPX2          .VERSION KERNMPW  1.00  891208
-C ORIG. 21/04/88 FCA
-C
-C-    To transfer to the user routine TARGET (say) with 2 parameters
-C-    three steps are needed :
- 
-C- 1) EXTERNAL TARGET              to get the address of TARGET
-C-    IADR = JUMPAD (TARGET)
- 
-C- 2) CALL JUMPST (IADR)           to set the tranfer address
- 
-C- 3) CALL JUMPX2 (par1,par2)      to transfer
- 
-      DIMENSION IPARA(9), IPARB(9)
- 
-      SAVE      JTARGE
- 
-      CALL JUMPY2 (%VAL(JTARGE),IPARA,IPARB)
-      RETURN
- 
-      ENTRY JUMPX1 (IPARA)
- 
-      CALL JUMPY1 (%VAL(JTARGE),IPARA)
-      RETURN
- 
-      ENTRY JUMPX0
- 
-      CALL JUMPY0 (%VAL(JTARGE))
-      RETURN
- 
-      ENTRY JUMPST (JADR)
- 
-      JTARGE = JADR
-      END
-C-----------------------------------------------------
-      SUBROUTINE JUMPY2 (TARSUB,IPARA,IPARB)
-      DIMENSION IPARA(9), IPARB(9)
-      EXTERNAL  TARSUB
- 
-      CALL TARSUB (IPARA,IPARB)
-      END
-C-----------------------------------------------------
-      SUBROUTINE JUMPY1 (TARSUB,IPARA)
-      DIMENSION IPARA(9)
-      EXTERNAL  TARSUB
- 
-      CALL TARSUB (IPARA)
-      END
-C-----------------------------------------------------
-      SUBROUTINE JUMPY0 (TARSUB)
-      EXTERNAL  TARSUB
- 
-      CALL TARSUB
-      END