waf

FORK: waf with some random patches
git clone https://git.neptards.moe/neptards/waf.git
Log | Files | Refs | README

submain.f90 (289B)

      1 program submain
      2   use parent
      3 
      4   implicit none
      5 
      6   type(parent_type) :: a,b
      7   real :: dist, weight
      8 
      9   call init(a, 1.0, 2.0)
     10   call init(b, 10.0, 12.0)
     11 
     12   call harmonize(a)
     13   weight = parent_weight(b)
     14   write(*,*) weight
     15   dist = parent_distance(a, b)
     16   write(*,*) dist
     17 
     18 end program submain