swap_zm Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. swap_zm

public subroutine swap_zm(a, b)

Arguments

Type IntentOptional AttributesName
complex(kind=DPC), intent(inout), DIMENSION(:,:):: a
complex(kind=DPC), intent(inout), DIMENSION(:,:):: b

Called by

proc~~swap_zm~~CalledByGraph proc~swap_zm swap_zm interface~swap swap interface~swap->proc~swap_zm

Contents

Source Code

swap_zm

Source Code

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