Télécharger la plaquette Cast3M


fr en

Télécharger resnua.eso

Retour à la liste

Numérotation des lignes : 

resnua

  1. C RESNUA    SOURCE    PV        17/12/05    21:17:11     9646           
  2.       SUBROUTINE RESNUA (ICOLAC,ITLACC,IMAX1)
  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. -INC PPARAM
  18. -INC CCOPTIO
  19. -INC SMNUAGE
  20. -INC TMCOLAC
  21. C
  22.       CHARACTER*8 CTYP
  23.  
  24. C
  25. C
  26. C     ***********************  NUAGE *********************************
  27.       DO 1101 IEL=1,IMAX1
  28.       MNUAGE=ITLAC(IEL)
  29.       IF (MNUAGE.EQ.0) GO TO 1101
  30.       SEGACT MNUAGE
  31.       NVAR=NUAPOI(/1)
  32.       DO 1  I= 1,NVAR
  33.       CTYP =NUATYP(I)
  34.       IF(CTYP.EQ.'FLOTTANT'.OR.CTYP.EQ.'LOGIQUE '.OR.
  35.      $   CTYP.EQ.'ENTIER  '.OR.CTYP.EQ.'MOT     ') GO TO 1
  36.       CALL TYPFIL (CTYP,J)
  37.       IF(J.EQ.0) GO TO 5
  38.       ITLAC1=KCOLA(J)
  39.       NUAVIN=NUAPOI(I)
  40.       SEGACT NUAVIN*MOD
  41.       DO 2 K=1,NUAINT(/1)
  42.       IVA=NUAINT(K)
  43.       NUAINT(K)=ITLAC1.ITLAC(IVA)
  44.    2  CONTINUE
  45.       SEGDES NUAVIN
  46.    1  CONTINUE
  47.       SEGDES MNUAGE
  48.  1101 CONTINUE
  49.       RETURN
  50.    5  CONTINUE
  51.       MOTERR(1:8)=CTYP
  52.       CALL ERREUR (336)
  53.       RETURN
  54.       END
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  

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