BROWSER/doc_surf81/get__proc__id_8F90_source.html

 FUNCTION get_proc_id() RESULT(PID)

 USE parkind1  ,ONLY : jpim
 #ifdef SFX_MPI
 USE mpl_module, ONLY : mpl_rank
 #endif
 IMPLICIT NONE
 INTEGER(KIND=JPIM) :: PID
 #ifdef SFX_MPI
 pid = mpl_rank
 #else
 pid = 0
 #endif

 END FUNCTION get_proc_id
parkind1::jpim
integer, parameter jpim
Definition: parkind1.F90:13

get_proc_id
integer(kind=jpim) function get_proc_id()
Definition: get_proc_id.F90:2

parkind1
Definition: parkind1.F90:1

mpl_module
Definition: mpl_module.F90:1