224           call affectecour(array,arraymi,arrayma,iarray,ij2)
226      &         call echange(array,arraymi,arrayma,iarray,i,ij2)
229             call echange(array,arraymi,arrayma,iarray,j,ij2)
231               call echange(array,arraymi,arrayma,iarray,i,ij2)
245           call affectetmp(array,arraymi,arrayma,iarray,l)
251             call affecte(array,arraymi,arrayma,iarray,l,k)
252             call affectetmpinv(array,arraymi,arrayma,iarray,k)
295       call affectecour(array,arraymi,arrayma,iarray,i+1)
298         call affecte(array,arraymi,arrayma,iarray,k+1,k)
301           call affecte(array,arraymi,arrayma,iarray,k+1,k)
304         call affectecourinv(array,arraymi,arrayma,iarray,k+1)
330       subroutine echange(array,arraymi,arrayma,iarray,i,j)  argument
332       integer   iarray(*)  local
335       iarray(j) = iarray(i)
336       iarray(i) = icour
337       icour     = iarray(j)
349       subroutine affecte(array,arraymi,arrayma,iarray,i,j)  argument
351       integer   iarray(*)  local
354       iarray(i) = iarray(j)
360       subroutine affectecour(array,arraymi,arrayma,iarray,i)  argument
362       integer   iarray(*)  local
365       icour = iarray(i)
371       subroutine affectecourinv(array,arraymi,arrayma,iarray,i)  argument
373       integer   iarray(*)  local
376       iarray(i) = icour
382       subroutine affectetmp(array,arraymi,arrayma,iarray,i)  argument
384       integer   iarray(*)  local
387       itmp = iarray(i)
393       subroutine affectetmpinv(array,arraymi,arrayma,iarray,i)  argument
395       integer   iarray(*)  local
398       iarray(i) = itmp