diff --git a/src/provide_mpiid.irp.f b/src/provide_mpiid.irp.f new file mode 100644 index 0000000..8786ff4 --- /dev/null +++ b/src/provide_mpiid.irp.f @@ -0,0 +1,7 @@ +use iso_c_binding +BEGIN_PROVIDER [integer(C_SIZE_T), mpiid] + BEGIN_DOC + ! simply store the mpiid for pinting + END_DOC +END_PROVIDER +