1      SUBROUTINE GSQMIX(I)
2      INCLUDE 'Parametres.f'
3      i = imix_courant
4      END
5