相当于fortran中的set（）函数？

Question

fortran中是否有等效的set() function of python或者我应该使用循环吗？

做相同的

Aux=set(Graph[Start])-set(path)

目前使用此：

X1=Start(1)
Y1=Start(2)
Z1=Start(3)
i=0
DO Xv=1,Ximax    
    DO Yv=1,Yimax
        DO Zv=1,Zimax     
            IF (MatrixCom(X1,Y1,Z1,Xv,Yv,Zv)==1) THEN
                DO Nv=1,Nmax
                    IF(Xv/=Path(1, Nv) .AND. Yv/=Path(2, Nv) .AND. Zv/=Path(3, Nv))THEN
                         i=i+1
                         AuxP(1, i)=Xv
                         AuxP(2, i)=Yv
                         AuxP(3, i)=Zv              
                     END IF
                 END DO
             END IF
         END DO
     END DO
 END DO

有更短的路吗？