splaplac.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	splaplac (I, M, ENN1, Q, QD2, IDIR)
	COMPUTES THE LAPLACIAN OR THE INVERSE LAPLACIAN OF A SCALAR FIELD IN SPECTRAL SPACE. More...

Detailed Description

Compute laplacian in spectral space

Author

IREDELL

Date

92-10-31

Definition in file splaplac.f.

Function/Subroutine Documentation

splaplac()

subroutine splaplac	(		I,
			M,
		real, dimension((m+1)*((i+1)*m+2)/2)	ENN1,
		real, dimension((m+1)*((i+1)*m+2))	Q,
		real, dimension((m+1)*((i+1)*m+2))	QD2,
			IDIR
	)

COMPUTES THE LAPLACIAN OR THE INVERSE LAPLACIAN OF A SCALAR FIELD IN SPECTRAL SPACE.

SUBPROGRAM SPEPS SHOULD BE CALLED ALREADY. THE LAPLACIAN OF Q(L,N) IS SIMPLY -N*(N+1)/A**2*Q(L,N)

Parameters

	I	- INTEGER SPECTRAL DOMAIN SHAPE (0 FOR TRIANGULAR, 1 FOR RHOMBOIDAL)
	M	- INTEGER SPECTRAL TRUNCATION
	ENN1	- REAL ((M+1)*((I+1)*M+2)/2) N*(N+1)/A**2
[out]	Q	- IF IDIR > 0, REAL ((M+1)*((I+1)*M+2)) SCALAR FIELD (Q(0,0) IS NOT COMPUTED)
[out]	QD2	- IF IDIR < 0, REAL ((M+1)*((I+1)*M+2)) LAPLACIAN
	IDIR	- INTEGER FLAG IDIR > 0 TO TAKE LAPLACIAN IDIR < 0 TO TAKE INVERSE LAPLACIAN

Definition at line 22 of file splaplac.f.