proc_message Function

private function proc_message()

Uses

Arguments

None

Return Value character(len=16)


Contents

Source Code

proc_message

Source Code

  function proc_message()
    use mp, only: iproc
    character(16) :: proc_message
    write(proc_message, '(A10,I2)') ' on iproc ', iproc
  end function proc_message