       SUBROUTINE MVINT (IA,JA,N)AC_TITLE  MVINT  Moves or shifts an integer array to source array.C_ARGUMENTS 	INTEGER IA(1) ![I] Source array&	INTEGER JA(1) ![O] Destination array 	INTEGER N     ![I] Length
C_DESCRIPTIONDC  The subroutine MVINT moves or shifts an integer array (INTEGER*2 =C  or INTEGER*4 according to system default) to source array.C_CALLS  %LOC FN7C_HISTORY  R.Mehlman  82Nov15  UCLA, RLG NIMS/VIMS DOC.C_END      IF (N.LE.0) GO TO 30!-----Which end to start loop?%      IF (%LOC(JA)-%LOC(IA)) 10,30,20!-----Forward. 10   DO 15 I=1,N 15     JA(I)=IA(I)      GO TO 30!-----Backward
 20   NP1=N+1      DO 25 I=1,N        J=NP1-I 25     JA(J)=IA(J) 30   RETURN	      END