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