SUBROUTINE RPN_COMM_finalize( ierr)
call RPN_COMM_init(...)
... some RPN_COMM code
call RPN_COMM_finalize(ierr)
stop
end