Functions/Subroutines
subroutine	fstr_solve_frequency_analysis (hecMESH, hecMAT, fstrSOLID, fstrEIG, fstrDYNAMIC, fstrRESULT, fstrPARAM, fstrCPL, fstrFREQ, hecLagMAT, restart_step_num)

subroutine	read_eigen_values (logfile, startmode, endmode, eigenvalue, anglfreq)

subroutine	read_eigen_vector (logfile, startmode, endmode, numdof, numnode, eigenvector)

subroutine	read_eigen_vector_res (hecMESH, startmode, endmode, numdof, numnode, eigenvector)

subroutine	output_resfile (hecMESH, freq, ifreq, disp, vel, acc, iout)

subroutine	output_visfile (hecMESH, ifreq, disp, vel, acc, iout)

subroutine	extract_surf2node (hecMESH, freqData, numdof, loadvecRe, loadvecIm)

subroutine	dl_c3_freq (ETYPE, NN, XX, YY, ZZ, LTYPE, force, VECT, nsize)

subroutine	assemble_nodeload (hecMESH, freqData, numdof, loadvecRe, loadvecIm)

subroutine	calcmassmatrix (fstrPARAM, hecMESH, hecMAT, fstrSOLID, fstrEIG, hecLagMAT)

subroutine	scaleeigenvector (fstrEIG, ntotaldof, nmode, eigenvector)

subroutine	checkorthvector (fstrEIG, eigenvector, imode, jmode, prod)

subroutine	writeoutvector (im, vector)

subroutine	calcdotproduct (a, b, c)

subroutine	calcfreqcoeff (freqData, loadRe, loadIm, inpOmega, bjRe, bjIm)

subroutine	calcdispvector (freqData, bjRe, bjIm, dispRe, dispIm)

subroutine	calcvelvector (freqData, omega, bjRe, bjIm, velRe, velIm)

subroutine	calcaccvector (freqData, omega, bjRe, bjIm, accRe, accIm)

subroutine	setupfreqparam (fstrDYNAMIC, f_start, f_end, numfreq, raym, rayk, idnode, vistype, ioutl)

subroutine	calcdispvectortime (freqData, time, omega, bjRe, bjIm, dispRe, dispIm)

subroutine	calcvelvectortime (freqData, time, omega, bjRe, bjIm, velRe, velIm)

subroutine	calcaccvectortime (freqData, time, omega, bjRe, bjIm, accRe, accIm)

subroutine	setupdynaparam (fstrDYNAMIC, t_start, t_end, dynafreq, numdisp)

subroutine	outputdyna_resfile (hecMESH, time, istp, dispre, dispim, velre, velim, accre, accim, iout)

subroutine	outputdyna_visfile (hecMESH, istp, dispre, dispim, velre, velim, accre, accim, iout)

Function/Subroutine Documentation

◆ assemble_nodeload()

subroutine fstr_frequency_analysis::assemble_nodeload	(	type(hecmwst_local_mesh), intent(in)	hecMESH,
		type(fstr_freqanalysis), intent(in)	freqData,
		integer(kind=kint), intent(in)	numdof,
		real(kind=kreal), dimension(:), intent(inout)	loadvecRe,
		real(kind=kreal), dimension(:), intent(inout)	loadvecIm
	)

Definition at line 637 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ calcaccvector()

subroutine fstr_frequency_analysis::calcaccvector	(	type(fstr_freqanalysis_data), intent(in)	freqData,
		real(kind=kreal), intent(in)	omega,
		real(kind=kreal), dimension(:), intent(in)	bjRe,
		real(kind=kreal), dimension(:), intent(in)	bjIm,
		real(kind=kreal), dimension(:), intent(inout)	accRe,
		real(kind=kreal), dimension(:), intent(inout)	accIm
	)

Definition at line 833 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ calcaccvectortime()

subroutine fstr_frequency_analysis::calcaccvectortime	(	type(fstr_freqanalysis_data), intent(in)	freqData,
		real(kind=kreal), intent(in)	time,
		real(kind=kreal), intent(in)	omega,
		real(kind=kreal), dimension(:), intent(in)	bjRe,
		real(kind=kreal), dimension(:), intent(in)	bjIm,
		real(kind=kreal), dimension(:), intent(inout)	accRe,
		real(kind=kreal), dimension(:), intent(inout)	accIm
	)

