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.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC SMRIGID
  15. -INC SMATTAC
  16. KRIGI=0
  17. MATTAC=IPOI2
  18. SEGACT MATTAC
  19. NSOUMA=LISATT(/1)
  20. DO 10 NS=1,NSOUMA
  21. MSOUMA=LISATT(NS)
  22. SEGACT MSOUMA
  23. M=IPMATK(/1)
  24. IF(M.EQ.0) GOTO 1039
  25. DO 1038 IMA=1,M
  26. KRIG=IPMATK(IMA)
  27. IF(KRIGI.NE.0) GOTO 1037
  28. KRIGI=KRIG
  29. GO TO 1038
  30. 1037 CALL FUSRIG(KRIGI,KRIG,IRET)
  31. MRIGID=KRIGI
  32. SEGDES MRIGID
  33. KRIGI=IRET
  34. 1038 CONTINUE
  35. 1039 CONTINUE
  36. SEGDES MSOUMA
  37. 10 CONTINUE
  38. SEGDES MATTAC
  39. IRET=KRIGI
  40. RETURN
  41. END
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  

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