swap_cm Subroutine

public subroutine swap_cm(a, b)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=SPC),	intent(inout),		DIMENSION(:,:)	::	a
complex(kind=SPC),	intent(inout),		DIMENSION(:,:)	::	b

Contents

Source Code

swap_cm

Source Code

	SUBROUTINE swap_cm(a,b)
	COMPLEX(SPC), DIMENSION(:,:), INTENT(INOUT) :: a,b
	COMPLEX(SPC), DIMENSION(size(a,1),size(a,2)) :: dum
	dum=a
	a=b
	b=dum
	END SUBROUTINE swap_cm