Télécharger graco1.eso

Retour à la liste

Numérotation des lignes :

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

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