math.f File Reference

Functions/Subroutines
subroutine	icopy48 (a, b, n)
subroutine	icopy84 (a, b, n)
subroutine	blank (A, N)
subroutine	vsq (A, N)
subroutine	vsqrt (A, N)
subroutine	invers2 (a, b, n)
subroutine	invcol1 (a, n)
subroutine	invcol2 (a, b, n)
subroutine	invcol3 (a, b, c, n)
subroutine	col4 (a, b, c, d, n)
subroutine	xaddcol3 (a, b, c, n)
subroutine	addcol4 (a, b, c, d, n)
subroutine	ascol5 (a, b, c, d, e, n)
subroutine	sub2 (a, b, n)
subroutine	sub3 (a, b, c, n)
subroutine	subcol3 (a, b, c, n)
subroutine	subcol4 (a, b, c, d, n)
subroutine	rzero (a, n)
subroutine	izero (a, n)
subroutine	ione (a, n)
subroutine	rone (a, n)
subroutine	ltrue (a, n)
subroutine	cfill (a, b, n)
subroutine	ifill (ia, ib, n)
subroutine	copy (a, b, n)
subroutine	copyi4 (a, b, n)
subroutine	chcopy (a, b, n)
subroutine	icopy (a, b, n)
subroutine	i8copy (a, b, n)
subroutine	chsign (a, n)
subroutine	cmult (a, const, n)
subroutine	cadd (a, const, n)
subroutine	iadd (i1, iscal, n)
subroutine	cadd2 (a, b, const, n)
real function	vlmin (vec, n)
integer function	ivlmin (vec, n)
integer function	ivlmax (vec, n)
real function	vlmax (vec, n)
real function	vlamax (vec, n)
real function	vlsum (vec, n)
subroutine	vcross (u1, u2, u3, v1, v2, v3, w1, w2, w3, n)
subroutine	vdot2 (dot, u1, u2, v1, v2, n)
subroutine	vdot3 (dot, u1, u2, u3, v1, v2, v3, n)
subroutine	addtnsr (s, h1, h2, h3, nx, ny, nz)
function	ltrunc (string, l)
function	mod1 (i, n)
integer function	log2 (k)
subroutine	iflip (i1, n)
subroutine	iswap (b, ind, n, temp)
subroutine	col2 (a, b, n)
subroutine	col2c (a, b, c, n)
subroutine	col3 (a, b, c, n)
subroutine	add2 (a, b, n)
subroutine	add3 (a, b, c, n)
subroutine	addcol3 (a, b, c, n)
subroutine	add2s1 (a, b, c1, n)
subroutine	add2s2 (a, b, c1, n)
subroutine	add3s2 (a, b, c, c1, c2, n)
subroutine	add4 (a, b, c, d, n)
real function	vlsc2 (x, y, n)
real function	vlsc21 (x, y, n)
function	glsc3 (a, b, mult, n)
function	glsc2 (x, y, n)
function	glsc23 (x, y, z, n)
real function	gl2norm (a, n)
real function	gl2norm2 (a, n)
function	glsum (x, n)
real function	glamax (a, n)
real function	glamin (a, n)
function	iglmin (a, n)
function	iglmax (a, n)
function	iglsum (a, n)
subroutine	i8zero (a, n)
integer *8 function	i8glsum (a, n)
function	glmax (a, n)
function	glmin (a, n)
subroutine	gllog (la, lb)
function	fmdian (a, n, ifok)
subroutine	dcadd (a, const, n)
subroutine	dsub2 (a, b, n)
subroutine	dadd2 (a, b, n)
subroutine	chswapr (b, L, ind, n, temp)
subroutine	drcopy (r, d, N)
subroutine	rrcopy (r, d, N)
subroutine	sorts (xout, xin, work, n)
function	ivlsum (a, n)
subroutine	icadd (a, c, n)
subroutine	isort (a, ind, n)
subroutine	sort (a, ind, n)
subroutine	iswap_ip (x, p, n)
subroutine	iswapt_ip (x, p, n)
subroutine	swap_ip (x, p, n)
subroutine	swapt_ip (x, p, n)
subroutine	glvadd (x, w, n)
subroutine	add3s12 (x, y, z, c1, c2, n)
integer *8 function	i8glmax (a, n)
subroutine	admcol3 (a, b, c, d, n)
subroutine	add2col2 (a, b, c, n)
subroutine	add2sxy (x, a, y, b, n)
subroutine	col2s2 (x, y, s, n)
subroutine	transpose (a, lda, b, ldb)
subroutine	transpose1 (a, n)
real function	difmax (a, b, n)
function	glmin_ms (a, n)
function	glamin_ms (a, n)
function	glmax_ms (a, n)
function	glamax_ms (a, n)
function	glsum_ms (a, n)
function	iglsum_ms (a, n)
function	glsc3_ms (a, b, c, n)
function	glsc2_ms (a, b, n)
function	iglmax_ms (a, n)
function	iglmin_ms (a, n)

