为什么这个Fortran代码不能工作?

嘿,我写这个(fortran)的目的是找到一组点的最小生成树( 系统计数 他们当中)我知道这种方法是可行的,因为今天早些时候我用JavaScript编写了它。不过JS速度很慢,我想看看Fortran会有多快!! 唯一的问题是它不工作,我有一个恼人的错误;

原稿F95:72.43:

如果((检查==1)。和。(path(nodesin(j))(k)<minpath))然后

                                 1

错误:在(1)处的表达式中需要右括号

这到底是怎么回事?!第43行字符是“path”的“h”

nodesin(1) = 1

do i = 1,syscount-1
    pathstart = -1
    pathend = -1
    minpath = 2000

    do j = 1,i
        do k = 1, syscount

            check = 1
            do l = 1, i
                if(nodesin(l) == k) then
                    check = 0
                end if
            end do

            if((check == 1) .and. (path(nodesin(j))(k) < minpath)) then
                minpath = path(nodesin(j))(k)
                pathstart = nodesin(j)
                pathend = k
            end if

        end do
    end do

    nodesin(i+1) = pathend
    minpaths(i)(1) = pathstart
    minpaths(i)(2) = pathend

end do

另外,我对Fortran还比较陌生,所以我还有几个问题要问;

我可以使用&而不是.and。?

是否在许多其他语言中找到for(object in list)循环的版本?

数组中有PHP函数的版本吗?例如,“bool in ou array”(针,草堆),如果有的话,还有比以下更好的方法吗?

check = false
Asize = size(array)
do i = 1, Asize
    if(array(i) == needle) then
        check = true
    end if
end do

然后使用check变量查看它是否存在?

(我以前没有在StackOverflow上发布过任何内容。如果我破坏了一大堆礼仪,请不要生气!)