Télécharger rgmatt.eso

Retour à la liste

Numérotation des lignes :

  1. C RGMATT SOURCE CHAT 09/10/09 21:23:07 6519
  2. SUBROUTINE RGMATT(IPOI2,IRET)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C=======================================================================
  6. C CE SUBROUTINE CALCULE LA RIGIDITE DUE AUX LIAISONS MIXTES
  7. C
  8. C PROGRAMME PAR GUILBAUD
  9. C APPELE PAR RIGI
  10. C=======================================================================
  11. -INC CCOPTIO
  12. -INC SMRIGID
  13. -INC SMATTAC
  14. KRIGI=0
  15. MATTAC=IPOI2
  16. SEGACT MATTAC
  17. NSOUMA=LISATT(/1)
  18. DO 10 NS=1,NSOUMA
  19. MSOUMA=LISATT(NS)
  20. SEGACT MSOUMA
  21. M=IPMATK(/1)
  22. IF(M.EQ.0) GOTO 1039
  23. DO 1038 IMA=1,M
  24. KRIG=IPMATK(IMA)
  25. IF(KRIGI.NE.0) GOTO 1037
  26. KRIGI=KRIG
  27. GO TO 1038
  28. 1037 CALL FUSRIG(KRIGI,KRIG,IRET)
  29. MRIGID=KRIGI
  30. SEGDES MRIGID
  31. KRIGI=IRET
  32. 1038 CONTINUE
  33. 1039 CONTINUE
  34. SEGDES MSOUMA
  35. 10 CONTINUE
  36. SEGDES MATTAC
  37. IRET=KRIGI
  38. RETURN
  39. END
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  

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