chaine de caractère fortran

Version imprimable

06/04/2011, 10h46
wantstofly

chaine de caractère fortran

Bonjour

Je débute en fortran et je me pose une question sur la gestion des chaines de charactères.

Je voudrai savoir comment acceder au Nième charactère d'une chaine.
Par exemple :

...
character*4 chaine

chaine="test"
write(*,*)'1er caracterede chaine = ',chaine(1)
...

Retourne une erreur me disant que chaine n'est pas déclarer comme un tableau. Pourtant si je fais
write(*,*)'1er caracterede chaine = ',chaine(1:2)
ça marche... donc chaine dois bien être geré comme un tableau ou dans chaque case il y a un charactère non? Comme faire pour n'avoir que le nième charactère (chaine(n)) et pas la sous chaine allant de n à m chaine(n:m) ?

Merci !! :)
06/04/2011, 13h47
Grame
Bonjour

Citation:

Comme faire pour n'avoir que le nième charactère (chaine(n)) et pas la sous chaine allant de n à m chaine(n:m) ?

Tout simplement en écrivant chaine(n:n), soit dans ton exemple :
Code:

1 2 write(*,*)'1er caracterede chaine = ',chaine(1:1)
06/04/2011, 15h26
Sylvain Bergeron

Le problème de compréhension vient du fait que les chaînes de caractères en Fortran ne sont pas des vecteurs, ce sont des scalaires, mais on accède aux sous-chaînes avec une syntaxe très près de la syntaxe des vecteurs.

Pour accéder à une sous-chaîne, il faut faire chaine(début:fin). Et ce n'est pas équivalent à la syntaxe des vecteurs : le résultat ne sera pas un vecteur de fin-début+1 éléments, mais un scalaire de fin-début+1 caractères. Pour accéder à un seul caractère, il faut faire chaine(pos:pos), mais il n'est pas possible de réduire cette syntaxe à chaine(pos) comme il est possible de le faire pour les vecteurs.
06/04/2011, 22h47
wantstofly

ok merci ;)

Effictevement la confusion vient du fait que dans mes vieux souvenir de C les chaines de caratères sont stocké sous forme de vecteur

tableau de character

bonjour
Nonobstant ce que vient dire Sylvain sur la syntaxe ,on peut surmonter ce handicap a condition de gerer les chaines de caracteres de taille fixe,qui sont un des avantages de fortran(par bien des cotes ca cache le fait que Fortran les geres en memoire en fait comme le fait language -C- c.à.d des tableaux).
exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 
program TableauChar
    character*1 ::TableChar(1:10)
 
    do  I=1,10
        if (I .le.5) then
            TableChar(I)="a"
        else
         TableChar(I)="b"
        end if
 
    end do
!ceci est absolument legitime en fortran 
    print * ,TableChar(1),"-----",TableChar(7)
    pause
 
    if (TableChar(3).ne. TableChar(7)) then
        print * ,"ces 2 caractere sont differents "
        pause
    end if
   TableChar(3)="b"
    if  ( TableChar(3).eq.  TableChar(7)) then
        print * ,"maintenant egale "
        print * ,TableChar(3)," -  ",TableChar(7)
 
        pause
    end if
 end program TableauChar
!resultats
!  a - b
!  ces 2 caractere
! 
!  a - b
!  maintenant egal
! 
!  b - b

bon code........