gather.F

Go to the documentation of this file.

      SUBROUTINE gather(N,A,B,IND)
!
      USE parkind1, ONLY : jpim, jprb
!
      IMPLICIT NONE
!
      INTEGER(KIND=JPIM) :: N
      INTEGER(KIND=JPIM) :: IND(n)
      INTEGER(KIND=JPIM) :: I
      REAL(KIND=JPRB) :: A(n)
      REAL(KIND=JPRB) :: B(*)
!
!  GATHER - Gathers a vector from a source vector
!
      DO 100 i=1,n
      a(i)=b(ind(i))
 100  CONTINUE
!
      ENDSUBROUTINE gather