gpsh/psvsh1d.f File Reference

Functions
subroutine	crft (sp, sig, n, isign)
subroutine	four1 (data, n, isign)
subroutine	kenpsv (jcas, ckx, comega, ln, th, dens, calpha, cbeta, cfwave)
function	longcar (mot)
subroutine	pcno3 (dmpng, nprds, prds, n, ga, fs, sd, sv, sa, ttsd, ttsv, ttsa, del, lulog, ttyout)
subroutine	pcno4 (d, w, delt, a, b)
subroutine	psv1d (nf, fmax, ln, thickness, alpha0, beta0, dens, qp, qs, transferFonction, nTransferFonction)
subroutine	rcft (sig, sp, n, isign)
subroutine	readr_ascii1 (sigfile, sig, nsig, t0, dt)
subroutine	reflect1 (jcas)
subroutine	reflect2
subroutine	reflect4 (cfwave, jcas)
subroutine	writec_ascii1 (sigfile, csig, nsig, x0, dx)
subroutine	writer_ascii1 (sigfile, sig, nsig, x0, dx)
subroutine	writer_ascii2 (sigfile, x, sig, nsig)

---

Function Documentation

subroutine crft	(	complex, dimension(*)	sp,
		, dimension(*)	sig,
			n,
			isign
	)

References format, and four1().

Referenced by psv1d().

subroutine four1	(	, dimension(*)	data,
			n,
			isign
	)

Referenced by crft(), and rcft().

subroutine kenpsv	(		jcas,
		complex	ckx,
		complex	comega,
			ln,
		real, dimension(nlay)	th,
		real, dimension(nlay)	dens,
		complex, dimension(nlay)	calpha,
		complex, dimension(nlay)	cbeta,
		complex, dimension(nlay4,3)	cfwave
	)

References reflect1(), reflect2(), and reflect4().

Referenced by psv1d().

function longcar

(

character*(*)

mot

)

Referenced by psv1d().

subroutine pcno3	(	real	dmpng,
			nprds,
		real, dimension(npmax)	prds,
			n,
		real, dimension(ntmax)	ga,
		real, dimension(npmax)	fs,
		real, dimension(npmax)	sd,
		real, dimension(npmax)	sv,
		real, dimension(npmax)	sa,
		real, dimension(npmax)	ttsd,
		real, dimension(npmax)	ttsv,
		real, dimension(npmax)	ttsa,
			del,
			lulog,
		integer	ttyout
	)

References format, and pcno4().

Referenced by psv1d().

subroutine pcno4	(		d,
			w,
			delt,
		, dimension(2,2)	a,
		, dimension(2,2)	b
	)

Referenced by pcno3().

subroutine psv1d	(	integer	nf,
		real	fmax,
		integer	ln,
		real, dimension(ln)	thickness,
		real, dimension(ln)	alpha0,
		real, dimension(ln)	beta0,
		real, dimension(ln)	dens,
		real, dimension(ln)	qp,
		real, dimension(ln)	qs,
		real, dimension(ntransferfonction)	transferFonction,
			nTransferFonction
	)

References crft(), format, kenpsv(), longcar(), pcno3(), rcft(), readr_ascii1(), tmax, writec_ascii1(), and writer_ascii2().

subroutine rcft	(	real, dimension(*)	sig,
		complex, dimension(*)	sp,
			n,
			isign
	)

References format, and four1().

Referenced by psv1d().

subroutine readr_ascii1	(	character*40	sigfile,
		real, dimension(ntmax)	sig,
			nsig,
		real	t0,
		real	dt
	)

Referenced by psv1d().

subroutine reflect1

(

jcas

)

Referenced by kenpsv().

subroutine reflect2

(

)

Referenced by kenpsv().

subroutine reflect4	(	complex, dimension(nlay4,3)	cfwave,
			jcas
	)

Referenced by kenpsv().

subroutine writec_ascii1	(	character*40	sigfile,
		complex, dimension(ntmax)	csig,
			nsig,
		real	x0,
		real	dx
	)

References format.

Referenced by psv1d().

subroutine writer_ascii1	(	character*40	sigfile,
		real, dimension(ntmax)	sig,
			nsig,
		real	x0,
		real	dx
	)

References format.

subroutine writer_ascii2	(	character*40	sigfile,
		real, dimension(ntmax)	x,
		real, dimension(ntmax)	sig,
			nsig
	)

References format.

Referenced by psv1d().