1 #include "isajet/pilot.h"
2 #if defined(CERNLIB_MOVEFTN)
3 SUBROUTINE MOVLEV(A,B,N)
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.
12 #if defined(CERNLIB_IMPNONE)
15 #include "isajet/itapes.inc"