comm_mpi.f File Reference

Functions/Subroutines
subroutine	iniproc (intracomm)
subroutine	init_nek_comm (intracomm)
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

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

(

intracomm

)

init_nek_comm()

subroutine init_nek_comm

(

intracomm

)

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

(

)

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

(

)

xor()

integer function xor	(		m,
			n
	)