Télécharger la plaquette Cast3M


fr en

Télécharger resmmo.eso

Retour à la liste

Numérotation des lignes : 

resmmo

  1. C RESMMO    SOURCE    OF166741  24/12/18    21:15:30     12090          
  2.  
  3. *--------------------------------------------------------------------*
  4. *                                                                    *
  5. *     Restauration des pointeurs issus de la pile des MODELEs.       *
  6. *                                                                    *
  7. *--------------------------------------------------------------------*
  8.       SUBROUTINE RESMMO(ICOLAC,ITLACC,IDEB,IFIN,NIVEAU)
  9.  
  10.       IMPLICIT INTEGER(I-N)
  11.       IMPLICIT REAL*8 (A-H,O-Z)
  12.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15.  
  16. -INC SMMODEL
  17.  
  18. -INC TMCOLAC
  19.  
  20. C ****** NIVEAU 26 et + ****** MMODEL ***** avec Pile des IMODEL *******
  21.       IF (NIVEAU.LT.26) GOTO 9025
  22. C ******
  23.       ITLAC1 = icolac.KCOLA(51)
  24.  
  25.       DO IEL = IDEB, IFIN
  26.  
  27.         MMODEL = itlacc.ITLAC(IEL)
  28.         IF (MMODEL.EQ.0) GOTO 10
  29.  
  30.         SEGACT,MMODEL*MOD
  31.         NSOUMO = mmodel.KMODEL(/1)
  32.  
  33.         DO ISOU = 1, NSOUMO
  34.           IVA = mmodel.KMODEL(ISOU)
  35.           IF (IVA.LT.0) mmodel.KMODEL(ISOU) = ITLAC1.ITLAC(ABS(IVA))
  36.         ENDDO
  37.  
  38.         SEGDES,MMODEL
  39.  
  40.  10     CONTINUE
  41.       ENDDO
  42.  
  43.       GOTO 9990
  44.  
  45. C ****** NIVEAU 25 et - ****** MMODEL **********************************
  46.  9025 CONTINUE
  47. C ******
  48.       DO IEL = IDEB, IFIN
  49.  
  50.         MMODEL = itlacc.ITLAC(IEL)
  51.         IF (MMODEL.EQ.0) GOTO 1025
  52.  
  53.         SEGACT,MMODEL
  54.         NSOUMO = mmodel.KMODEL(/1)
  55.  
  56.         DO ISOU = 1, NSOUMO
  57.           IVA = mmodel.KMODEL(ISOU)
  58.           IF (IVA.NE.0) CALL RESIMO(ICOLAC,IVA,NIVEAU)
  59.         ENDDO
  60.  
  61.         SEGDES,MMODEL
  62.  
  63.  1025   CONTINUE
  64.       ENDDO
  65.  
  66.       GOTO 9990
  67.  
  68. C ****** ***************************************************************
  69.  9990 CONTINUE
  70. C ******
  71.  
  72.       RETURN
  73.       END
  74.  
  75.  
  76.  

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