Télécharger mrem.eso

Retour à la liste

Numérotation des lignes :

  1. C MREM SOURCE CHAT 09/10/09 21:21:15 6519
  2. SUBROUTINE MREM
  3. ************************************************************************
  4. * remontee de la sotution complete apres resolution a partir
  5. * d une matrice condensee par CMCT ( hors de resou )
  6. *
  7. * Syntaxe :
  8. * chpo3 = MREM chpo1 (rig1 et rig2) chpo2 ;
  9. *
  10. * chpo1 solution reduite sur les ddl non elimines
  11. * rig1 rigidites initiale (hors dependances )
  12. * rig2 rigidites de dependances
  13. *
  14. * chpo3 solution complete en deplacements et LX
  15. *
  16. *************************************************************************
  17. IMPLICIT INTEGER(I-N)
  18. IMPLICIT REAL*8(A-H,O-Z)
  19. -INC SMRIGID
  20. -INC CCOPTIO
  21. -INC SMCHPOI
  22. CALL LIROBJ('CHPOINT',mchpoi,1,IRETOU)
  23. IF(IERR.NE.0) GO TO 5000
  24. CALL LIROBJ('RIGIDITE',ri1,1,IRETOU)
  25. IF(IERR.NE.0) GO TO 5000
  26. CALL LIROBJ('RIGIDITE',ri2,1,IRETOU)
  27. IF(IERR.NE.0) GO TO 5000
  28. CALL LIROBJ('RIGIDITE',ri3,1,IRETOU)
  29. IF(IERR.NE.0) GO TO 5000
  30. CALL LIROBJ('RIGIDITE',ri4,1,IRETOU)
  31. IF(IERR.NE.0) GO TO 5000
  32. CALL LIROBJ('CHPOINT',ichp6,1,IRETOU)
  33. IF(IERR.NE.0) GO TO 5000
  34. CALL LIROBJ('CHPOINT',mchpo1,1,IRETOU)
  35. IF(IERR.NE.0) GO TO 5000
  36. C
  37. call mrem1(mchpoi,ri1,ri2,ri3,ri4,ichp6,mchpo1,iret)
  38. call ecrobj('CHPOINT',iret)
  39.  
  40. 5000 continue
  41. return
  42. end
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

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