MultiTapers Namespace Reference

This Module contains codes for generating the Slepian multitapers required for the adaptive multitaper method. Most of the 1D dpss code is based on the original code by Percival and Walden, which was converted by AH to f90. More...

Classes
struct	DPSSTaper
Functions
subroutine	DPSSTaperAlloc (mytaper)
subroutine	DPSSTaperAllocCheck (mytaper)
subroutine	DPSSTaperFree (mytaper)
subroutine	DPSSTaperGenerate (mytaper)
subroutine	DPSSTaperGetWeightsFromPower (mytaper, power)
	Generates AMTM weights (uses power to estimate variance).
subroutine	DPSSTaperGetWeightsFromMap (mytaper, myMap, power)
subroutine	DPSSTaperGetWeightsFrom2Maps (mytaper, myMap, myMap2, power)
subroutine	DPSSTaperGetChisq_DOF (mytaper)
subroutine	DPSSTaperGetError_Bars (mytaper, power)
subroutine	dpssTaperWrite (mytaper, filenameroot)
subroutine	dpssTaperRead (mytaper, filenameroot)
subroutine	dpss2d (NMAX1, NMAX2, KMAX1, KMAX2, W1, W2, Tapers, EVals, IFAULT)
subroutine	DPSS (NMAX, KMAX, N, W, V, SIG, TOTIT, SINES, VOLD, U, SCR1, IFAULT)
subroutine	SYTOEP (N, R, G, F, W, IFAULT)
subroutine	SPOL (N, V, K, IFAULT)

---

Detailed Description

This Module contains codes for generating the Slepian multitapers required for the adaptive multitaper method. Most of the 1D dpss code is based on the original code by Percival and Walden, which was converted by AH to f90.

Author:

Sudeep Das and Amir Hajian, Princeton University

Version:

Time-stamp: <2009-05-19 15:11:17 sudeep>

---

Function Documentation

subroutine MultiTapers::DPSS	(	integer(i4b)	NMAX,
		integer(i4b)	KMAX,
		integer(i4b)	N,
		real(dp)	W,
		real(dp),dimension(nmax,0:kmax)	V,
		real(dp),dimension(0:kmax)	SIG,
		integer(i4b)	TOTIT,
		real(dp),dimension(0:n-1)	SINES,
		real(dp),dimension(n)	VOLD,
		real(dp),dimension(n)	U,
		real(dp),dimension(n)	SCR1,
		integer(i4b)	IFAULT
	)

subroutine MultiTapers::dpss2d	(	integer(i4b)	NMAX1,
		integer(i4b)	NMAX2,
		integer(i4b)	KMAX1,
		integer(i4b)	KMAX2,
		real(dp)	W1,
		real(dp)	W2,
		real(dp),dimension(0:nmax1-1,0:nmax2-1,0:kmax1,0:kmax2)	Tapers,
		real(dp),dimension(0:kmax1,0:kmax2)	EVals,
		integer(i4b)	IFAULT
	)

subroutine MultiTapers::DPSSTaperAlloc

(

type(DPSSTaper)

mytaper

)

subroutine MultiTapers::DPSSTaperAllocCheck

(

type(DPSSTaper)

mytaper

)

subroutine MultiTapers::DPSSTaperFree

(

type(DPSSTaper)

mytaper

)

subroutine MultiTapers::DPSSTaperGenerate

(

type (DPSSTaper)

mytaper

)

subroutine MultiTapers::DPSSTaperGetChisq_DOF

(

type(DPSSTaper)

mytaper

)

subroutine MultiTapers::DPSSTaperGetError_Bars	(	type(DPSSTaper)	mytaper,
		type(KMap)	power
	)

subroutine MultiTapers::DPSSTaperGetWeightsFrom2Maps	(	type (DPSSTaper)	mytaper,
		type (FFTRmap)	myMap,
		type (FFTRmap)	myMap2,
		type (Kmap)	Power
	)

subroutine MultiTapers::DPSSTaperGetWeightsFromMap	(	type (DPSSTaper)	mytaper,
		type (FFTRmap)	myMap,
		type (Kmap)	Power
	)

subroutine MultiTapers::DPSSTaperGetWeightsFromPower	(	type (DPSSTaper)	mytaper,
		type (Kmap)	Power
	)

Generates AMTM weights (uses power to estimate variance).

subroutine MultiTapers::dpssTaperRead	(	type(DPSSTaper)	mytaper,
		character(len=*)	filenameroot
	)

subroutine MultiTapers::dpssTaperWrite	(	type(DPSSTaper)	mytaper,
		character(len=*)	filenameroot
	)

subroutine MultiTapers::SPOL	(	integer(i4b)	N,
		real(dp),dimension(n)	V,
		integer(i4b)	K,
		integer(i4b)	IFAULT
	)

subroutine MultiTapers::SYTOEP	(	integer(i4b)	N,
		real(dp),dimension(0:n-1)	R,
		real(dp),dimension(n)	G,
		real(dp),dimension(n)	F,
		real(dp),dimension(n)	W,
		integer(i4b)	IFAULT
	)

---