曼哈顿距离的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)