SUBROUTINE init_vampir
USE mpitrace

  CALL InitVampir
END SUBROUTINE init_vampir