comm_mpi.f File Reference

Functions/Subroutines
subroutine	setupcomm (comm, newcomm, newcommg, path_in, session_in)
subroutine	iniproc ()
subroutine	gop (x, w, op, n)
subroutine	igop (x, w, op, n)
subroutine	i8gop (x, w, op, n)
subroutine	csend (mtype, buf, len, jnid, jpid)
subroutine	crecv (mtype, buf, lenm)
subroutine	crecv2 (mtype, buf, lenm, jnid)
subroutine	crecv3 (mtype, buf, len, lenm)
integer function	numnodes ()
integer function	mynode ()
real *8 function	dnekclock ()
real *8 function	dnekclock_sync ()
subroutine	lbcast (ifif)
subroutine	bcast (buf, len)
subroutine	create_comm (inewcomm)
function	isend (msgtag, x, len, jnid, jpid)
function	irecv (msgtag, x, len)
subroutine	msgwait (imsg)
subroutine	nekgsync ()
subroutine	exittr (stringi, rdata, idata)
subroutine	exitti (stringi, idata)
subroutine	err_chk (ierr, string)
subroutine	exitt0
subroutine	exitt
subroutine	print_runtime_info
subroutine	nek_die (ierr)
subroutine	fgslib_userexithandler (istatus)
subroutine	printheader
function	igl_running_sum (in)
subroutine	platform_timer (ivb)
subroutine	comm_test (ivb)
subroutine	pingpong (alphas, betas, nodea, nodeb, dt, io, ivb, kk)
subroutine	pingpongo (alphas, betas, nodea, nodeb, dt, io, ivb)
subroutine	get_msg_vol (msg_vol, dt, nodea, nodeb)
subroutine	gop_test (ivb)
subroutine	gp2_test (ivb)
integer function	xor (m, n)
subroutine	gp2 (x, w, op, n, nid, np)
subroutine	ping_loop1 (t1, t0, len, nloop, nodea, nodeb, nid, x, y)
subroutine	ping_loop2 (t1, t0, len, nloop, nodea, nodeb, nid, x, y)
subroutine	ping_loop (t1, t0, len, nloop, nodea, nodeb, nid, x1, y1, x2, y2)
integer *8 function	i8gl_running_sum (in)
subroutine	close_files
subroutine	neknekgsync ()
subroutine	setnekcomm (comm_in)

Function/Subroutine Documentation

bcast()

subroutine bcast	(	real*4, dimension(1)	buf,
			len
	)

close_files()

subroutine close_files

comm_test()

subroutine comm_test

(

ivb

)

create_comm()

subroutine create_comm

(

inewcomm

)

crecv()

subroutine crecv	(		mtype,
		real*4, dimension(1)	buf,
			lenm
	)

crecv2()

subroutine crecv2	(		mtype,
		real*4, dimension(1)	buf,
			lenm,
			jnid
	)

crecv3()

subroutine crecv3	(		mtype,
		real*4, dimension(1)	buf,
			len,
			lenm
	)

csend()

subroutine csend	(		mtype,
		real*4, dimension(1)	buf,
			len,
			jnid,
			jpid
	)

dnekclock()

real*8 function dnekclock

dnekclock_sync()

real*8 function dnekclock_sync

err_chk()

subroutine err_chk	(		ierr,
		character*1, dimension(132)	string
	)

exitt()

subroutine exitt

exitt0()

subroutine exitt0

exitti()

subroutine exitti	(	character*1, dimension(132)	stringi,
			idata
	)

exittr()

subroutine exittr	(	character*1, dimension(132)	stringi,
			rdata,
			idata
	)

fgslib_userexithandler()

subroutine fgslib_userexithandler

(

istatus

)

get_msg_vol()

subroutine get_msg_vol	(		msg_vol,
			dt,
			nodea,
			nodeb
	)

gop()

subroutine gop	(	real, dimension(n)	x,
		real, dimension(n)	w,
		character*3	op,
			n
	)

gop_test()

subroutine gop_test

(

ivb

)

gp2()

subroutine gp2	(	real, dimension(n)	x,
		real, dimension(n)	w,
		character*3	op,
			n,
			nid,
			np
	)

gp2_test()

subroutine gp2_test

(

ivb

)

i8gl_running_sum()

integer*8 function i8gl_running_sum

(

integer*8

in

)

i8gop()

subroutine i8gop	(	integer*8, dimension(n)	x,
		integer*8, dimension(n)	w,
		character*3	op,
			n
	)

igl_running_sum()

function igl_running_sum

(

in

)

igop()

subroutine igop	(	integer, dimension(n)	x,
		integer, dimension(n)	w,
		character*3	op,
			n
	)

iniproc()

subroutine iniproc

irecv()

function irecv	(		msgtag,
		integer, dimension(1)	x,
			len
	)

isend()

function isend	(		msgtag,
		integer, dimension(1)	x,
			len,
			jnid,
			jpid
	)

lbcast()

subroutine lbcast

(

logical

ifif

)

msgwait()

subroutine msgwait

(

imsg

)

mynode()

integer function mynode

nek_die()

subroutine nek_die

(

ierr

)

nekgsync()

subroutine nekgsync

neknekgsync()

subroutine neknekgsync

numnodes()

integer function numnodes

ping_loop()

subroutine ping_loop	(		t1,
			t0,
			len,
			nloop,
			nodea,
			nodeb,
			nid,
		real, dimension(1)	x1,
		real, dimension(1)	y1,
		real, dimension(1)	x2,
		real, dimension(1)	y2
	)

ping_loop1()

subroutine ping_loop1	(		t1,
			t0,
			len,
			nloop,
			nodea,
			nodeb,
			nid,
		real, dimension(1)	x,
		real, dimension(1)	y
	)

ping_loop2()

subroutine ping_loop2	(		t1,
			t0,
			len,
			nloop,
			nodea,
			nodeb,
			nid,
		real, dimension(1)	x,
		real, dimension(1)	y
	)

pingpong()

subroutine pingpong	(		alphas,
			betas,
			nodea,
			nodeb,
			dt,
			io,
			ivb,
			kk
	)

pingpongo()

subroutine pingpongo	(		alphas,
			betas,
			nodea,
			nodeb,
			dt,
			io,
			ivb
	)

platform_timer()

subroutine platform_timer

(

ivb

)

print_runtime_info()

subroutine print_runtime_info

printheader()

subroutine printheader

setnekcomm()

subroutine setnekcomm

(

integer

comm_in

)

setupcomm()

subroutine setupcomm	(	integer	comm,
		integer	newcomm,
		integer	newcommg,
		character, dimension(*)	path_in,
		character, dimension(*)	session_in
	)

xor()

integer function xor	(		m,
			n
	)