Télécharger la plaquette Cast3M


fr en

Télécharger graco1.eso

Retour à la liste

Numérotation des lignes : 

graco1

  1. C GRACO1    SOURCE    PV        20/09/26    21:17:13     10724          
  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.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. -INC SMMATRI
  13.       REAL*8 XKT
  14.       IF(IIMPI.EQ.1)THEN
  15.        CALL GIBTEM(XKT)
  16.        INTERR(1)=XKT
  17.        CALL ERREUR(-259)
  18.       ENDIF
  19.       IF(IIMPI.EQ.1)WRITE(IOIMP,10)
  20.   10  FORMAT(' L''IMPRESSION PRECDENTE EST  AVANT ASSEM1 ')
  21.       CALL ASSEM1(KRIGI,MMATRX,INUINX,ITOPOX,IMINIX,IPOX,INCTRX,IITOPX)
  22.       IF(IERR.NE.0) RETURN
  23.       IF(IIMPI.EQ.1)THEN
  24.        CALL GIBTEM(XKT)
  25.        INTERR(1)=XKT
  26.        CALL ERREUR(-259)
  27.       ENDIF
  28.       IF(IIMPI.EQ.1)WRITE(IOIMP,11)
  29.    11  FORMAT(' L''IMPRESSION PRECEDENTE EST  AVANT ASSEM2')
  30.       CALL ASSEM2(KRIGI,ITOPOX,INUINX,IMINIX,MMATRX,IPOX,INCTRX,IITOPX)
  31.       IF(IERR.NE.0) RETURN
  32.       IF(IIMPI.EQ.1)THEN
  33.        CALL GIBTEM(XKT)
  34.        INTERR(1)=XKT
  35.        CALL ERREUR(-259)
  36.       ENDIF
  37.       CALL GRACO2(MMATRX)
  38.       IF(IERR.NE.0) RETURN
  39.       IF(IIMPI.EQ.1)THEN
  40.        CALL GIBTEM(XKT)
  41.        INTERR(1)=XKT
  42.        CALL ERREUR(-259)
  43.       ENDIF
  44.       IF(IERR.NE.0) GO TO 5000
  45.       IF(IIMPI.EQ.1) WRITE(IOIMP,13)
  46.    13 FORMAT(' L''IMPRESSION PRECEDENTE EST APRES GRACO2')
  47.       MRIGID=KRIGI
  48.       SEGACT MRIGID*MOD
  49.       ICHOLE=MMATRX
  50.       SEGDES MRIGID
  51.  5000 CONTINUE
  52.       RETURN
  53.       END
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  

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