;+
;
; @file_comments
; determination of the column and of the line corresponding in input to small
; ++
;
; @categories
;
; @param SMALL
;
; @keyword OUT
;
; @keyword ERASE
;
; @keyword FILL
;
; @returns
;
; @uses
;
; @restrictions
;
; @examples
;
; @history
;
; @version
; $Id$
;
; @todo
; seb
;
;-
PRO tracecadre, small, OUT=out, ERASE=erase, FILL=fill
;
  compile_opt idl2, strictarrsubs
;
   numdessin = small[2]-1
   numligne = numdessin/small[0]
   numcolonne = numdessin-numligne*small[0]
; determination of poscadre
   largeurcolonne = 1./small[0]
   largeurligne = 1./small[1]
   cadre = [numcolonne*largeurcolonne,1.-((numligne+1)*largeurligne) $
            , (numcolonne+1)*largeurcolonne, 1.-(numligne*largeurligne)]
   decale = 0.001
   cadre = cadre+[decale,decale,-decale,-decale]
   reinitplt
   !p.position = [0., 0., 1., 1.]
   IF keyword_set(fill) then begin
      polyfill, [cadre[0], cadre[2], cadre[2], cadre[0], cadre[0]] $
       , [cadre[1], cadre[1], cadre[3], cadre[3], cadre[1]], color = 255, /normal
   ENDIF ELSE BEGIN
      plot, [cadre[0], cadre[2], cadre[2], cadre[0], cadre[0]] $
       , [cadre[1], cadre[1], cadre[3], cadre[3], cadre[1]] $
       , xrange = [0, 1], yrange = [0, 1], linestyle = 2*keyword_set(out) $
       , /noerase, /normal, thick = 2, color = 0+255*keyword_set(erase)
   ENDELSE
;------------------------------------------------------------
   return
end