Télécharger la plaquette Cast3M


fr en

Télécharger exantk.eso

Retour à la liste

Numérotation des lignes : 

exantk

  1. C EXANTK    SOURCE    PV        21/01/21    21:15:19     10862          
  2.       SUBROUTINE EXANTK (ICOLAC,ITLACC,M1,M2,IIICHA)
  3. C----------------------------------------------------------------------
  4. C
  5. C  BUT:  REMPLIT LES PILES A PARTIR DE L EXAMEN DES MATRIK
  6. C        SI IIICHA =1 ON  CHANGE  LES POINTEURS----
  7. C completement pompe sur exachp
  8. C
  9. C     ENTREE ITLACC POINTEUR DE LA PILE EXAMINEE
  10. C            ICOLAC POINTEUR SUR LE CHAPEAU DES PILES
  11. C            M1     @REMIER INDICE D EXAMEN DANS LA PILE
  12. C            M2     DERNIER INDICE
  13. C            IIICHA =1 ON CHANGE LES POINTEURS
  14. C----------------------------------------------------------------
  15. C   APPELE PAR EXPIL
  16. C   APPELLE AJOUN
  17. C=======================================================================
  18. C  TABLEAU KCOLA: VOIR SIGNIFICATION DANS SOUS-PROGRAMME TYPFIL
  19. C=======================================================================
  20. C
  21.       IMPLICIT INTEGER(I-N)
  22.       IMPLICIT REAL*8(A-H,O-Z)
  24.       POINTEUR IVA.MELEME
  25.  
  26. -INC PPARAM
  27. -INC CCOPTIO
  28. -INC TMCOLAC
  29.       iun=1
  30.       ICO1=KCOLA(1)
  31.       ICO2=KCOLA(2)
  32.       ILISSE=ILISSG
  33.       SEGACT ILISSE*MOD
  34. C 43 Objet MATRIK  (déterminé dans MENAG6)
  35.       ICO43=KCOLA(43)
  36.       DO 604 IEL=M1,M2
  37.          MATRIK=ITLAC(IEL)
  38.          IF (MATRIK.EQ.0) GO TO 604
  39.          SEGACT MATRIK*MOD
  40.          NMATRI=IRIGEL(/2)
  41.          DO 1 I=1,NMATRI
  42.             IVA=IRIGEL(1,I)
  43.             IF(IVA.GT.0)THEN
  44.                SEGDES IVA
  45.                CALL AJOUN(ICO1,IVA,ILISSE,iun)
  46.                IF(IIICHA.EQ.1) IRIGEL(1,I) =-IVA
  47.             ENDIF
  48.             IVA=IRIGEL(2,I)
  49.             IF(IVA.GT.0)THEN
  50.                SEGDES IVA
  51.                CALL AJOUN(ICO1,IVA,ILISSE,iun)
  52.                IF(IIICHA.EQ.1) IRIGEL(2,I) =-IVA
  53.             ENDIF
  54.             IMATRI=IRIGEL(4,I)
  55.             IF (IMATRI.NE.0) THEN
  56.                SEGACT IMATRI*MOD
  57.                IVA=KSPGP
  58.                IF(IVA.GT.0)THEN
  59.                   SEGDES IVA
  60.                   CALL AJOUN(ICO1,IVA,ILISSE,iun)
  61.                   IF(IIICHA.EQ.1) KSPGP =-IVA
  62.                ENDIF
  63.                IVA=KSPGD
  64.                IF(IVA.GT.0)THEN
  65.                   SEGDES IVA
  66.                   CALL AJOUN(ICO1,IVA,ILISSE,iun)
  67.                   IF(IIICHA.EQ.1) KSPGD =-IVA
  68.                ENDIF
  69.                SEGDES IMATRI
  70.             ENDIF
  71.  1       CONTINUE
  72.          IVA=KIZM
  73.          IF(IVA.GT.0)THEN
  74.             SEGDES IVA
  75.             CALL AJOUN(ICO1,IVA,ILISSE,iun)
  76.             IF(IIICHA.EQ.1) KIZM        =-IVA
  77.          ENDIF
  78.          IVA=KISPGT
  79.          IF(IVA.GT.0)THEN
  80.             SEGDES IVA
  81.             CALL AJOUN(ICO1,IVA,ILISSE,iun)
  82.             IF(IIICHA.EQ.1) KISPGT      =-IVA
  83.          ENDIF
  84.          IVA=KISPGP
  85.          IF(IVA.GT.0)THEN
  86.             SEGDES IVA
  87.             CALL AJOUN(ICO1,IVA,ILISSE,iun)
  88.             IF(IIICHA.EQ.1) KISPGP      =-IVA
  89.          ENDIF
  90.          IVA=KISPGD
  91.          IF(IVA.GT.0)THEN
  92.             SEGDES IVA
  93.             CALL AJOUN(ICO1,IVA,ILISSE,iun)
  94.             IF(IIICHA.EQ.1) KISPGD      =-IVA
  95.          ENDIF
  96.          IVA=KIDMAT(8)
  97.          IF(IVA.GT.0)THEN
  98.             SEGDES IVA
  99.             CALL AJOUN(ICO2,IVA,ILISSE,iun)
  100.             IF(IIICHA.EQ.1) KIDMAT(8)   =-IVA
  101.          ENDIF
  102.          IVA=KKMMT(2)
  103.          IF(IVA.GT.0)THEN
  104.             SEGDES IVA
  105.             CALL AJOUN(ICO43,IVA,ILISSE,iun)
  106.             IF(IIICHA.EQ.1) KKMMT(2)   =-IVA
  107.          ENDIF
  108.          IVA=KKMMT(3)
  109.          IF(IVA.GT.0)THEN
  110.             SEGDES IVA
  111.             CALL AJOUN(ICO43,IVA,ILISSE,iun)
  112.             IF(IIICHA.EQ.1) KKMMT(3)   =-IVA
  113.          ENDIF
  114.          SEGDES MATRIK
  115.  604  CONTINUE
  116. *      SEGDES ILISSE
  117. C     ************
  118.       RETURN
  119.       END
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  

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