Procedures | Cast3M

   1 : * @LAMASS   PROCEDUR  KK2000    99/11/30    21:15:15     3720           
   2 : *
   3 : ************************************************************************
   4 : *                          PROCEDURA @LAMASS
   5 : ************************************************************************
   6 : *
   7 : * DESCRIZIONE : Calcola la matrice di massa di un laminato
   8 : *
   9 : * Sintassi    : mass1 = @lamass tcomp ;
  10 : *
  11 : * Autore/Data : A. Miliozzi 10/04/97
  12 : *
  13 : * Revisioni   :
  14 : *
  15 : ************************************************************************
  16 : *
  17 : * Input  :   tcomp = tavola caratteristica del multistrato (TABLE)
  18 : *
  19 : * Output :   mass1 = matrice di massa (MCHAML)
  20 : *
  21 : ************************************************************************
  22 : *
  23 : DEBPROC @LAMASS TT*TABLE ;
  24 : *
  25 :  LOG1 = EGA (TT.TIPO) 'OMOG' ;
  26 :  SI LOG1 ; TT.TIPO = MOT 'MLAY' ; FINSI ;
  27 : *
  28 :  NZON = (DIME TT) - 2 ;
  29 :  NN1    = 1 ;
  30 : *
  31 :  REPETER LOOP1 NZON ;
  32 : *
  33 :    OBJ = TT.NN1.MOD1   ;
  34 :    TM  = @LAMAT TT NN1 ;
  35 : *
  36 :    NLAM = (DIME TT.NN1) - 6 ;
  37 :    NN2    = 1 ;
  38 : *
  39 :    REPETER LOOP2 NLAM ;
  40 : *
  41 :      MAT1 = TM.MAT.NN2        ;
  42 :      MASS1 = MASS OBJ MAT1    ;
  43 :      SI ( (NN1+NN2) EGA 2 )   ;
  44 :        MASSA = MASS1          ;
  45 :      SINON                    ;
  46 :        MASSA = MASSA ET MASS1 ;
  47 :      FINSI                    ;
  48 : *
  49 :      NN2 = NN2 + 1 ;
  50 : *
  51 :    FIN LOOP2 ;
  52 : *
  53 :    NN1 = NN1 + 1 ;
  54 : *
  55 :  FIN LOOP1 ;
  56 : *
  57 :  SI LOG1 ; TT.TIPO = MOT 'OMOG' ; FINSI ;
  58 : *
  59 : FINPROC MASSA ;
  60 : *
  61 : ************************************************************
  62 : *                FINE PROCEDURA @LAMASS
  63 : ************************************************************
  64 : *
  65 : 
  66 :