Subroutine zero( n, a )! ----------------------------------------------------------------------      Use         numerics      Implicit    None      Integer  :: n      Real(l_) :: a(n)! ----------------------------------------------------------------------      a = 0.0_l_! ----------------------------------------------------------------------      End Subroutine zero