曼哈頓距離的Fortran

Question

我想根據下式來計算的Fortran 2個陣列之間的曼哈頓距離：

d = Sum(|P(i)-R(i)|) 

所以，我提出用Fortran代碼：

function DistM(v, u, dim) 
    integer dim 
    real(8) v(dim), u(dim), DistM 
    DistM=sum(abs(v-u)) 
end function DistM 

我調用此函數通過使用此：

Coeff=DistM(tempvector1,tempvector2, dim) 

但這似乎並沒有工作（我沒有得到任何回報）。我也嘗試了2的權力，然後做它的sqrt，但它被困在sqrt然後（如果我運行它的步驟）。 我嘗試另一個功能，即一個工作（見這裏）之後，但是這一個不工作:(：

function Roznica(v, u, dim) 
     integer dim 
     real(8) v(dim), u(dim), Rozn 
     Rozn=sum((v-u)**2)/dim 
end function Roznica 

任何人的想法

Answer 1

我就簡單寫一個曼哈頓距離函數也是這樣嗎？ （與假定形數組，你不再需要使用自動數組像你一樣，提供的功能有顯式接口）：

pure function L1(v) 
    real, intent(in) :: v(:) ! <- shape assumed from actual argument 
    real :: L1 
    L1 = sum(abs(v)) 
end function 

，然後如果你有兩個向量，你只需調用功能foo = L1(p - q)