Searched refs:FPerm (Results 1 – 2 of 2) sorted by relevance
16853 INTEGER, POINTER :: FPerm(:), SPerm(:) local16883 FPerm => FVar % Perm16961 ALLOCATE( NodeDone(MAXVAL(FPerm)) )17122 NodeDone( FPerm(ii) ) = .TRUE.17567 INTEGER, POINTER :: FPerm(:), SPerm(:) local17580 FPerm => FVar % Perm17676 jf = FPerm(i) 17750 n = COUNT( FPerm(Indexes) > 0 )17756 j = FPerm(Indexes(i))17797 jf = FPerm(i) [all …]
6714 INTEGER, POINTER :: FPerm(:), SPerm(:) local6727 FPerm => FVar % Perm6820 jf = FPerm(i) 6840 IF (ANY(FPerm(NodeIndices(1:n)) == 0)) CYCLE6980 jv = FPerm(TargetNode)