Discussion :

[Kercheur]

Bonjour,

pour des raisons de debugging je cherche à récupérer l'adresse hexadécimale d'un vecteur en fortran. Par exemple l'adresse de V(1) d'un vecteur V.

Comment puis je faire ? Quel logiciel utiliser ? je tourne sous linux.

Merci d'avance!

[MABROUKI]

bonjour
moi j'utilise fnt95 de silverfrost,tout y est.
exemple de 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
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
!  --------------------------------------------------
!  Silverfrost FTN95 for Microsoft Visual Studio
!  Free Format FTN95 Source File
!  --------------------------------------------------
program printhex
 
    integer*4 :: v(1:10)
    integer*8 :: w(1:10)
    integer*4:: varAdrr1, varAdrr2
!   adresse en decimale est donnee par la fonction de bibliothe Loc
!   remarque le pas d'offset =4 octes pour integer*4
    varAdrr1= Loc(v(1))
    varAdrr2= Loc(v(2))
    close(8)
    open(8,file="sortie.txt" ,status="old")
    write(*,100)   varAdrr1,varAdrr2    
    write(8,100)   varAdrr1,varAdrr2
!   remarque le pas d'offset =8 octes pour integer*8
    varAdrr1= Loc(w(1))
    varAdrr2= Loc(w(2))
    write(*,100)   varAdrr1,varAdrr2
    write(8,100)   varAdrr1,varAdrr2
100 format (1x,"adress of varAdrr1 :",Z10.4, 4x,"adress of varAdrr2 :",Z10.4)
 
 
end program printhex
 
!    gives this output
!    adress of varAdrr1 :   640F454    adress of varAdrr2 :   640F458
!    adress of varAdrr1 :   640F400    adress of varAdrr2 :   640F408

bon code...................