parent.f90 (713B)
1 module parent 2 implicit none 3 4 type parent_type 5 real :: mother 6 real :: father 7 end type parent_type 8 9 interface 10 module subroutine init(p, mother, father) 11 type(parent_type), intent(out) :: p 12 real, intent(in) :: mother, father 13 end subroutine init 14 15 module subroutine harmonize(p) 16 type(parent_type), intent(inout) :: p 17 end subroutine harmonize 18 19 module function parent_weight(p) result(w) 20 type(parent_type), intent(in) :: p 21 real :: w 22 end function parent_weight 23 24 module function parent_distance(pa, pb) result(dist) 25 type(parent_type), intent(in) :: pa, pb 26 real :: dist 27 end function parent_distance 28 end interface 29 30 end module parent