new subroutine XARS2