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