SUBROUTINE SSWTCH(INUM,ITARG)
       ITARG=0
       RETURN
       END