]>
Commit | Line | Data |
---|---|---|
0795afa3 | 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 |