rexch Subroutine

subroutine rexch(a, b)

Arguments

Type	Intent	Optional	Attributes		Name
double precision				::	a
double precision				::	b

Contents

Source Code

rexch

Source Code

      subroutine rexch(a,b)
      double precision a,b,z
      z=a
      a=b
      b=z
      end subroutine rexch