Definition at line 940 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ calcdispvector()

subroutine fstr_frequency_analysis::calcdispvector	(	type(fstr_freqanalysis_data), intent(in)	freqData,
		real(kind=kreal), dimension(:), intent(in)	bjRe,
		real(kind=kreal), dimension(:), intent(in)	bjIm,
		real(kind=kreal), dimension(:), intent(inout)	dispRe,
		real(kind=kreal), dimension(:), intent(inout)	dispIm
	)

Definition at line 791 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ calcdispvectortime()

subroutine fstr_frequency_analysis::calcdispvectortime	(	type(fstr_freqanalysis_data), intent(in)	freqData,
		real(kind=kreal), intent(in)	time,
		real(kind=kreal), intent(in)	omega,
		real(kind=kreal), dimension(:), intent(in)	bjRe,
		real(kind=kreal), dimension(:), intent(in)	bjIm,
		real(kind=kreal), dimension(:), intent(inout)	dispRe,
		real(kind=kreal), dimension(:), intent(inout)	dispIm
	)

Definition at line 880 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ calcdotproduct()

subroutine fstr_frequency_analysis::calcdotproduct	(	real(kind=kreal), dimension(:), intent(in)	a,
		real(kind=kreal), dimension(:), intent(in)	b,
		real(kind=kreal), intent(inout)	c
	)

Definition at line 748 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ calcfreqcoeff()

subroutine fstr_frequency_analysis::calcfreqcoeff	(	type(fstr_freqanalysis_data), intent(in)	freqData,
		real(kind=kreal), dimension(:), intent(in)	loadRe,
		real(kind=kreal), dimension(:), intent(in)	loadIm,
		real(kind=kreal), intent(in)	inpOmega,
		real(kind=kreal), dimension(:), intent(inout)	bjRe,
		real(kind=kreal), dimension(:), intent(inout)	bjIm
	)

Definition at line 760 of file fstr_frequency_analysis.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ calcmassmatrix()

subroutine fstr_frequency_analysis::calcmassmatrix	(	type(fstr_param), intent(in)	fstrPARAM,
		type(hecmwst_local_mesh), intent(in)	hecMESH,
		type(hecmwst_matrix), intent(inout)	hecMAT,
		type(fstr_solid), intent(inout)	fstrSOLID,
		type(fstr_eigen), intent(inout)	fstrEIG,
		type(hecmwst_matrix_lagrange), intent(inout)	hecLagMAT
	)

Definition at line 665 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ calcvelvector()

subroutine fstr_frequency_analysis::calcvelvector	(	type(fstr_freqanalysis_data), intent(in)	freqData,
		real(kind=kreal), intent(in)	omega,
		real(kind=kreal), dimension(:), intent(in)	bjRe,
		real(kind=kreal), dimension(:), intent(in)	bjIm,
		real(kind=kreal), dimension(:), intent(inout)	velRe,
		real(kind=kreal), dimension(:), intent(inout)	velIm
	)

Definition at line 812 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ calcvelvectortime()

subroutine fstr_frequency_analysis::calcvelvectortime	(	type(fstr_freqanalysis_data), intent(in)	freqData,
		real(kind=kreal), intent(in)	time,
		real(kind=kreal), intent(in)	omega,
		real(kind=kreal), dimension(:), intent(in)	bjRe,
		real(kind=kreal), dimension(:), intent(in)	bjIm,
		real(kind=kreal), dimension(:), intent(inout)	velRe,
		real(kind=kreal), dimension(:), intent(inout)	velIm
	)

Definition at line 910 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ checkorthvector()

subroutine fstr_frequency_analysis::checkorthvector	(	type(fstr_eigen), intent(in)	fstrEIG,
		real(kind=kreal), dimension(:, :), intent(in)	eigenvector,
		integer(kind=kint), intent(in)	imode,
		integer(kind=kint), intent(in)	jmode,
		real(kind=kreal), intent(inout)	prod
	)

Definition at line 708 of file fstr_frequency_analysis.f90.

◆ dl_c3_freq()

