c_linear_mix_2 Subroutine

subroutine c_linear_mix_2(x, Fx, alpha)

Arguments

Type IntentOptional Attributes Name
complex(kind=8), intent(inout), dimension(:,:) :: x
complex(kind=8), intent(in), dimension(size(x,1),size(x,2)) :: Fx
real(kind=8), intent(in) :: alpha

Source Code

subroutine c_linear_mix_2(x,Fx,alpha)
  complex(8),intent(inout),dimension(:,:)              :: x
  complex(8),intent(in),dimension(size(x,1),size(x,2)) :: Fx
  real(8),intent(in)                                   :: alpha
  x = x + alpha*Fx
end subroutine c_linear_mix_2