C OTST21.FOR C C Module for overlay testing of DOHAND. SUBROUTINE S21A TYPE *, ' S21A running' END SUBROUTINE S21B TYPE *, ' S21B running' END