Sources Esope | Cast3M

qnomid
C QNOMID    SOURCE    OF166741  24/10/07    21:15:43     12016          
 
*  Recherche du segment NOMID correspondant a un TYPE (chatyp) pour 
*  un MODELE ELEMENTAIRE iqmod
 
      FUNCTION QNOMID(iqmod,chatyp)
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
-INC PPARAM
-INC CCOPTIO
 
-INC SMMODEL
 
      CHARACTER*(*) chatyp
      INTEGER QNOMID
 
      PARAMETER (ntyp=19)
      CHARACTER*8 nomtyp(ntyp)
      DATA nomtyp/ 'DEPLACEM', 'FORCES  ', 'GRADIENT', 'CONTRAIN',
     &             'DEFORMAT', 'MATERIAU', 'CARACTER', 'TEMPERAT',
     &             'PRINCIPA', 'VARINTER', 'GRAFLEXI', 'VINMETAL',
     &             'DEFINELA', 'PARAMEXT', 'VIDE    ', 'SCAL    ',
     &             'TEMP    ', 'MAHO    ', 'MAHT    ' /
 
      QNOMID = 0
 
C On suppose le sous-modele (iqmod) est actif
      imodel = iqmod
 
C Petit test normalement inutile :
      if (imodel.lnomid(/1).ne.ntyp) then
        write(ioimp,*) 'QNOMID : Incoherence lnomid(/1) et ntyp'
        call erreur(5)
        return
      endif
 
C On sort le NOMID demande et on ne le cree pas
      DO i = 1, ntyp
        if (chatyp .EQ. nomtyp(i)) then
          QNOMID = imodel.lnomid(i)
          RETURN
        endif
      ENDDO
 
      write(ioimp,*) 'QNOMID : type ',chatyp,' non reconnu'
      call erreur(5)
 
c      RETURN
      END