Syntaxe Fortran ASSOCIATE pour autoriser l'accès indexé?

Question

Y at-il un bon moyen d'écrire une déclaration Fortran ASSOCIÉ pour activer cette

FORALL (i = 2:n-2) 
    v(:,i) = v(:,i) + MATMUL(A, & 
      c(2)*u(:,i-2) + c(1)*u(:,i-1) + c(0)*u(:,i) + c(1)*u(:,i+1) + c(2)*u(:,i+2)) 
END FORALL 

en quelque chose comme le

ASSOCIATE (U => ..., V => ...) 
    FORALL (i = 2:n-2) 
     V(i) = V(i) + MATMUL(A, & 
       c(2)*U(i-2) + c(1)*U(i-1) + c(0)*U(i) + c(1)*U(i+1) + c(2)*U(i+2)) 
    END FORALL 
END ASSOCIATE 

suivante Je regarde à Adams et al de Le Fortran 2003 section Manuel 8.2, mais je ne vois pas comment écrire la construction associate-name => selector pour permettre l'accès indexé dans le associate-name.

De toute évidence, ce que je vais faire est exagéré pour quelques lignes. J'en ai un tas que je voudrais condenser.

Answer 1

À moins que je ne dise des choses, je ne pense pas que ce soit possible. Le specification dit (section 8.1.4.3):

Dans un TYPE SELECT ou construction ASSOCIÉ, chaque entité associant a le même rang que son sélecteur associé.

et pour autant que je peux voir, vous voulez un rang 1 entité associant (V) et aura besoin d'un rang 2 sélecteur associé (pour tenir v).