d_linear_mix_7 Subroutine

subroutine d_linear_mix_7(x, Fx, alpha)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(inout), dimension(:,:,:,:,:,:,:) :: x
real(kind=8), intent(in), dimension(size(x,1),size(x,2),size(x,3),size(x,4),size(x,5),size(x,6),size(x,7)) :: Fx
real(kind=8), intent(in) :: alpha

Source Code

subroutine d_linear_mix_7(x,Fx,alpha)
  real(8),intent(inout),dimension(:,:,:,:,:,:,:)                                                      :: x
  real(8),intent(in),dimension(size(x,1),size(x,2),size(x,3),size(x,4),size(x,5),size(x,6),size(x,7)) :: Fx
  real(8),intent(in)                                                                                  :: alpha
  x = x + alpha*Fx
end subroutine d_linear_mix_7