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