XQH4 (124)    ROUTINE (9.8)