subroutine fstr_frequency_analysis::dl_c3_freq	(	integer(kind=kint), intent(in)	ETYPE,
		integer(kind=kint), intent(in)	NN,
		real(kind=kreal), dimension(:), intent(in)	XX,
		real(kind=kreal), dimension(:), intent(in)	YY,
		real(kind=kreal), dimension(:), intent(in)	ZZ,
		integer(kind=kint), intent(in)	LTYPE,
		real(kind=kreal), dimension(3), intent(in)	force,
		real(kind=kreal), dimension(:), intent(inout)	VECT,
		integer(kind=kint), intent(inout)	nsize
	)

Definition at line 594 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ extract_surf2node()

subroutine fstr_frequency_analysis::extract_surf2node	(	type(hecmwst_local_mesh), intent(in)	hecMESH,
		type(fstr_freqanalysis), intent(in)	freqData,
		integer(kind=kint), intent(in)	numdof,
		real(kind=kreal), dimension(:), intent(inout)	loadvecRe,
		real(kind=kreal), dimension(:), intent(inout)	loadvecIm
	)

Definition at line 534 of file fstr_frequency_analysis.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_solve_frequency_analysis()

subroutine fstr_frequency_analysis::fstr_solve_frequency_analysis	(	type(hecmwst_local_mesh)	hecMESH,
		type(hecmwst_matrix)	hecMAT,
		type(fstr_solid)	fstrSOLID,
		type(fstr_eigen)	fstrEIG,
		type(fstr_dynamic)	fstrDYNAMIC,
		type(hecmwst_result_data)	fstrRESULT,
		type(fstr_param)	fstrPARAM,
		type(fstr_couple)	fstrCPL,
		type(fstr_freqanalysis)	fstrFREQ,
		type(hecmwst_matrix_lagrange)	hecLagMAT,
		integer(kind=kint)	restart_step_num
	)

Definition at line 68 of file fstr_frequency_analysis.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ output_resfile()

subroutine fstr_frequency_analysis::output_resfile	(	type(hecmwst_local_mesh), intent(in)	hecMESH,
		real(kind=kreal), intent(in)	freq,
		integer(kind=kint), intent(in)	ifreq,
		real(kind=kreal), dimension(:), intent(in)	disp,
		real(kind=kreal), dimension(:), intent(in)	vel,
		real(kind=kreal), dimension(:), intent(in)	acc,
		integer(kind=kint), dimension(3), intent(in)	iout
	)

Definition at line 446 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ output_visfile()

subroutine fstr_frequency_analysis::output_visfile	(	type(hecmwst_local_mesh), intent(in)	hecMESH,
		integer(kind=kint), intent(in)	ifreq,
		real(kind=kreal), dimension(:), intent(in)	disp,
		real(kind=kreal), dimension(:), intent(in)	vel,
		real(kind=kreal), dimension(:), intent(in)	acc,
		integer(kind=kint), dimension(3), intent(in)	iout
	)

Definition at line 489 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ outputdyna_resfile()

subroutine fstr_frequency_analysis::outputdyna_resfile	(	type(hecmwst_local_mesh), intent(in)	hecMESH,
		real(kind=kreal), intent(in)	time,
		integer(kind=kint), intent(in)	istp,
		real(kind=kreal), dimension(:), intent(in)	dispre,
		real(kind=kreal), dimension(:), intent(in)	dispim,
		real(kind=kreal), dimension(:), intent(in)	velre,
		real(kind=kreal), dimension(:), intent(in)	velim,
		real(kind=kreal), dimension(:), intent(in)	accre,
		real(kind=kreal), dimension(:), intent(in)	accim,
		integer(kind=kint), dimension(3), intent(in)	iout
	)

Definition at line 986 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ outputdyna_visfile()

subroutine fstr_frequency_analysis::outputdyna_visfile	(	type(hecmwst_local_mesh), intent(inout)	hecMESH,
		integer(kind=kint), intent(in)	istp,
		real(kind=kreal), dimension(:), intent(in)	dispre,
		real(kind=kreal), dimension(:), intent(in)	dispim,
		real(kind=kreal), dimension(:), intent(in)	velre,
		real(kind=kreal), dimension(:), intent(in)	velim,
		real(kind=kreal), dimension(:), intent(in)	accre,
		real(kind=kreal), dimension(:), intent(in)	accim,
		integer(kind=kint), dimension(3), intent(in)	iout
	)

