      SUBROUTINE A2AN (IA,JA,N)EC_TITLE  A2AN  Move or shift an INTEGER*2 array to another I*2 array.C_ARGUMENTS/	INTEGER*2 IA(*)  ! [I] Array to move or shift.)	INTEGER*2 JA(*)  ! [O] Destination array3	INTEGER N	 ! [I] Number of items in array to move.C_DESCRIPTION  :C The subroutine A2AN moves an Integer *2 array to anotherC Integer *2 array.C_CALLS  %LOC FN#C_HISTORY 81Nov19 R.Mehlman  UCLA  GC 87JUL20 Robert L. Gurule, USGS Flagstaff, AZ. NIMS/VIMS DocumentationC standards.C_END      IF (N.LE.0) GO TO 30C-----Which end to start loop?%      IF (%LOC(JA)-%LOC(IA)) 10,30,20
C-----Forward 10   DO 15 I=1,N 15     JA(I)=IA(I)        GO TO 30C-----Backward
 20   NP1=N+1      DO 25 I=1,N        J=NP1-I 25   JA(J)=IA(J) 30   RETURN	      END