10 INTEGER :: count, count_rate, count_max
11 CALL system_clock(count, count_rate, count_max)
12 time = (1.d0*count)/count_rate
17 CHARACTER(LEN=*),
INTENT(IN) :: string
19 #include "petsc/finclude/petsc.h"
20 petscerrorcode :: ierr
21 CALL mpi_comm_rank(petsc_comm_world,rank,ierr)
22 IF (rank==0)
WRITE(*,*) string
23 CALL petscfinalize(ierr)
real(kind=8) function user_time()
subroutine error_petsc(string)