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