twocmpseqNB Program

Uses

Variables

Type	Attributes		Name		Initial
integer,	parameter	::	npoints	=	24
integer		::	ier
integer		::	nprocs
integer		::	i
integer		::	color
integer		::	myrank
integer		::	comm1
integer		::	comm2
integer,	dimension(:), pointer	::	myids
integer,	dimension(:), pointer	::	req1
integer,	dimension(:), pointer	::	req2
type(GlobalSegMap)		::	GSMap1
type(GlobalSegMap)		::	GSMap2
type(AttrVect)		::	Av1
type(AttrVect)		::	Av2

Subroutines

subroutine model1init(comm1, req1, GSmap, av1)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	comm1
integer,			pointer	::	req1(:)
type(GlobalSegMap)				::	GSmap
type(AttrVect)				::	av1

subroutine model1(comm1, GSmap, av1)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	comm1
type(GlobalSegMap)				::	GSmap
type(AttrVect)				::	av1

subroutine model2init(comm2, req2, GSmap, av1)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	comm2
integer,			pointer	::	req2(:)
type(GlobalSegMap)				::	GSmap
type(AttrVect)				::	av1

subroutine model2(comm2, GSmap, av1)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	comm2
type(GlobalSegMap)				::	GSmap
type(AttrVect)				::	av1