Solution

      SUBROUTINE Proc()
       INTEGER, SAVE :: NumTimesCalled = 0
       NumTimesCalled = NumTimesCalled + 1
! ...
       PRINT*, "So far I've been called ",NumTimesCalled," times"
      END SUBROUTINE Proc