Subroutine chtrfm2

subroutine chtrfm2

end subroutine chtrfm2