getPPFDSoybean Function

public function getPPFDSoybean(obj, light, Transparency, Resolution, num_threads, leaf) result(ppfd)

なぜか失敗

$OMP parallel do default(shared), private(k,inside,upside,center_x,radius_vec,radius_tr,zmin,n,element_id)

$OMP parallel do default(shared), private(inside,upside,radius_vec,radius_tr,zmin,n,element_id)

なぜか失敗 $OMP end parallel do

$OMP end parallel do

Type Bound

soybean_

Arguments

Type	Intent	Optional	Attributes		Name
class(soybean_),	intent(inout)			::	obj
type(Light_),	intent(in)			::	light
real(kind=real64),	intent(in),	optional		::	Transparency
real(kind=real64),	intent(in),	optional		::	Resolution
integer(kind=int32),	intent(in),	optional		::	num_threads
type(Leaf_),	intent(inout),	optional		::	leaf(:)

Return Value real(kind=real64), allocatable, (:)