PDAF_seek_rediag Subroutine

subroutine PDAF_seek_rediag(dim_p, dim_eof, Uinv, eofV_p, subtype, screen, flag)

** Compute B = A^T V^T V A ***

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	dim_p
integer,	intent(in)			::	dim_eof
real,	intent(inout)			::	Uinv(dim_eof,dim_eof)
real,	intent(inout)			::	eofV_p(dim_p,dim_eof)
integer,	intent(in)			::	subtype
integer,	intent(in)			::	screen
integer,	intent(inout)			::	flag