*IF DEF,C97_4A                                                             TIMER4A.2      

      SUBROUTINE TIMER(SUB,I)                                               924,33TIMER4A.3      
! Dummy routine called when no timing info is required                     TIMER4A.4      
      CHARACTER*(*) SUB                                                    TIMER4A.5      
      INTEGER I                                                            TIMER4A.6      
      RETURN                                                               TIMER4A.7      
      END                                                                  TIMER4A.8      
*ENDIF                                                                     TIMER4A.9