setPropertiesInitialStressSoybean Subroutine

public subroutine setPropertiesInitialStressSoybean(obj, default_value)

$OMP parallel do private(i) $OMP end parallel do $OMP parallel do private(i) $OMP end parallel do $OMP parallel do private(i) $OMP end parallel do

Type Bound

soybean_

Arguments

Type	Intent	Optional	Attributes		Name
class(soybean_),	intent(inout)			::	obj
real(kind=real64),	intent(in),	optional		::	default_value