00100 SUBROUTINE EXPUNG 00200 C 00300 C DUMMY ROUTINE UNTIL WE CAN LOCATE THE CORRECT SOURCE. 00400 C 00500 C H. D. TODD, WESLEYAN UNIVERSITY, MARCH 81 00600 C 00700 RETURN 00800 END