ScalES-PPM
Loading...
Searching...
No Matches
ppm_base.f90 File Reference

Fortran 90 interface to core functions. More...

Functions/Subroutines

subroutine, public ppm_base::abort_ppm (msg, source, line, comm)
 this should go into a wrapper module
 
subroutine, public ppm_base::set_default_comm (comm)
 change value of default communicator object used in library calls parallel routines in the library will assume that all participating processes are organized in this communicator
 
subroutine, public ppm_base::set_abort_handler (f)
 set routine f to use as abort function which is called on ppm_abort
 
subroutine restore_default_abort_handler
 
subroutine assertion (cond, source, line, msg)
 check invariant and call abort_ppm if false
 

Variables

integer, parameter, public ppm_base::mpi_comm_world = 0
 communicator object to use by default
 
integer, public ppm_base::ppm_default_comm
 communicator object to use by default
 

Detailed Description

Fortran 90 interface to core functions.

Version
1.0
Author
Thomas Jahns jahns.nosp@m.@dkr.nosp@m.z.de

Function/Subroutine Documentation

◆ abort_ppm()

subroutine, public ppm_base::abort_ppm ( character(len=*), intent(in) msg,
character(len=*), intent(in) source,
integer, intent(in) line,
integer, intent(in), optional comm )

this should go into a wrapper module

abort operation in library, this will call the function reference assigned to PPM_abort on the C side and substitute non-provided optional dummy arguments as needed.

Parameters
msgtext to write to standard error
sourcestring describing source file name
lineline number of caller
commcommunicator to use in PPM_abort call, defaults to ppm_default_comm if not given

◆ assertion()

subroutine set_abort_handler::assertion ( logical, intent(in) cond,
character(len=*), intent(in), optional source,
integer, intent(in), optional line,
character(len=*), intent(in), optional msg )
private

check invariant and call abort_ppm if false

Parameters
condinvariant to test
sourcestring describing source file name
lineline number of caller
msgtext to use as diagnostic message

◆ restore_default_abort_handler()

subroutine set_abort_handler::restore_default_abort_handler ( void )
private

Restore default abort handler.

Das diesem Bericht zugrundeliegende Vorhaben wurde mit Mitteln des Bundesministeriums für Bildung, und Forschung unter dem Förderkennzeichen 01IH08004E gefördert. Die Verantwortung für den Inhalt dieser Veröffentlichung liegt beim Autor.