C LSWON LOGICAL FUNCTION LSWON(ISW) C C LSWON - LOGICAL SWITCH ON C IMPLICIT LOGICAL (L) COMMON /LSWCM/ LSWTCH(16) C LSWON = LSWTCH(ISW+1) C C CHECK FOR REAL SWITCH 0 C IF (ISW .NE. 0) RETURN CALL SSWTCH (0, ISW0) LSWON = LSWON .OR. ISW0.EQ.1 RETURN END