MODULE testSubs
!
! This module is used to pass the required routines and description
! variable through to sdTest for the Kahan routines contained in
! the new hybrid module.
! The routine names are imported from the module nrm2HybridMod
! rather than nrm2_other and, because they are not the expected
! names, we need to change them via the USE statement.
! The description string is set here explicitly.
!  
USE nrm2HybridMod, ONLY: dnrm2=>dnrm2Kahan, dznrm2=>dznrm2Kahan, &
    scnrm2=>scnrm2Kahan, snrm2=>snrm2Kahan
CHARACTER (LEN=*), PARAMETER :: descript = &
  'the Kahan algorithm implementation'
END MODULE testSubs
