Type | Intent | Optional | 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 |
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