call unit_check(‘pltxxt’, 0.eq.0, ‘checking’,100)
subroutine test_pltxxt() call unit_check_start('pltxxt',msg='') !!call unit_check('pltxxt', 0.eq.0, 'checking',100) call unit_check_done('pltxxt',msg='') end subroutine test_pltxxt