Télécharger la plaquette Cast3M


fr en

Télécharger rgmatt.eso

Retour à la liste

Numérotation des lignes : 

rgmatt

  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