close Subroutine

    subroutine close (self)
        class(pif_h5part_type), intent(inout) :: self
        integer(8) :: istat

        istat = h5pt_close(self%fid)
        close (self%fid_stat)
        if (pif_obj%numbers(5) /= 0) then
            close (self%fid_float)
        end if

    end subroutine close