iso_c_binding question

iso_c_binding question

Hi,

What would be the right interface to call

void InitWELLRNG44497a(unsigned int *);
extern double (*WELLRNG44497a)(void);

from fortran? I have chased C_FUNPTR without success.

2 posts / 0 nouveau(x)
Dernière contribution
Reportez-vous à notre Notice d'optimisation pour plus d'informations sur les choix et l'optimisation des performances dans les produits logiciels Intel.

That looks like an ordinary procedure, not a pointer to one.

interface

subroutine InitWELLRNG44497a(i) bind(c,name='InitWELLRNG44497a')

     integer(c_int) :: i

end subroutine InitWELLRNG44497a

end interface

In the absence of value attribute, a pointer to the argument will be constructed automatically, for ABI where it is appropriate (including Intel platforms).  inout will be assumed, which seems likely to be appropriate.

Laisser un commentaire

Veuillez ouvrir une session pour ajouter un commentaire. Pas encore membre ? Rejoignez-nous dès aujourd’hui