Related to this question, but I believe the issue is more clearly identified with this example. 我有一些看起来像这样的旧代码： subroutine ID_OG(N, DETERM) use variables, only: ID implicit real (A-H,O-Z) implicit integer(I-N) DETERM = 1.0 DO 1 I=1,N 1 ID(...

我正在尝试实现一种算法，该算法可以找到加权网络的测地线路径长度，可以使用Dijkstra的算法进行定义：首先定义节点之间的边数相同且数量最少的路径，然后选择总和最大的路径边缘权重。 我正在尝试通过修改此FORTRAN代码来做到这一点，但我正在努力使其在所有节点上运行并收集最高权重值。我应该如何对此代码进行处理才能满足此条件？ program main !*************************************************************************...

PROGRAM po IMPLICIT NONE INTEGER :: i, j, nc, nd,ok,iter REAL :: alph, bet, chi REAL, DIMENSION(:), ALLOCATABLE :: uexact, x,u,up2, xd , uexactd REAL ...