para_init()

subroutine parautil::para_init

(

)

Definition at line 89 of file ompi_kronlininv.f08.

    use, intrinsic :: iso_c_binding
     
    integer :: mpierr

    !! start MPI section
    call mpi_init(mpierr)
    if (mpierr /= 0) then
       write(*,*) "call MPI_INIT(mpierr): mpierr /= 0"
       stop
    end if

    call mpi_comm_rank(mpi_comm_world, myrank, mpierr)
    call mpi_comm_size(mpi_comm_world, numcpus, mpierr)
    !! create mpi real and complex types
    call mpi_type_create_f90_real(pdigits,rexprange,dp_real_type,mpierr)
    !!call MPI_Type_create_f90_complex(pdigits,rexprange,complextype,error )

    if (myrank==masterrank) print*,"###>>>> Number of tasks:",numcpus

    

Here is the caller graph for this function: