Télécharger triang.eso

Retour à la liste

Numérotation des lignes :

  1. C TRIANG SOURCE PV 15/11/25 21:15:16 8707
  2. SUBROUTINE TRIANG(KRIGI,PREC,istab)
  3. C=======================================================================
  4. C ASSEMBLE LES PETITES MATRICES RIGIDITE ET LES MET SOUS LA FORME
  5. C Lt.D.L.
  6. C IL LE POINTEUR DE LA MATRICE RESULTANTE DANS ICHOLE
  7. C=======================================================================
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8 (A-H,O-Z)
  11. -INC SMRIGID
  12. -INC CCOPTIO
  13. IF(IIMPI.EQ.1)THEN
  14. CALL GIBTEM(XKT)
  15. INTERR(1)=XKT
  16. CALL ERREUR(-259)
  17. ENDIF
  18. IF(IIMPI.EQ.1)WRITE(IOIMP,10)
  19. 10 FORMAT(' L''IMPRESSION PRECDENTE EST AVANT ASSEM1 ')
  20. CALL ASSEM1(KRIGI,MMATRX,INUINX,ITOPOX,IMINIX,IPOX,INCTRX,IITOPX)
  21. IF(IERR.NE.0) RETURN
  22. IF(IIMPI.EQ.1)THEN
  23. CALL GIBTEM(XKT)
  24. INTERR(1)=XKT
  25. CALL ERREUR(-259)
  26. ENDIF
  27. IF(IIMPI.EQ.1)WRITE(IOIMP,11)
  28. 11 FORMAT(' L''IMPRESSION PRECEDENTE EST AVANT ASSEM2')
  29. CALL ASSEM2(KRIGI,ITOPOX,INUINX,IMINIX,MMATRX,IPOX,INCTRX,IITOPX)
  30. IF(IERR.NE.0) RETURN
  31. IF(IIMPI.EQ.1)THEN
  32. CALL GIBTEM(XKT)
  33. INTERR(1)=XKT
  34. CALL ERREUR(-259)
  35. ENDIF
  36. IF(IIMPI.EQ.1)WRITE(IOIMP,12)
  37. 12 FORMAT(' L''IMPRESSION PRECEDENTE EST AVANT CHOLE ')
  38. IF(IERR.NE.0) GO TO 5000
  39. CALL CHOLE(MMATRX,PREC,istab)
  40. IF(IERR.NE.0) RETURN
  41. IF(IIMPI.EQ.1)THEN
  42. CALL GIBTEM(XKT)
  43. INTERR(1)=XKT
  44. CALL ERREUR(-259)
  45. ENDIF
  46. IF(IERR.NE.0) GO TO 5000
  47. IF(IIMPI.EQ.1) WRITE(IOIMP,13)
  48. 13 FORMAT(' L''IMPRESSION PRECEDENTE EST APRES CHOLE')
  49. MRIGID=KRIGI
  50. SEGACT MRIGID*MOD
  51. ICHOLE=MMATRX
  52. SEGDES MRIGID
  53. 5000 CONTINUE
  54. RETURN
  55. END
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  

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