mirror of https://gitlab.com/ita1024/waf.git
14 lines
253 B
Fortran
14 lines
253 B
Fortran
|
submodule (parent) container
|
||
|
implicit none
|
||
|
|
||
|
contains
|
||
|
|
||
|
module function parent_weight(p) result(w)
|
||
|
type(parent_type), intent(in) :: p
|
||
|
real :: w
|
||
|
|
||
|
w = p%mother**2 + p%father**2
|
||
|
end function parent_weight
|
||
|
|
||
|
end submodule container
|