Utiliser ISO_C_BINDING dans un prog FORTRAN

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:

---

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:

---

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

---

avec en haut;

Code:

---

1 2	use, intrinsic :: ISO_C_binding

---

mon programme ne compile plus et me sort:

Code:

---

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!

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

Pouvez-vous essayer :

Code:

---

1 2 3

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

---

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

la ligne

Code:

---

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

---

me retourne:
-100

et avec

Code:

---

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

---

le programme ne compile pas avec l'erreur:

Code:

---

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!

Bonjour,

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

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