C MEDTRA    SOURCE    CHAT      10/12/21    21:15:15     6831           
      subroutine medtra(meleme,icle)
      implicit real*8(a-h,o-z)
      implicit integer (i-n)
*
* icle=1 passage de la numerotation Castem à Med
* icle=2 pasage de la numerotation Med à Castem
* icle on supprime le segment meleme
* on cree un nouveau segment
-INC CCOPTIO
-INC SMELEME
-INC CCGEOME
      dimension iper(54 )
      data iper/3,5,2,4,6  ,3,5,7,2,4,6,8,  
     $ 3,5,7,13,15,17,19,2,4,6,8,14,16,18,20,9,10,11,12,
     $ 3,5,10,12,14,2,4,6,11,13,15,7,8,9,
     $ 3,5,10,2,4,6,7,8,9/  
      ia=itypel
      if(kdegre(itypel).ne.3) return

      nn= num(/1)
      ipo=-1
      segini,ipt1=meleme
      if(itypel.eq.6) then
        ipo=0
      elseif(itypel.eq.10) then
        ipo=5
      elseif(itypel.eq.15) then
        ipo=12
      elseif(itypel.eq.17) then
        ipo=31
      elseif(itypel.eq.24) then
        ipo=45
      endif
      if(ipo.eq.-1) return
      segini,ipt1=meleme
      if(icle.eq.1) then
        do ib=1,num(/2)
          do ia = 1,nn-1
            ipt1.num(ia+1,ib)=num(iper(ipo+ia),ib)
          enddo
        enddo
        segdes meleme
        meleme=ipt1
      elseif(icle.eq.2) then
        do ib=1,num(/2)
          do ia = 1,nn-1
            ipt1.num(iper(ipo+ia),ib)=num(ia+1,ib)
          enddo
        enddo
        segsup meleme
        meleme=ipt1
      endif      
      return
      end