Definition at line 1056 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ read_eigen_values()

subroutine fstr_frequency_analysis::read_eigen_values	(	integer(kind=kint), intent(in)	logfile,
		integer(kind=kint), intent(in)	startmode,
		integer(kind=kint), intent(in)	endmode,
		real(kind=kreal), dimension(:), intent(inout)	eigenvalue,
		real(kind=kreal), dimension(:), intent(inout)	anglfreq
	)

Definition at line 269 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ read_eigen_vector()

subroutine fstr_frequency_analysis::read_eigen_vector	(	integer(kind=kint), intent(in)	logfile,
		integer(kind=kint), intent(in)	startmode,
		integer(kind=kint), intent(in)	endmode,
		integer(kind=kint), intent(in)	numdof,
		integer(kind=kint), intent(in)	numnode,
		real(kind=kreal), dimension(:, :), intent(inout)	eigenvector
	)

Definition at line 308 of file fstr_frequency_analysis.f90.

◆ read_eigen_vector_res()

subroutine fstr_frequency_analysis::read_eigen_vector_res	(	type(hecmwst_local_mesh), intent(in)	hecMESH,
		integer(kind=kint), intent(in)	startmode,
		integer(kind=kint), intent(in)	endmode,
		integer(kind=kint), intent(in)	numdof,
		integer(kind=kint), intent(in)	numnode,
		real(kind=kreal), dimension(:, :), intent(inout)	eigenvector
	)

Definition at line 379 of file fstr_frequency_analysis.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ scaleeigenvector()

subroutine fstr_frequency_analysis::scaleeigenvector	(	type(fstr_eigen), intent(in)	fstrEIG,
		integer(kind=kint), intent(in)	ntotaldof,
		integer(kind=kint), intent(in)	nmode,
		real(kind=kreal), dimension(:, :), intent(inout)	eigenvector
	)

Definition at line 686 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ setupdynaparam()

subroutine fstr_frequency_analysis::setupdynaparam	(	type(fstr_dynamic), intent(in)	fstrDYNAMIC,
		real(kind=kreal), intent(inout)	t_start,
		real(kind=kreal), intent(inout)	t_end,
		real(kind=kreal), intent(inout)	dynafreq,
		integer(kind=kint), intent(inout)	numdisp
	)

Definition at line 970 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ setupfreqparam()

subroutine fstr_frequency_analysis::setupfreqparam	(	type(fstr_dynamic), intent(in)	fstrDYNAMIC,
		real(kind=kreal), intent(inout)	f_start,
		real(kind=kreal), intent(inout)	f_end,
		integer(kind=kint), intent(inout)	numfreq,
		real(kind=kreal), intent(inout)	raym,
		real(kind=kreal), intent(inout)	rayk,
		integer(kind=kint), intent(inout)	idnode,
		integer(kind=kint), intent(inout)	vistype,
		integer(kind=kint), dimension(3), intent(inout)	ioutl
	)

Definition at line 855 of file fstr_frequency_analysis.f90.

Here is the caller graph for this function:

◆ writeoutvector()

subroutine fstr_frequency_analysis::writeoutvector	(	integer(kind=kint), intent(in)	im,
		real(kind=kreal), dimension(:), intent(in)	vector
	)

Definition at line 727 of file fstr_frequency_analysis.f90.

Functions/Subroutines

Function/Subroutine Documentation

◆ assemble_nodeload()

◆ calcaccvector()

◆ calcaccvectortime()

◆ calcdispvector()

◆ calcdispvectortime()

◆ calcdotproduct()

◆ calcfreqcoeff()

◆ calcmassmatrix()

◆ calcvelvector()

◆ calcvelvectortime()

◆ checkorthvector()

◆ dl_c3_freq()

◆ extract_surf2node()

◆ fstr_solve_frequency_analysis()

◆ output_resfile()

◆ output_visfile()

◆ outputdyna_resfile()

◆ outputdyna_visfile()

◆ read_eigen_values()

◆ read_eigen_vector()

◆ read_eigen_vector_res()

◆ scaleeigenvector()

◆ setupdynaparam()

◆ setupfreqparam()

◆ writeoutvector()