compress Function

public function compress(amach, smach, ob) result(rsh)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	amach
real(kind=real64),	intent(in)			::	smach
real(kind=real64),	intent(in)			::	ob

Return Value real(kind=real64), (3)