The Init method of AliITSreconstruction has to be called by the user. This was done...
[u/mrichter/AliRoot.git] / ISAJET / isatape / movlev.F
1 #include "isajet/pilot.h"
2 #if defined(CERNLIB_MOVEFTN)
3       SUBROUTINE MOVLEV(A,B,N)
4 C
5 C          Replacement for CDC system routine.
6 C          Move N consecutive locations from A to B.
7 C          Ver. 7.02: Separate entry points for real, integer, logical
8 C                     to comply with strict Fortran standard.
9 C                     Hence incompatible with CDC -- CDC version is 
10 C                     therefore obsolete, like the computer.
11 C
12 #if defined(CERNLIB_IMPNONE)
13       IMPLICIT NONE
14 #endif
15 #include "isajet/itapes.inc"
16       INTEGER N,I
17       REAL A(N),B(N)
18       INTEGER IA(N),IB(N)
19       LOGICAL LA(N),LB(N)
20 C          Reals
21       DO 100 I=1,N
22         B(I)=A(I)
23 100   CONTINUE
24       RETURN
25 C          Integers
26       ENTRY MOVLEI(IA,IB,N)
27       DO 200 I=1,N
28         IB(I)=IA(I)
29 200   CONTINUE
30       RETURN
31 C          Logicals
32       ENTRY MOVLEL(LA,LB,N)
33       DO 300 I=1,N
34         LB(I)=LA(I)
35 300   CONTINUE
36       RETURN
37       END
38 #endif