[u/mrichter/AliRoot.git] / ISAJET / isatape / movlev.F

#include "isajet/pilot.h"
#if defined(CERNLIB_MOVEFTN)
      SUBROUTINE MOVLEV(A,B,N)
C
C          Replacement for CDC system routine.
C          Move N consecutive locations from A to B.
C          Ver. 7.02: Separate entry points for real, integer, logical
C                     to comply with strict Fortran standard.
C                     Hence incompatible with CDC -- CDC version is 
C                     therefore obsolete, like the computer.
C
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#include "isajet/itapes.inc"
      INTEGER N,I
      REAL A(N),B(N)
      INTEGER IA(N),IB(N)
      LOGICAL LA(N),LB(N)
C          Reals
      DO 100 I=1,N
        B(I)=A(I)
100   CONTINUE
      RETURN
C          Integers
      ENTRY MOVLEI(IA,IB,N)
      DO 200 I=1,N
        IB(I)=IA(I)
200   CONTINUE
      RETURN
C          Logicals
      ENTRY MOVLEL(LA,LB,N)
      DO 300 I=1,N
        LB(I)=LA(I)
300   CONTINUE
      RETURN
      END
#endif
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