Discussion :

[manaliac]

Bonjour,

je programme une boucle faisant appel à une routine ou je dois changer un argument (chaine de caractère) chaque fois; par exemple :

Code :

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

1
2
3
4
5
6
 
do i=1, Nbr
 
call machin(file, nom_zone,.........) ! je voudrais changer de nom de zone pour chaque zone
 
enddo

vous auriez une idée?

[Grame]

Bonjour

vous auriez une idée?

Ben, ça dépend de ce tu veux exactement.

Le nom zone change t-il totalement (ex : truc, machin, bidule)
ou bien s'incrémente t-il (ex : zone.1, zone.2, ...)

Précises ta demande.

[Ladgalen]

Bonjour

Je vois deux possibilités :

1) tu crées un tableau chaine de caractère de dimension Nbr

Code :

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

1
2
3
4
5
6
 
character(len=100), dimension(Nbr) :: nom_zone
 
do i=1, Nbr
  call machin(file, nom_zone(i),.........) 
enddo

2) tu modifis la chaine dans la boucle

L'utilisation de trim et de adjustl te permet de supprimer les blancs.

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
22
23
 
character(len=100) :: nom_zone, numero, base
 
base = "basename"
 
do i=1, Nbr
  write( numero, * ) i
  numero = adjustl( numero )
  nom_zone = trim(basename)//trim(numero)
  call machin(file, nom_zone,.........) 
enddo
 
! autre solution, tu sais que Nbr <= 9999
character(len=4) :: numero
character(len=100) :: nom_zone, base
 
base = "basename"
 
do i=1, Nbr
  write( numero, "(i4.4)" ) i
  nom_zone = trim(basename)//numero
  call machin(file, nom_zone,.........) 
enddo

Dans le premier cas tu as des zones (sans connaitre Nbr) :

basename1
basename5
basename10
basename122

Dans le deuxième cas (avec i4.4) tu as des zones :

basename0001
basename0005
basename0010
basename0122

Bon courage

[genteur slayer]

joli le coup du i4.4!!! moi qui m'emer$¤*@ais à rajouter manuellement les zéros!!! je le retiens celui-là !!!!

[manaliac]

Bonjour, désolée du retard, mais j'ai une autre solution , dites moi ce que vous en pensez (je cherche à obtenir zone 1,zone 2,....,zone Nbr)

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
integer filenum,Nbr
integer, dimension(:), allocatable :: zone
character*32, dimension(:),allocatable :: ZoneName2
allocate(ZoneName2(Nbr))
allocate(zone(Nbr))
 
      if(Nbr .lt. 10000) then ! Nbr : numéro de la zone
          write(filenum,102) Nbr
        else
          write(6,'('' trop de zones, numero limitees a 9999'')')
 
          stop
        end if
 102    format(i4)
  ZoneName2(Nbr) = 'Zone' // filenum

qu'en pensez vous? ça marche très bien aussi, et je pense que je n'aurai pas de problème dans le cas d'un nombre très élevé !

Manal

[Ladgalen]

Bonjour

Tu dis que ça marche mais j'ai quelques doutes quand même. Tu déclare filenum comme un integer alors que tu l'utilises comme une chaine de caractère. D'autre part pourquoi se limiter à 9999 ?

Sinon ça correspond à ce que je t'ai proposé sauf que tu as des espaces ou des blancs dans ta chaine. Si ça ne te gène pas tant mieux. Ce que je te proposais était plus complexes car en général la difficulté de ce genre de manip c'est d'avoir une chaine sans blanc. Après je ne sais pas ce que tu en fais. Tu n'en a peut être pas besoin !

D'aprés le nom de tes variables ta chaine est un nom de fichier, fais attention, quelque fois mettre des blancs dans le nom d'un fichier peut être périlleu.

[genteur slayer]

le remplissage d'un tableau, c'est une idée qui marche, mais consomme un peu de mémoire (pas gravissime c'est sûr!), cependant ce qui me gène le plus c'est le format que tu utilise le i4 cela te donne des espaces dans le nom du fichier.... ce qui peut poser des soucis...
je comprends pas pourquoi filenum est déclaré comme integer... character marche aussi bien....

et pius tu peux tout mettre dans le write:

Code :

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

1
2
3
 
write(filename,101) NBR
101 format('zone',i4.4,'.dat')

cela te donnera par exemple avec NBR=18: zone0018.dat

je te conseil de ne pas trop utiliser les espace dans les noms de fichier pour des raisons de portabilité (de même, oublie les accents et les caractères spéciaux autres que . _ ) des fois on a des surprise quand on change de machine!

dernière chose, quand tu fais ta concaténation ( ZoneName2(Nbr) = 'Zone' // filenum ) utilise la fonction trim:

Code :

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

ZoneName2(Nbr) = 'Zone' // trim(filenum)

cela a pour effet de viré les espaces en fin de chaine, très pratique quand tu as une longueur de chaine qui est variable

[manaliac]

finalement, j'ai retenu ta dernière méthode et ça marche très bien !

donc merci!