MODULE trace


CONTAINS

  SUBROUTINE trace_start(name)
  IMPLICIT NONE
    CHARACTER(LEN=*),INTENT(IN) :: name 
#ifdef VTRACE
#include <vt_user.inc>
#endif 

#ifdef VTRACE
     VT_USER_START(name)
#endif

  END SUBROUTINE trace_start    

  SUBROUTINE trace_end(name)
  IMPLICIT NONE
#ifdef VTRACE
#include <vt_user.inc>
#endif 

    CHARACTER(LEN=*),INTENT(IN) :: name

#ifdef VTRACE
     VT_USER_END(name)
#endif

  END SUBROUTINE trace_end    

END MODULE trace