. . .
  INTEGER(kind=8) :: &
     nb_periodes_initial, & ! valeur initiale du compteur de périodes d'horloge
     nb_periodes_final,   & ! valeur finale   du compteur de périodes d'horloge
     nb_periodes_max,     & ! valeur maximale du compteur d'horloge
     nb_periodes_sec,     & ! nombre de périodes d'horloge par seconde
     nb_periodes            ! nombre de périodes d'horloge du code
  REAL(kind=8) :: temps_elapsed  ! temps réel en secondes

  ! Initialisations
  
  CALL SYSTEM_CLOCK(COUNT_RATE=nb_periodes_sec, COUNT_MAX=nb_periodes_max)
  . . .
  CALL SYSTEM_CLOCK(COUNT=nb_periodes_initial)
  . . .
  !      <<<<<<<<<<<<< partie du code à évaluer >>>>>>>>>>>>>
  . . .
  CALL SYSTEM_CLOCK(COUNT=nb_periodes_final)
  nb_periodes = nb_periodes_final - nb_periodes_initial
  IF (nb_periodes_final < nb_periodes_initial) &
          nb_periodes = nb_periodes + nb_periodes_max
  temps_elapsed   = REAL(nb_periodes) / nb_periodes_sec
  . . .