C OTST22.FOR C C Module for overlay testing of DOHAND. SUBROUTINE S22A TYPE *, ' S22A running' END SUBROUTINE S22B TYPE *, ' S22B running' CALL S11A END