Function/Subroutine Documentation

add2()

subroutine add2	(	real, dimension(1)	a,
		real, dimension(1)	b,
			n
	)

add2col2()

subroutine add2col2	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
			n
	)

add2s1()

subroutine add2s1	(	real, dimension(1)	a,
		real, dimension(1)	b,
			c1,
			n
	)

add2s2()

subroutine add2s2	(	real, dimension(1)	a,
		real, dimension(1)	b,
			c1,
			n
	)

add2sxy()

subroutine add2sxy	(	real, dimension(1)	x,
			a,
		real, dimension(1)	y,
			b,
			n
	)

add3()

subroutine add3	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
			n
	)

add3s12()

subroutine add3s12	(	real, dimension(1)	x,
		real, dimension(1)	y,
		real, dimension(1)	z,
		real	c1,
		real	c2,
			n
	)

add3s2()

subroutine add3s2	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
			c1,
			c2,
			n
	)

add4()

subroutine add4	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
		real, dimension(1)	d,
			n
	)

addcol3()

subroutine addcol3	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
			n
	)

addcol4()

subroutine addcol4	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
		real, dimension(1)	d,
			n
	)

addtnsr()

subroutine addtnsr	(	dimension(nx,ny,nz)	s,
		dimension(1)	h1,
		dimension(1)	h2,
		dimension(1)	h3,
			nx,
			ny,
			nz
	)

admcol3()

subroutine admcol3	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
		real	d,
			n
	)

ascol5()

subroutine ascol5	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
		real, dimension(1)	d,
		real, dimension(1)	e,
			n
	)

blank()

subroutine blank	(	character*1, dimension(1)	A,
			N
	)

cadd()

subroutine cadd	(	real, dimension(1)	a,
			const,
			n
	)

cadd2()

subroutine cadd2	(	real, dimension(1)	a,
		real, dimension(1)	b,
			const,
			n
	)

cfill()

subroutine cfill	(	dimension(1)	a,
			b,
			n
	)

chcopy()

subroutine chcopy	(	character*1, dimension(1)	a,
		character*1, dimension(1)	b,
			n
	)

chsign()

subroutine chsign	(	real, dimension(1)	a,
			n
	)

chswapr()

subroutine chswapr	(	character*6, dimension(1)	b,
			L,
		integer, dimension(1)	ind,
			n,
		character*6, dimension(1)	temp
	)

cmult()

subroutine cmult	(	real, dimension(1)	a,
			const,
			n
	)

col2()

subroutine col2	(	real, dimension(1)	a,
		real, dimension(1)	b,
			n
	)

col2c()

subroutine col2c	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real	c,
			n
	)

col2s2()

subroutine col2s2	(	real, dimension(n)	x,
		real, dimension(n)	y,
			s,
			n
	)

col3()

subroutine col3	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
			n
	)

col4()

subroutine col4	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
		real, dimension(1)	d,
			n
	)

copy()

subroutine copy	(	real, dimension(1)	a,
		real, dimension(1)	b,
			n
	)

copyi4()

subroutine copyi4	(	integer, dimension(1)	a,
		real, dimension(1)	b,
			n
	)

dadd2()

subroutine dadd2	(	real*8, dimension(1)	a,
		real*8, dimension(1)	b,
			n
	)

dcadd()

subroutine dcadd	(	real*8, dimension(1)	a,
		real*8	const,
			n
	)

difmax()

real function difmax	(	real, dimension(1)	a,
		real, dimension(1)	b,
			n
	)

drcopy()

