mirror of https://github.com/LCPQ/DEHam
8 lines
141 B
FortranFixed
8 lines
141 B
FortranFixed
|
use iso_c_binding
|
||
|
|
BEGIN_PROVIDER [integer(C_SIZE_T), mpiid]
|
||
|
|
BEGIN_DOC
|
||
|
|
! simply store the mpiid for pinting
|
||
|
|
END_DOC
|
||
|
|
END_PROVIDER
|
||
|
|
|