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    OF166741  24/12/18    21:15:31     12090          
  2.  
  3. C=======================================================================
  4. C   RESTAURATION DES POINTEURS
  5. C
  6. C   APPELE PAR RESTPI
  7. C   APPELLE : ERREUR
  8. C=======================================================================
  9. C  TABLEAU KCOLA : VOIR TYPFIL
  10. C=======================================================================
  11.  
  12.       SUBROUTINE RESTCH (ICOLAC,ITLACC,IMAX1,IDEB)
  13.  
  14.       IMPLICIT INTEGER(I-N)
  15.       IMPLICIT REAL*8 (A-H,O-Z)
  16.  
  17. -INC PPARAM
  18. -INC CCOPTIO
  19.  
  20. -INC SMCHPOI
  21. -INC TMCOLAC
  22.  
  23. C **************************CHPOINT*********************************
  24.       ITLAC1=KCOLA(1)
  25.       DO 1101 IEL=IDEB,IMAX1
  26.         MCHPOI=ITLAC(IEL)
  27.         IF (MCHPOI.EQ.0) GOTO 1101
  28.         SEGACT MCHPOI
  29.         NSOUPO=IPCHP(/1)
  30.         IJK=IPCHP(/1)
  31.         IF (IJK.EQ.0) GOTO 10
  32.         DO 1103 ISOU=1,NSOUPO
  33.           MSOUPO=IPCHP(ISOU)
  34.           IF (MSOUPO.EQ.0) GOTO 1103
  35.           SEGACT MSOUPO*MOD
  36.           IVA=IGEOC
  37.           IF (IVA .LT. 0) IGEOC=ITLAC1.ITLAC(ABS(IVA))
  38.           SEGDES MSOUPO
  39.  1103   CONTINUE
  40.    10   SEGDES MCHPOI
  41.  1101 CONTINUE
  42. C ***********************************************************************
  43.  
  44.       RETURN
  45.       END
  46.  
  47.  
  48.  

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