Numérotation des lignes :

prmu
C PRMU      SOURCE    KICH      11/01/07    21:16:12     6839      SUBROUTINE PRMU(IRIG,ITBST)      IMPLICIT INTEGER(I-N)      IMPLICIT REAL*8 (A-H,O-Z)      logical l0,l1      CHARACTER*16 mwi*--------------------------------------------------------------------** calcul MU pour les solutions statiques et range dans la table*--------------------------------------------------------------------**                                                                    * -INC PPARAM-INC CCOPTIO*--INC SMTABLE      CHARACTER*8 TYPRET       ijwi = 0        CALL ACCTAB(ITBST,'MOT',I0,X0,'SOUSTYPE',L0,IP0,     &                  'MOT',I1,X1,mwi,L1,ITDEPL)      if (mwi(1:13).eq.'BASE_DE_MODES') ijwi = 1       mtable = itbst      segact mtable       IM = 0      IMA = 0 50   CONTINUE      IM = IM + 1      itmod = mtabiv(im)      typret = mtabtv(im)      IF (ITMOD.NE.0 .AND. TYPRET.EQ.'TABLE   ') THEN        ITAB2=itmod        if (ijwi.eq.1) then        CALL ACCTAB(ITAB2,'MOT',I0,X0,'DEFORMEE_MODALE',L0,IP0,     &                  'CHPOINT ',I1,X1,' ',L1,ITDEPL)        else        CALL ACCTAB(ITAB2,'MOT',I0,X0,'DEFORMEE',L0,IP0,     &                  'CHPOINT ',I1,X1,' ',L1,ITDEPL)        endif         call MUCPRI(itdepl,irig,ire1)         if (ierr.ne.0) return         CALL ECCTAB(ITAB2,'MOT',0,0.0D0,'MASSE_DEFORMEE',.TRUE.,0,     &        'CHPOINT ',0,0.0d0,' ',.TRUE.,ire1)      ENDIF      if (im.lt.mlotab) goto 50      segdes mtable      return       END    

© Cast3M 2003 - Tous droits réservés.
Mentions légales