Télécharger prmu.eso

Retour à la liste

Numérotation des lignes :

  1. C PRMU SOURCE KICH 11/01/07 21:16:12 6839
  2. SUBROUTINE PRMU(IRIG,ITBST)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. logical l0,l1
  6. CHARACTER*16 mwi
  7. *--------------------------------------------------------------------*
  8. * calcul MU pour les solutions statiques et range dans la table
  9. *--------------------------------------------------------------------*
  10. * *
  11. -INC CCOPTIO
  12. *-
  13. -INC SMTABLE
  14. CHARACTER*8 TYPRET
  15.  
  16. ijwi = 0
  17. CALL ACCTAB(ITBST,'MOT',I0,X0,'SOUSTYPE',L0,IP0,
  18. & 'MOT',I1,X1,mwi,L1,ITDEPL)
  19. if (mwi(1:13).eq.'BASE_DE_MODES') ijwi = 1
  20.  
  21. mtable = itbst
  22. segact mtable
  23.  
  24. IM = 0
  25. IMA = 0
  26. 50 CONTINUE
  27. IM = IM + 1
  28. itmod = mtabiv(im)
  29. typret = mtabtv(im)
  30. IF (ITMOD.NE.0 .AND. TYPRET.EQ.'TABLE ') THEN
  31. ITAB2=itmod
  32. if (ijwi.eq.1) then
  33. CALL ACCTAB(ITAB2,'MOT',I0,X0,'DEFORMEE_MODALE',L0,IP0,
  34. & 'CHPOINT ',I1,X1,' ',L1,ITDEPL)
  35. else
  36. CALL ACCTAB(ITAB2,'MOT',I0,X0,'DEFORMEE',L0,IP0,
  37. & 'CHPOINT ',I1,X1,' ',L1,ITDEPL)
  38. endif
  39. call MUCPRI(itdepl,irig,ire1)
  40. if (ierr.ne.0) return
  41. CALL ECCTAB(ITAB2,'MOT',0,0.0D0,'MASSE_DEFORMEE',.TRUE.,0,
  42. & 'CHPOINT ',0,0.0d0,' ',.TRUE.,ire1)
  43. ENDIF
  44. if (im.lt.mlotab) goto 50
  45. segdes mtable
  46. return
  47.  
  48. END
  49.  
  50.  
  51.  
  52.  

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