vexch Subroutine

  1. util.f90
  2. vexch

subroutine vexch(a, b, n)

Arguments

Type IntentOptional AttributesName
double precision :: a
double precision :: b
integer :: n

Called by

proc~~vexch~~CalledByGraph proc~vexch vexch proc~permop permop proc~permop->proc~vexch

Contents

Source Code

vexch

Source Code

      subroutine vexch(a,b,n)
      double precision a,b,z
      dimension a(*),b(*)
      do i=1,n
        z=a(i)
        a(i)=b(i)
        b(i)=z
      end do
      end subroutine vexch