subroutine drcopy	(	dimension(1)	r,
		real*8, dimension(1)	d,
			N
	)

dsub2()

subroutine dsub2	(	real*8, dimension(1)	a,
		real*8, dimension(1)	b,
			n
	)

fmdian()

function fmdian	(	dimension(1)	a,
			n,
		logical	ifok
	)

gl2norm()

real function gl2norm	(	real, dimension(1)	a,
			n
	)

gl2norm2()

real function gl2norm2	(	real, dimension(n)	a,
			n
	)

glamax()

real function glamax	(	real, dimension(1)	a,
			n
	)

glamax_ms()

function glamax_ms	(	real, dimension(1)	a,
			n
	)

glamin()

real function glamin	(	real, dimension(1)	a,
			n
	)

glamin_ms()

function glamin_ms	(	real, dimension(1)	a,
			n
	)

gllog()

subroutine gllog	(	logical	la,
		logical	lb
	)

glmax()

function glmax	(	real, dimension(1)	a,
			n
	)

glmax_ms()

function glmax_ms	(	real, dimension(1)	a,
			n
	)

glmin()

function glmin	(	real, dimension(1)	a,
			n
	)

glmin_ms()

function glmin_ms	(	real, dimension(1)	a,
			n
	)

glsc2()

function glsc2	(	real, dimension(1)	x,
		real, dimension(1)	y,
			n
	)

glsc23()

function glsc23	(	real, dimension(1)	x,
		real, dimension(1)	y,
		real, dimension(1)	z,
			n
	)

glsc2_ms()

function glsc2_ms	(	real, dimension(1)	a,
		real, dimension(1)	b,
			n
	)

glsc3()

function glsc3	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	mult,
			n
	)

glsc3_ms()

function glsc3_ms	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
			n
	)

glsum()

function glsum	(	dimension(1)	x,
			n
	)

glsum_ms()

function glsum_ms	(	real, dimension(1)	a,
			n
	)

glvadd()

subroutine glvadd	(	real, dimension(1)	x,
		real, dimension(1)	w,
			n
	)

i8copy()

subroutine i8copy	(	integer*8, dimension(1)	a,
		integer*8, dimension(1)	b,
			n
	)

i8glmax()

integer*8 function i8glmax	(	integer*8, dimension(1)	a,
			n
	)

i8glsum()

integer*8 function i8glsum	(	integer*8, dimension(1)	a,
			n
	)

i8zero()

subroutine i8zero	(	integer*8, dimension(1)	a,
			n
	)

iadd()

subroutine iadd	(	dimension(1)	i1,
			iscal,
			n
	)

icadd()

subroutine icadd	(	integer, dimension(1)	a,
		integer	c,
			n
	)

icopy()

subroutine icopy	(	integer, dimension(1)	a,
		integer, dimension(1)	b,
			n
	)

icopy48()

subroutine icopy48	(	integer*8, dimension(1)	a,
		integer*4, dimension(1)	b,
			n
	)

icopy84()

subroutine icopy84	(	integer*4, dimension(1)	a,
		integer*8, dimension(1)	b,
			n
	)

ifill()

subroutine ifill	(	dimension(1)	ia,
			ib,
			n
	)

iflip()

subroutine iflip	(	dimension(1)	i1,
			n
	)

iglmax()

function iglmax	(	integer, dimension(1)	a,
			n
	)

iglmax_ms()

function iglmax_ms	(	integer, dimension(1)	a,
			n
	)

iglmin()

function iglmin	(	integer, dimension(1)	a,
			n
	)

iglmin_ms()

function iglmin_ms	(	integer, dimension(1)	a,
			n
	)

iglsum()

function iglsum	(	integer, dimension(1)	a,
			n
	)

iglsum_ms()

function iglsum_ms	(	integer, dimension(1)	a,
		integer	n
	)

invcol1()

subroutine invcol1	(	real, dimension(1)	a,
			n
	)

invcol2()

subroutine invcol2	(	real, dimension(1)	a,
		real, dimension(1)	b,
			n
	)

invcol3()

subroutine invcol3	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
			n
	)

invers2()

subroutine invers2	(	real, dimension(1)	a,
		real, dimension(1)	b,
			n
	)

ione()

subroutine ione	(	integer, dimension(1)	a,
			n
	)

isort()

