format procedure headers
new subroutine tmod_mat_virginize()