Subroutine chstof2

subroutine chstof2

end subroutine chstof2