subroutine isort	(	integer, dimension(1)	a,
		integer, dimension(1)	ind,
			n
	)

iswap()

subroutine iswap	(	integer, dimension(1)	b,
		integer, dimension(1)	ind,
			n,
		integer, dimension(1)	temp
	)

iswap_ip()

subroutine iswap_ip	(	integer, dimension(1)	x,
		integer, dimension(1)	p,
			n
	)

iswapt_ip()

subroutine iswapt_ip	(	integer, dimension(1)	x,
		integer, dimension(1)	p,
			n
	)

ivlmax()

integer function ivlmax	(	integer, dimension(1)	vec,
			n
	)

ivlmin()

integer function ivlmin	(	integer, dimension(1)	vec,
			n
	)

ivlsum()

function ivlsum	(	integer, dimension(1)	a,
			n
	)

izero()

subroutine izero	(	integer, dimension(1)	a,
			n
	)

log2()

integer function log2

(

k

)

ltrue()

subroutine ltrue	(	logical, dimension(1)	a,
			n
	)

ltrunc()

function ltrunc	(	character*1, dimension(l)	string,
			l
	)

mod1()

function mod1	(		i,
			n
	)

rone()

subroutine rone	(	dimension(1)	a,
			n
	)

rrcopy()

subroutine rrcopy	(	real*4, dimension(1)	r,
		real*4, dimension(1)	d,
			N
	)

rzero()

subroutine rzero	(	dimension(1)	a,
			n
	)

sort()

subroutine sort	(	real, dimension(1)	a,
		integer, dimension(1)	ind,
			n
	)

sorts()

subroutine sorts	(	real, dimension(1)	xout,
		real, dimension(1)	xin,
		real, dimension(1)	work,
			n
	)

sub2()

subroutine sub2	(	real, dimension(1)	a,
		real, dimension(1)	b,
			n
	)

sub3()

subroutine sub3	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
			n
	)

subcol3()

subroutine subcol3	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
			n
	)

subcol4()

subroutine subcol4	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
		real, dimension(1)	d,
			n
	)

swap_ip()

subroutine swap_ip	(	real, dimension(1)	x,
		integer, dimension(1)	p,
			n
	)

swapt_ip()

subroutine swapt_ip	(	real, dimension(1)	x,
		integer, dimension(1)	p,
			n
	)

transpose()

subroutine transpose	(	real, dimension(lda,1)	a,
			lda,
		real, dimension(ldb,1)	b,
			ldb
	)

transpose1()

subroutine transpose1	(	real, dimension(n,n)	a,
			n
	)

vcross()

subroutine vcross	(	dimension(1)	u1,
		dimension(1)	u2,
		dimension(1)	u3,
		dimension(1)	v1,
		dimension(1)	v2,
		dimension(1)	v3,
		dimension(1)	w1,
		dimension(1)	w2,
		dimension(1)	w3,
			n
	)

vdot2()

subroutine vdot2	(	dimension(1)	dot,
		dimension(1)	u1,
		dimension(1)	u2,
		dimension(1)	v1,
		dimension(1)	v2,
			n
	)

vdot3()

subroutine vdot3	(	dimension(1)	dot,
		dimension(1)	u1,
		dimension(1)	u2,
		dimension(1)	u3,
		dimension(1)	v1,
		dimension(1)	v2,
		dimension(1)	v3,
			n
	)

vlamax()

real function vlamax	(	real, dimension(1)	vec,
			n
	)

vlmax()

real function vlmax	(	real, dimension(1)	vec,
			n
	)

vlmin()

real function vlmin	(	real, dimension(1)	vec,
			n
	)

vlsc2()

real function vlsc2	(	real, dimension(1)	x,
		real, dimension(1)	y,
			n
	)

vlsc21()

real function vlsc21	(	real, dimension(1)	x,
		real, dimension(1)	y,
			n
	)

vlsum()

real function vlsum	(	real, dimension(1)	vec,
			n
	)

vsq()

subroutine vsq	(	dimension(1)	A,
			N
	)

vsqrt()

subroutine vsqrt	(	dimension(1)	A,
			N
	)

xaddcol3()

subroutine xaddcol3	(	real, dimension(1)	a,
		real, dimension(1)	b,
		real, dimension(1)	c,
			n
	)