Bonjour, voici mon code qui lit un fichier texte, ou il y'a 5 colonnes de réels et Nbi*Nbj*Nbk lignes.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
	READ (7,'(a3,i3,a4,i1,a4,i3)') char1, Nbi, char2, Nbj, char3, Nbk
	PRINT *, ' --> Lecture de la sourface d integration:',Nbi,Nbj,Nbk
     !! Allocation en memoire pour les variables.....avant leur lecture!!!!!
	 !!*********************************************************************** 
	d_end = Nbi*Nbj*Nbk
	allocate(  X_Centers(d_end),   stat=stats)
	allocate(  Y_Centers(d_end),   stat=stats)
	allocate(  Z_Centers(d_end),   stat=stats)
	allocate(  ReTfP(d_end),   stat=stats)
	allocate(  ImTfP(d_end),   stat=stats)
 
 
     !!****************************************************
	 !!*******************
	EAD (7,*)
	READ (7,*)
	do il=1, d_end 
READ (7,*) X_Centers(il),Y_Centers(il ),Z_Centers(il ),ReTfP(il ),ImTfP(il )
 
	enddo
Est ce que quelqu'un aurait une idée de comment transformer un tableau unidimensionnel en tridimensionnel??
par exemple je stocke tout dans X_Centers(Nbi*Nbj*Nbk) avec Nbi, Nbj,Nbk, les trois dimensions recherchée, et je veux passer à un X_nouveau(Nbi, Nbj, Nbk).

Je n'arrive pas trop à trouver la correspondance d'indices !

Merci bien