PROGRAM appel_c IMPLICIT NONE INTEGER :: lg_chaine = 0 REAL :: reel = 0.0 CHARACTER(len=40) :: chaine = 'chaîne_Fortran'//achar(0) ! ! Type suivant nécessaire pour la récupération d'adresse C. INTEGER(kind=8) :: creation_cel, cellule CALL fonction( chaine, lg_chaine, reel ) ! Suppression du caractère "achar(0)" chaine = chaine(1:lg_chaine) PRINT '(2a)' ,'chaîne finale = ', chaine PRINT '(a,i0)' ,'longueur de la chaîne finale = ', lg_chaine PRINT '(a,f0.4)','réel passé par adresse = ', reel cellule = creation_cel( acos(-1.), 1756 ) call imp_cel( cellule ) call modif_cel ( cellule, exp(1.), 1791 ) call imp_cel( cellule ) call libere_cel( cellule ) END PROGRAM appel_c