Discussion :

[Kercheur]

Bonjour à tous,

J'ai un prog fortran tout ce qu'il y a des plus classiques. Dans le but d'afficher l'adresse d'une variable (pour vérifier l'alignement correct d'un vecteur) je me suis interessé à "c_loc" et à "loc":

Si je fais:

Code :

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

1
2
 
IF(iand(loc(bw(1)),3) /= 0)write(*,*) "bw not aligned"

mon prog compile sans problème.

Par contre si je tente:

Code :

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

1
2
 
IF(iand(c_loc(bw(1)),3) /= 0)write(*,*) "bw not aligned"

avec en haut;

Code :

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

1
2
 
use, intrinsic :: ISO_C_binding

mon programme ne compile plus et me sort:

Code :

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

1
2
3
4
5
6
7
8
 
The data types of the argument(s) are invalid.   [IAND]
      IF(iand(c_loc(bw(1)),3) /= 0)write(*,*) "bw not aligned"
--------------^
 
This binary operation is invalid for this data type.   [IAND]
      IF(iand(c_loc(bw(1)),3) /= 0)write(*,*) "bw not aligned"
---------^

bw est un tableau de REAL(8).
Quelqu'un peut m'expliquer ce que le compilateur (ifort) n'aime pas ? et comment y remédier ?

Merci d'avance!

[bobbyboy]

Bonjour,
se peut-il que la fonction c_loc ne retourne pas un entier ?

Pouvez-vous essayer :

Code :

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

1
2
3
 
write(*,*) kind(c_loc(bw(1)))
write(*,*) c_loc(bw(1))

[Kercheur]

oula...je crois qu'il y a un pb

la ligne

Code :

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

1
2
 
write(*,*) kind(c_loc(bw(1)))

me retourne:
-100

et avec

Code :

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

1
2
 
write(*,*) c_loc(bw(1))

le programme ne compile pas avec l'erreur:

Code :

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

1
2
3
error #7300: This derived-type object in an input-output list cannot have private components.
        write(*,*) c_loc(bw(1))
-------------------^

avez vous une idée d'où celà peut venir ?

Merci!

[bobbyboy]

Bonjour,

Pourquoi ne pas utiliser "loc" à la place de "c_loc" ? Cela éviterai des erreur de conversion de type entre C et Fortran.

[Kercheur]

C'est ce que j'ai finalement fait...mais j'aimerai comprendre comment utiliser "c_loc".