my_util.f90

Go to the documentation of this file.

MODULE my_util
CONTAINS
!
!Authors: Jean-Luc Guermond, Lugi Quartapelle, Copyright 1994
!

FUNCTION user_time() RESULT(time)
  IMPLICIT NONE
  REAL(KIND=8) :: time 
  INTEGER :: count, count_rate, count_max
  CALL system_clock(count, count_rate, count_max)
  time = (1.d0*count)/count_rate
END FUNCTION user_time

SUBROUTINE error_petsc(string)
#include "petsc/finclude/petsc.h"
  USE petsc
  IMPLICIT NONE
  CHARACTER(LEN=*),       INTENT(IN) :: string
  INTEGER                            :: rank
  petscerrorcode :: ierr
  CALL mpi_comm_rank(petsc_comm_world,rank,ierr)
  IF (rank==0) WRITE(*,*) string
  CALL petscfinalize(ierr)
  stop
END SUBROUTINE error_petsc

END MODULE my_util