Sources Esope | Cast3M

clip2s
C CLIP2S    SOURCE    PV        17/12/05    21:15:21     9646           
      SUBROUTINE clip2s (jcolac,argume)
C=======================================================================
C COLlaborateur LIste: numero Pile vers numero Segment
C La routine renumerote la liste des arguments et remplace  la position
C dans pile par le pointeur Esope
C=======================================================================
      integer iArgu
      integer nArg
      integer iPile
      integer nObj,iPoint,iPoPi
      character*8 typNom
C
-INC PPARAM
-INC CCOPTIO
-INC TMCOLAC
      segment LISARG
         character*8 nom(nArg)
         integer     adress(nArg)
      endsegment
      pointeur pile.ITLACC
      pointeur argume.LISARG
      pointeur jcolac.ICOLAC
      nArg = argume.adress(/1)
C pour chaque argument
      do iArgu =1,nArg
C        recuperer son type
         typNom = argume.nom(iArgu)
C        recuper le numero de pile associe
         call typfil (typNom,iPile)
C        chercher le numero de segment dans ilisse
         if(iPile.lt.24.or.iPile.gt.27) then
            pile = jcolac.kcola(iPile)
            nObj = pile.itlac(/1)
            iPoPi =  argume.adress(iArgu)
            if(iPoPi.gt.0.and.iPoPi.le.nObj) then
               iPoint=pile.itlac(iPoPi)
            else
               iPoint=0
            endif
            argume.adress(iArgu)=iPoint
         endif
      enddo
C      write(ioimp,*) 'Sortie de CLIP2S'
      END