Esope source files

   1 : C PRQUOI    SOURCE    CHAT      11/03/16    21:29:43     6902           
   2 :       subroutine prquoi(imodel)
   3 :       implicit real*8(A-H,O-Z) 
   4 :       implicit integer (I-N)
   5 : -INC CCOPTIO
   6 : -INC SMMODEL
   7 :       SEGMENT info
   8 :          INTEGER INFELL(JG)
   9 :       ENDSEGMENT
  10 :       segact imodel*mod
  11 :       nele=nefmod  
  12 :       if(nele.eq.22) return    
  13 :       IF(INFMOD(/1).NE.0)THEN
  14 :           NPINT=INFMOD(1)
  15 :       ELSE
  16 :           NPINT=0
  17 :       ENDIF 
  18 :       inttyp=-10   
  19 : *      write(6,*) ' prquoi : nele ' , nele  
  19 :       call elquoi(nele,npint,inttyp,iptr,imodel)
  20 :       info=IPTR
  21 :       segact info
  22 :       do i=1,infell(/1)
  23 :         infele(i)=infell(i)
  24 :       enddo
  25 :       segsup info
  26 :       return
  27 :       end
  28 :         
  29 :  
  30 :  
  31 :  
  32 :