SUBROUTINE  LIST (FUNC, ARG1, ARG2)   
      INTEGER     FUNC, ARG1, ARG2  
    
      INTEGER     LISTF,  SNLPRT, SUMPRT, SYMFLG
      INTEGER     PRINTF, SKIP,   COMPFL (2)
      INTEGER     LOCPRT, USFLGS, NEGFLG, SKNAME (8)
      INTEGER     ORGFLG, CTLUSE, CTLERR, TTL (8)   
      INTEGER     DUMFLG
      INTEGER ICLP01
      COMMON      /CTLCOM/    LISTF,  SNLPRT, SUMPRT, SYMFLG
      COMMON      /CTLCOM/    PRINTF, SKIP,   COMPFL
      COMMON      /CTLCOM/    LOCPRT, USFLGS, NEGFLG, SKNAME
      COMMON      /CTLCOM/    ORGFLG, CTLUSE, CTLERR, TTL   
      COMMON      /CTLCOM/    DUMFLG
      COMMON      /CTLCOM/ ICLP01   
      EXTERNAL    OLLST 
      IF (.NOT. (LISTF .NE. 0 .AND. PRINTF .NE. 0))GO TO 13000  
    
      CALL OLIST (FUNC, ARG1, ARG2) 
13000 CONTINUE  
    
      RETURN
      END