src/ck-core/charmmod.f90

   1 module charm
   2   integer*8, external :: CmiMemoryUsage
   3   integer*8, external :: CmiMaxMemoryUsage
   4   real*8,    external :: CmiWallTimer
   5   real*8,    external :: CkWallTimer
   6   real*8,    external :: CmiCpuTimer
   7   real*8,    external :: CkCpuTimer
   8
   9   INTERFACE
  10       SUBROUTINE initbigsimtrace(outputParams, outputtiming)
  11          INTEGER outputParams, outputtiming
  12       END SUBROUTINE
  13       SUBROUTINE endtracebigsim1(e,step,p1)
  14          CHARACTER* (*)  e
  15          INTEGER step
  16          DOUBLE PRECISION p1
  17       END SUBROUTINE
  18       SUBROUTINE endtracebigsim2(e,step,p1,p2)
  19          CHARACTER* (*)  e
  20          INTEGER step
  21          DOUBLE PRECISION p1,p2
  22       END SUBROUTINE
  23       SUBROUTINE endtracebigsim3(e,step,p1,p2,p3)
  24          CHARACTER* (*)  e
  25          INTEGER step
  26          DOUBLE PRECISION p1,p2,p3
  27       END SUBROUTINE
  28       SUBROUTINE endtracebigsim4(e,step,p1,p2,p3,p4)
  29          CHARACTER* (*)  e
  30          INTEGER step
  31          DOUBLE PRECISION p1,p2,p3,p4
  32       END SUBROUTINE
  33       SUBROUTINE endtracebigsim5(e,step,p1,p2,p3,p4,p5)
  34          CHARACTER* (*)  e
  35          INTEGER step
  36          DOUBLE PRECISION p1,p2,p3,p4,p5
  37       END SUBROUTINE
  38       SUBROUTINE endtracebigsim6(e,step,p1,p2,p3,p4,p5,p6)
  39          CHARACTER* (*)  e
  40          INTEGER step
  41          DOUBLE PRECISION p1,p2,p3,p4,p5,p6
  42       END SUBROUTINE
  43       SUBROUTINE endtracebigsim7(e,step,p1,p2,p3,p4,p5,p6,p7)
  44          CHARACTER* (*)  e
  45          INTEGER step
  46          DOUBLE PRECISION p1,p2,p3,p4,p5,p6,p7
  47       END SUBROUTINE
  48       SUBROUTINE endtracebigsim8(e,step,p1,p2,p3,p4,p5,p6,p7,p8)
  49          CHARACTER* (*)  e
  50          INTEGER step
  51          DOUBLE PRECISION p1,p2,p3,p4,p5,p6,p7,p8
  52       END SUBROUTINE
  53       SUBROUTINE endtracebigsim9(e,step,p1,p2,p3,p4,p5,p6,p7,p8,p9)
  54          CHARACTER* (*)  e
  55          INTEGER step
  56          DOUBLE PRECISION p1,p2,p3,p4,p5,p6,p7,p8,p9
  57       END SUBROUTINE
  58       SUBROUTINE endtracebigsim10(e,step,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10)
  59          CHARACTER* (*)  e
  60          INTEGER step
  61          DOUBLE PRECISION p1,p2,p3,p4,p5,p6,p7,p8,p9,p10
  62       END SUBROUTINE
  63       SUBROUTINE endtracebigsim11(e,step,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11)
  64          CHARACTER* (*)  e
  65          INTEGER step
  66          DOUBLE PRECISION p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11
  67       END SUBROUTINE
  68    END INTERFACE
  69 end module charm