timer_f.f90

Go to the documentation of this file.

MODULE timer

  USE base_routines
  USE constants
  USE base_routines
  USE iso_c_binding
  USE iso_varying_string

#include "macros.h"  

  IMPLICIT NONE

  PRIVATE

  !Module parameters

  !Module variables
  
  !CPU time parameters
  INTEGER(INTG), PARAMETER :: user_cpu=1
  INTEGER(INTG), PARAMETER :: system_cpu=2
  INTEGER(INTG), PARAMETER :: total_cpu=3
  
  !Module variables

  !Interfaces

  INTERFACE

    SUBROUTINE cputimer(RETURN_TIME, TIME_TYPE, ERR, CERROR) BIND(C,NAME="CPUTimer")
      USE iso_c_binding
      REAL(C_DOUBLE), INTENT(OUT) :: RETURN_TIME
      INTEGER(C_INT), INTENT(IN) :: TIME_TYPE
      INTEGER(C_INT), INTENT(OUT) :: ERR
      CHARACTER(C_CHAR), INTENT(OUT) :: CERROR(*)
    END SUBROUTINE cputimer

  END INTERFACE

  PUBLIC user_cpu,system_cpu,total_cpu,cpu_timer

CONTAINS

  !
  !============================================================================
  !

  SUBROUTINE cpu_timer(TIME_TYPE,TIME,ERR,ERROR,*)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: TIME_TYPE
    REAL(SP), INTENT(OUT) :: TIME(*)
    INTEGER(INTG), INTENT(OUT) :: ERR
    TYPE(varying_string), INTENT(OUT) :: ERROR
    !Local variables
    REAL(DP) :: RETURN_TIME
    CHARACTER(KIND=C_CHAR,LEN=MAXSTRLEN) :: CERROR

    enters("CPU_TIMER",err, error,*999)
    
    CALL cputimer(return_time,time_type,err,cerror)
    time(1)=REAL(return_time,sp)
    IF(err/=0) CALL flagerror(cerror,err,error,*999)
    
    exits("CPU_TIMER")
    RETURN
999 errorsexits("CPU_TIMER",err,error)
    RETURN 1
  END SUBROUTINE cpu_timer

  !
  !============================================================================
  !

END MODULE timer