Sources Esope | Cast3M

prquoi
C PRQUOI    SOURCE    OF166741  24/10/07    21:15:43     12016          
 
      SUBROUTINE PRQUOI(imodel)
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
 
-INC PPARAM
-INC CCOPTIO
 
-INC SMMODEL
 
      SEGMENT info
        INTEGER infell(JG)
      ENDSEGMENT
 
C (0) petite verrue pour la formulation CONTACT
      IF (imodel.FORMOD(1) .EQ. 'CONTACT         ') RETURN
C (1) petite verrue pour les MULT
      IF (imodel.NEFMOD .EQ. 22) RETURN
C (2) petite verrue pour les SURE
C     Travail fait par ailleurs :
      IF (imodel.NEFMOD .EQ. 259) RETURN
C Voir si ces "verrues" ne peuvent pas etre mises dans ELQUOI ?
 
      NPINT = imodel.INFMOD(1)
 
      inttyp = -10
 
      SEGACT,imodel*MOD
 
      nele = imodel.nefmod
      CALL ELQUOI(nele,npint,inttyp,IPTR,imodel)
 
c* N'est-ce-pas suffisant comme appel : CALL ELQUOI(imodel,inttyp,IPTR) ???
 
      info = IPTR
      if (info.eq.0) RETURN
 
c*      SEGACT,info
      DO i = 1, info.infell(/1)
        imodel.infele(i) = info.infell(i)
      ENDDO
      SEGSUP,info
 
      RETURN
      END