subroutine initcom()
end subroutine initcom