Discussion :

[kango]

c'est plus clair comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
k=0
do i=-M,M-1
   A(:,i)=G(k:k+2*M-1)
   k=k+2*M
end do

[feynman]

ok merci

[FR119492]

Salut!
Avant de programmer quoi que ce soit, il faut bien comprendre ce que tu veux faire.

Tu as un tableau A à 2 indices déclaré dans une instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

      Real*8 A(-M:M-1,-M:M-1

Ce tableau comporte donc 2*M lignes et 2*M colonnes (et non 2*M-1 comme tu l'as écrit jusqu'à présent). Tu veux qu'il contienne les mêmes valeurs qu'un tableau G à un seul indice déclaré dans une instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

      Real*8 G(0:4*M-1)

Il y a en principe 3 manières de procéder:

1. Tu utilises l'instruction Equivalence.
2. Tu utilises l'instruction Common dans ton programme principal et dans une routine, en mettant une fois A comme paramètre, et l'autre fois G.
3. Tu prends une feuille de papier où tu traces 3 colonnes, I et J étant les indices dans A, K étant l'indice dans G:
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   4
   5
   6
   7
   8
   9
   10
   I       J  K
    -M    -M  0
     0    -M  M
   M-1    -M  2*M-1
    -M     0   ...
     0     0   ...
   M-1     0   ...
    -M   M-1   ...
     0   M-1   ...
   M-1   M-1  4*M**2-1

   Je te laisse compléter le tableau et déterminer la formule qui permet de calculer K à partir de I et J.

Jean-Marc Blanc

[feynman]

Merci Jean Marc, mais j arrive pas a trouver la formule?
d autre part peut tu me dire comment utiliser le common ?
merci