opctr_mod.F90

Go to the documentation of this file.

module opctr
!     OPCTR is a set of arrays for tracking the number of operations,
!     and number of calls for a particular subroutine
  use kinds, only : dp
  implicit none

  integer, parameter :: maxrts = 1000
  character(6) ::     rname(maxrts)

  real(DP) :: dcount,dct(maxrts),rct(maxrts)
  integer :: ncall(maxrts), nrout

  integer, save :: myrout,isclld
  data    myrout /0/
  data    isclld /0/

end module opctr