setPropertiesDensitySoybean Subroutine

public subroutine setPropertiesDensitySoybean(obj)

$OMP parallel do private(i) $OMP parallel do private(j) $OMP end parallel do $OMP end parallel do stem $OMP parallel do private(i) $OMP parallel do private(j) $OMP end parallel do $OMP end parallel do root $OMP parallel do private(i) $OMP parallel do private(j) $OMP end parallel do $OMP end parallel do

Type Bound

soybean_

Arguments

Type	Intent	Optional	Attributes		Name
class(soybean_),	intent(inout)			::	obj