Bonjour

Voila, je suis en train d'écrire une subroutine me permettant d'exporter des résultats au format VTk.

Le format est un format ASCII dont la structure est la suivante:

DATASET RECTILINEAR_GRID
DIMENSIONS nx ny nz
X_COORDINATES nx [dataType]
x0 x1...x(n-1)
Y_COORDINATES ny [dataType]
y0 y1...y(n-1)
Z_COORDINATES nz [dataType]
z0 z1...z(n-1)



Voici un extrait de mon code:

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
		write(file,'(a)')"# vtk DataFile Version 4.2"
		write(file,'(a)')"Fichier vtk"
		write(file,'(a)')"ASCII"
		write(file,'(a)')"DATASET RECTILINEAR_GRID"
		write(file,'(a,3i4)')"DIMENSIONS",nx,ny,nz
		write(file,'(a,i4)')"X_COORDINATES",nx
		write(file,'(f5.3)')(R(I),I=1,nx)
		write(file,'(a,i4)')"Y_COORDINATES",ny
		write(file,"(f5.3)")(Z(I),I=1,ny)
		write(file,'(a,i4)')"Z_COORDINATES",nz
		write(file,"(f5.3)")(1._8,I=1,nz)
		write(file,'(3a)')"SCALARS","TEST","type float"
		do I=1,nx
		do J=1,ny
		do K=1,nz
		write(file,'(f10.2)')Conc_sol(I,J,K)
		enddo
		enddo
		enddo
Mon problème vient des lignes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
write(file,"(f5.3)")(Z(I),I=1,ny)
Je voudrais éviter le retour charriot mais conserver le controle sur le format d'écriture. Or, si j'utilise "advance='no'", j'ai un retour à la ligne.

Si j'abandonne l'idée du format et utilise une étoile *, j'ai un retour à la ligne même avec le advance no...

Une idée