Télécharger la plaquette Cast3M


fr en

Télécharger prquoi.eso

Retour à la liste

Numérotation des lignes : 

prquoi

  1. C PRQUOI    SOURCE    CB215821  24/04/12    21:16:59     11897          
  2.       subroutine prquoi(imodel)
  3.       implicit real*8(A-H,O-Z)
  4.       implicit integer (I-N)
  5.  
  6. -INC PPARAM
  7. -INC CCOPTIO
  8. -INC SMMODEL
  9.       SEGMENT info
  10.          INTEGER INFELL(JG)
  11.       ENDSEGMENT
  12.       segact imodel*mod
  13.       nele=nefmod
  14. c     petite verrue pour les MULT
  15.       if(nele.eq.22) return
  16. c     petite verrue pour les SURE
  17.       if(nele.eq.259) then
  18.         infele(1)=nefmod
  19.         infele(14)=48
  20. c     test pour savoir s'il sagit de SURE xfem
  21.         nomid = LNOMID(1)
  22.         segact nomid
  23.         IF (lesfac(/2).NE.0) THEN
  24.            infele(13)=63
  25.         ELSE 
  26.            infele(13)=1
  27.         ENDIF
  28.  
  29.         return
  30.       endif
  31.  
  32.       IF(INFMOD(/1).NE.0)THEN
  33.           NPINT=INFMOD(1)
  34.       ELSE
  35.           NPINT=0
  36.       ENDIF
  37.       inttyp=-10
  38. c      write(6,*) ' prquoi : nele ' , nele,npint,inttyp,formod(1)
  39.       call elquoi(nele,npint,inttyp,iptr,imodel)
  40.       info=IPTR
  41.       segact info
  42.       do i=1,infell(/1)
  43.         infele(i)=infell(i)
  44.       enddo
  45.       segsup info
  46.       return
  47.       end
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales