subroutine init_countperf(lat)
      integer lat
      return
      end
      subroutine countperf(flag,ic,nop)
      integer flag,ic
      real nop
      return
      end
      subroutine end_countperf()
      return
      end
      subroutine write_countperf(npes,me,hours)
      integer npes,me
      real hours
      return
      end
      subroutine synchro
      return
      end
      FUNCTION timer()
      integer timer
      timer=0.
      return
      end
      subroutine synctime()
      return
      end