Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=8), | intent(inout), | dimension(:) | :: | x | ||
complex(kind=8), | intent(in), | dimension(size(x)) | :: | Fx | ||
real(kind=8), | intent(in) | :: | alpha |
subroutine c_linear_mix_1(x,Fx,alpha) complex(8),intent(inout),dimension(:) :: x complex(8),intent(in),dimension(size(x)) :: Fx real(8),intent(in) :: alpha x = x + alpha*Fx end subroutine c_linear_mix_1