calculate_omega Subroutine

public subroutine calculate_omega(istep, timer)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	istep
real,	intent(inout),		dimension(:)	::	timer