C PRQUOI    SOURCE    CHAT      11/03/16    21:29:43     6902           
      subroutine prquoi(imodel)
      implicit real*8(A-H,O-Z) 
      implicit integer (I-N)
-INC CCOPTIO
-INC SMMODEL
      SEGMENT info
         INTEGER INFELL(JG)
      ENDSEGMENT
      segact imodel*mod
      nele=nefmod  
      if(nele.eq.22) return    
      IF(INFMOD(/1).NE.0)THEN
          NPINT=INFMOD(1)
      ELSE
          NPINT=0
      ENDIF 
      inttyp=-10   
*      write(6,*) ' prquoi : nele ' , nele  
      call elquoi(nele,npint,inttyp,iptr,imodel)
      info=IPTR
      segact info
      do i=1,infell(/1)
        infele(i)=infell(i)
      enddo
      segsup info
      return
      end