! Module file: checkcv
!
! CNS module
! **********
!
! Authors: Axel Brunger and Paul Adams
!
! copyright Yale University
!
! Function:
!    Checks that test set selection is non-zero
!
! Requirements:
!    Needs to be called within xray

module {checkcv}

(
  &active;               {reciprocal space array}
  &test;                 {reciprocal space array}
)

set message ? end
evaluate ($message_old_cri=$result)
set echo ? end
evaluate ($echo_old_cri=$result)
if ( $log_level = verbose ) then
  set echo=on message=normal end
else
  set echo=off message=off end
end if

checkversion 1.3

show sum(1) ( &active=1 and &test=1 )

if ( $result <= 0 ) then
   display Error: no test set reflections are selected
   display        cross-validation is required
   display        please check the test set
   abort
end if

set message=$message_old_cri echo=$echo_old_cri end