renum_gps Module

$ $ subroutine realloc(vet,sz1,sz2) $ ! Performs on the fly reallocation of pointer VET changing its $ ! size from SZ1 to SZ2 $ implicit none $ ! $ integer, pointer :: vet(:), tmp(:) $ integer, intent(in) :: sz1, sz2 $ ! $ integer :: info $ $ allocate(tmp(sz2),stat=info) $ if(info /= 0) then $ write(,) 'ERROR! Memory allocation failure in REALLOC' $ stop $ end if $ $ tmp(1:sz1) = vet(1:sz1) $ $ deallocate(vet) $ vet => tmp $ $ end subroutine realloc

Contents

Variables

aux ideg idpth init n nacum nhigh nlow sizeg stpt xcc

Functions

sort2

Subroutines

reduce dgree fndiam number piklvl setup sortdg tree

Variables

Type	Visibility	Attributes		Name		Initial
integer,	private,	allocatable, target	::	aux(:)
integer,	private		::	ideg
integer,	private		::	idpth
integer,	private,	parameter	::	init	=	500
integer,	private		::	n
integer,	private,	allocatable, target	::	nacum(:)
integer,	private,	allocatable, target	::	nhigh(:)
integer,	private,	allocatable, target	::	nlow(:)
integer,	private,	allocatable	::	sizeg(:)
integer,	private,	allocatable	::	stpt(:)
integer,	private		::	xcc

Functions

private function sort2()

Arguments

None

Return Value integer

Subroutines

public subroutine reduce(ndstk, nr, d1, iold, renum, ndeg, ibw2, ipf2, idpth)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	ndstk(nr,d1)
integer				::	nr
integer				::	d1
integer				::	iold(nr)
integer				::	renum(nr+1)
integer				::	ndeg(nr)
integer				::	ibw2
integer				::	ipf2
integer				::	idpth

private subroutine dgree(ndstk, nr, ndeg, iold, ibw1, ipf1)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	ndstk
integer				::	nr
integer				::	ndeg
integer				::	iold
integer				::	ibw1
integer				::	ipf1

private subroutine fndiam(snd1, snd2, ndstk, nr, ndeg, lvl, lvls1, lvls2, iwk, idflt)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	snd1
integer				::	snd2
integer				::	ndstk
integer				::	nr
integer				::	ndeg
integer				::	lvl
integer				::	lvls1
integer				::	lvls2
integer				::	iwk
integer				::	idflt

private subroutine number(snd, num, ndstk, lvls2, ndeg, renum, lvlst, lstpt, nr, nflg, ibw2, ipf2, ipfa, isdir)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	snd
integer				::	num
integer				::	ndstk
integer				::	lvls2
integer				::	ndeg
integer				::	renum
integer				::	lvlst
integer				::	lstpt
integer				::	nr
integer				::	nflg
integer				::	ibw2
integer				::	ipf2
integer				::	ipfa
integer				::	isdir

private subroutine piklvl(lvls1, lvls2, ccstor, idflt, isdir)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	lvls1
integer				::	lvls2
integer				::	ccstor
integer				::	idflt
integer				::	isdir

private subroutine setup(lvl, lvls1, lvls2)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	lvl
integer				::	lvls1
integer				::	lvls2

private subroutine sortdg(stk1, stk2, x1, x2, ndeg)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	stk1
integer				::	stk2
integer				::	x1
integer				::	x2
integer				::	ndeg

private subroutine tree(iroot, ndstk, nr, lvl, iwk, ndeg, lvlwth, lvlbot, lvln, maxlw, ibort)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	iroot
integer				::	ndstk
integer				::	nr
integer				::	lvl
integer				::	iwk
integer				::	ndeg
integer				::	lvlwth
integer				::	lvlbot
integer				::	lvln
integer				::	maxlw
integer				::	ibort