subroutine prini()
   return
 entry prin()
   call messpr()
   return
end subroutine

