Esope source files

   1 : C IDTEMP    SOURCE    CHAT      12/06/07    21:15:30     7389           
   2 : 
   3 :       SUBROUTINE IDTEMP(MFR,IFOU,NPINT,IPNOMC,NBROBL,NBRFAC)
   4 : 
   5 : *--------------------------------------------------------------------*
   6 : *                                                                    *
   7 : *     RECHERCHE DES NOMS DE COMPOSANTES DE TEMPERATURE               *
   8 : *     ________________________________________________               *
   9 : *                                                                    *
  10 : *     ENTREES:                                                       *
  11 : *                                                                    *
  12 : *        MFR       FORMULATION DE L'ELEMENT                          *
  13 : *        IFOU      IFOUR DE CCOPTIO                                  *
  14 : *        NPINT     Nombre de point d'integration dans l'epaisseur    *
  15 : *                  = 0 si inutile                                    *
  16 : *                                                                    *
  17 : *     SORTIES:                                                       *
  18 : *                                                                    *
  19 : *        IPNOMC    Pointeur sur les listes de noms de composantes    *
  20 : *                  obligatoires et facultatives                      *
  21 : *                                                                    *
  22 : *        NBROBL    nombre de composantes obligatoires                *
  23 : *                                                                    *
  24 : *        NBRFAC    nombre de composantes facultatives                *
  25 : *                                                                    *
  26 : *--------------------------------------------------------------------*
  27 :       IMPLICIT INTEGER(I-N)
  28 :       IMPLICIT REAL*8(A-H,O-Z)
  29 : 
  30 : -INC SMMODEL
  31 : 
  32 :       NBROBL=0
  33 :       NBRFAC=0
  34 :       NOMID=0
  35 : *
  36 : *---     COQUES ET COQUES EPAISSES
  37 : *
  38 : *      write(6,*) ' idtemp  mfr ' , mfr
  39 :       IF (MFR.EQ.3.OR.MFR.EQ.5.OR.MFR.EQ.9) THEN
  40 :         IF(NPINT.EQ.0) THEN
  41 :            NBROBL=3
  42 :            SEGINI NOMID
  43 :            LESOBL(1)='TINF    '
  44 :            LESOBL(2)='T       '
  45 :            LESOBL(3)='TSUP    '
  46 :         ELSE
  47 :            NBROBL = 1
  48 :            SEGINI NOMID
  49 :            LESOBL(1)='T       '
  50 :         ENDIF
  51 : *
  52 : *---     TOUS LES CAS SAUF COQUES ET COQUES EPAISSES
  53 : *
  54 :       ELSE
  55 :         NBROBL=1
  56 :         SEGINI NOMID
  57 :         LESOBL(1)='T       '
  58 :       ENDIF
  59 : *
  60 :       IF (NOMID.EQ.0) SEGINI NOMID
  61 :       SEGDES,NOMID
  62 :       IPNOMC=NOMID
  63 : 
  64 :       RETURN
  65 :       END
  66 : 
  67 :  
  68 :  
  69 :