Télécharger la plaquette Cast3M


fr en

Télécharger restch.eso

Retour à la liste

Numérotation des lignes : 

restch

  1. C RESTCH    SOURCE    CB215821  20/11/25    13:39:09     10792          
  2.       SUBROUTINE RESTCH (ICOLAC,ITLACC,IMAX1,IDEB)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. C=======================================================================
  6. C   RESTAURATION DES POINTEURS
  7. C
  8. C   APPELE PAR RESTPI
  9. C   APPELLE : ERREUR
  10. C=======================================================================
  11. C  TABLEAU KCOLA :
  12. C    1  MELEME  2 CHPOIN  3 MRIGID  4 MCHAFF  5 MCHELM  6 MCLSTR
  13. C    7  MELSTR  8 MSOLUT  9 MSTRUC 10        11 MAFFEC 12 MSOSTU
  14. C   13  IMATRI 14 MJONCT 15 MATTAC 16 MMATRI 17 MDEFOR 18 MLREEL
  15. C   19  MLENTI 20 MCHARG 21 MODELE 22 MEVOLL 23 MSUPER
  16. C=======================================================================
  17.  
  18. -INC PPARAM
  19. -INC CCOPTIO
  20. -INC SMCHPOI
  21. -INC TMCOLAC
  22. C
  23. C     **************************CHPOINT*********************************
  24.  6002 CONTINUE
  25.       ITLAC1=KCOLA(1)
  26.       DO 1101 IEL=IDEB,IMAX1
  27.         MCHPOI=ITLAC(IEL)
  28.         IF (MCHPOI.EQ.0) GOTO 1101
  29.         SEGACT MCHPOI
  30.         NSOUPO=IPCHP(/1)
  31.         IJK=IPCHP(/1)
  32.         IF (IJK.EQ.0) THEN
  33.           SEGDES MCHPOI
  34.           GOTO 1101
  35.         ENDIF
  36.         DO 1103 ISOU=1,NSOUPO
  37.           MSOUPO=IPCHP(ISOU)
  38.           IF (MSOUPO.EQ.0) GOTO 1103
  39.           SEGACT MSOUPO*MOD
  40.           IVA=ABS(IGEOC)
  41.           IF (IGEOC .LT. 0) IGEOC=ITLAC1.ITLAC(IVA)
  42.           SEGDES MSOUPO
  43.  1103   CONTINUE
  44.    10   SEGDES MCHPOI
  45.  1101 CONTINUE
  46. C***********************************************************************
  47. C
  48.       RETURN
  49.       END
  50.  
  51.  
  52.  
  53.  
  54.  

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