cc hello.f
cc --------
cc This file contains code for testing the Fortran interface to TAU
cc It works with the Cray T3E F90 compiler with TAU.
cc-----------------------------------------------------------------------------

      subroutine HELLOWORLD(iVal)
        integer iVal
        integer profiler(2) / 0, 0 /
        save    profiler

        call TAU_PROFILE_TIMER(profiler,'HelloWorld()')
        call TAU_PROFILE_START(profiler)
cc Do something here...
 	print *, "Iteration = ", iVal
        call TAU_PROFILE_STOP(profiler)
cc       HelloWorld = iVal
      end

      program main
        integer i
        integer profiler(2) / 0, 0 /
        save    profiler

        call TAU_PROFILE_INIT()
        call TAU_PROFILE_TIMER(profiler, 'main()')
        call TAU_PROFILE_START(profiler)
        call TAU_PROFILE_SET_NODE(0)

      print *, "test program"

        do 10, i = 1, 10
        call HELLOWORLD(i)
10      continue
        call TAU_PROFILE_STOP(profiler)
      end