SUBROUTINE concat( lg_chaine, reel, chaine) INTEGER, INTENT(INOUT) :: lg_chaine REAL, INTENT(INOUT) :: reel CHARACTER(LEN=lg_chaine), INTENT(INOUT) :: chaine chaine = TRIM(chaine)//' et chaƮne_Fortran' lg_chaine = LEN_TRIM(chaine) reel = 100.0 END SUBROUTINE concat