rinit Subroutine

public subroutine rinit(n, a)

Setting the first N values of a real (kind=dp) array A to zero

Note

Maybe it can be replaced by calls susch as A(1:N)=0.0d0

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n

Number of entries to set to zero
real(kind=dp), intent(inout), dimension(*) :: a

Array which entries will be set to zero