subroutine ZERO_MOFIA ! Calls call HRESET call reset_ss call zero_error call zero_fail_count call zero_fail_total call zero_scaler_count call zero_scaler_total ! Variables integer (kind=4) :: i integer (kind=4) :: idummy end subroutine ZERO_MOFIA
integer (kind=4) :: i
integer (kind=4) :: idummy