Esope source files

   1 : C UTMU      SOURCE    KICH      05/05/26    21:16:18     5092           
   2 :       SUBROUTINE UTMU(IRIG,ITBST)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : 
   6 : *--------------------------------------------------------------------*
   7 : * calcul UtMU pour les solutions statiques et range dans la table
   8 : *--------------------------------------------------------------------*
   9 : *                                                                    *
  10 : -INC CCOPTIO
  11 : *- 
  12 : -INC SMTABLE
  13 :       CHARACTER*8 TYPRET
  14 : 
  15 :       mtable = itbst 
  16 :       segact mtable 
  17 : 
  18 :       IM = 0 
  19 :       IMA = 0                                        
  20 :  50   CONTINUE                  
  21 :       IM = IM + 1
  22 :       itmod = mtabiv(im)
  23 :       typret = mtabtv(im)
  24 :       IF (ITMOD.NE.0 .AND. TYPRET.EQ.'TABLE   ') THEN 
  25 :         ITAB2=itmod   
  25 :         CALL ACCTAB(ITAB2,'MOT',I0,X0,'DEFORMEE',L0,IP0, 
  26 :      &                  'CHPOINT ',I1,X1,' ',L1,ITDEPL)
  26 :          call XTMX(itepl,irig,x1)
  27 :          if (ierr.ne.0) return
  27 :          CALL ECCTAB(IPTAB2,'MOT',0,0.0D0,'MASSE_DEFORMEE',.TRUE.,0,
  28 :      &        'FLOTTANT',0,x1,' ',.TRUE.,0)       
  29 :       ENDIF
  30 :       if (im.lt.mlotab) goto 50
  31 :       segdes mtable
  32 :       return
  33 : 
  34 :       END
  35 :