SUBROUTINE  boucle(  nbthd, nbiter, ifreq,  &
                           it_max,  prec, nbitgc, t2  )
      USE numerics
      IMPLICIT  NONE
      INCLUDE 'comthd.h'
      INCLUDE 'p_comptr.h'
      INCLUDE 'u_comptr.h'
      INTEGER,  INTENT(INOUT)  ::  nbthd
      INTEGER,  INTENT(IN)  ::  nbiter
      INTEGER,  INTENT(IN)  ::  it_max
      INTEGER,  INTENT(IN)  ::  ifreq
      REAL(rp),  INTENT(IN)  ::  prec 
      INTEGER,   INTENT(OUT)  ::  nbitgc
      REAL(dp),  INTENT(OUT)  ::  t2
      END  SUBROUTINE  boucle