Sources Esope | Cast3M

restme
C RESTME    SOURCE    OF166741  24/12/18    21:15:32     12090          
      SUBROUTINE RESTME  (ITLACC,IMAX1,ICOLAC,IDEB)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C=======================================================================
C   RESTAURATION DES POINTEURS
C
C   APPELE PAR RESTPI
C   APPELLE : ERREUR
C=======================================================================
C  TABLEAU KCOLA : VOIR LE SOUS-PROGRAMME TYPFIL
C=======================================================================
 
-INC PPARAM
-INC CCOPTIO
-INC CCGEOME
 
-INC SMELEME
-INC TMCOLAC
 
C ****************************** MELEME ****************************
      ITLAC1 = KCOLA(32)
 
*  restauration ilgni
      if (ideb.eq.1)  then
        if ((ilgni.ne.0)  .and. (itlac1.itlac(/1) .GT. ilgni))
     &       ilgni=itlac1.itlac(ilgni)
      endif
 
C****** BOUCLE SUR LA PILE DES MAILLAGES *******************************
      DO I = IDEB, IMAX1
        MELEME = ITLAC(I)
        IF (MELEME.EQ.0) GO TO 20
        SEGACT MELEME*MOD
        IF (LISOUS(/1).NE.0) THEN
          DO J = 1, LISOUS(/1)
            LISOUS(J)=ITLAC(LISOUS(J))
          ENDDO
        ENDIF
        IF (LISREF(/1).NE.0) THEN
          DO J=1,LISREF(/1)
            LISREF(J)=ITLAC(LISREF(J))
          ENDDO
        ENDIF
        IF (IONIVE.GT.9) THEN
          IF (NUM(/2).NE.0) THEN
            DO K2 = 1, NUM(/2)
              DO K1 = 1, NUM(/1)
                NUM(K1,K2) = ITLAC1.ITLAC(NUM(K1,K2))
              ENDDO
            ENDDO
          ENDIF
        ENDIF
        SEGDES MELEME
  20    CONTINUE
      ENDDO
C***********************************************************************
 
      RETURN
      END