Télécharger restme.eso

Retour à la liste

Numérotation des lignes :

  1. C RESTME SOURCE PV 16/11/26 21:16:24 9205
  2. SUBROUTINE RESTME (ITLACC,IMAX1,ICOLAC,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 1 MELEME 2 CHPOIN 3 MRIGID 4 MCHAFF 5 MCHELM 6 MCLSTR
  12. C 7 MELSTR 8 MSOLUT 9 MSTRUC 10 11 MAFFEC 12 MSOSTU
  13. C 13 IMATRI 14 MJONCT 15 MATTAC 16 MMATRI 17 MDEFOR 18 MLREEL
  14. C 19 MLENTI 20 MCHARG 21 MODELE 22 MEVOLL 23 MSUPER
  15. C=======================================================================
  16. -INC CCOPTIO
  17. -INC SMELEME
  18. -INC TMCOLAC
  19. -INC CCGEOME
  20. C=======================================================================
  21. C A EXAMINER.
  22. C APRES, CONTIENTPOUR CHAQUE PILE LE NBRE D'OBJETS A
  23. C SORTIR
  24. C=======================================================================
  25. C
  26. C
  27. C
  28. C****** BOUCLE SUR LES FILES DE SORTIE IFILE=1,NITLAC******************
  29. C
  30. C ****************************** MELEME ****************************
  31. ITLAC1=KCOLA(32)
  32. 6001 CONTINUE
  33. * restauration ilgni
  34. if (ideb.eq.1) then
  35. if ((ilgni.ne.0) .and. (itlac1.itlac(/1) .GT. ilgni))
  36. & ilgni=itlac1.itlac(ilgni)
  37. if ((nsdpge.ne.0) .AND. (itlac1.itlac(/1) .GT. nsdpge))
  38. & nsdpge=itlac1.itlac(nsdpge)
  39. endif
  40. *
  41. DO 20 I=IDEB,IMAX1
  42. MELEME=ITLAC(I)
  43. IF (MELEME.EQ.0) GO TO 20
  44. SEGACT MELEME*MOD
  45. IF (LISOUS(/1).EQ.0) GOTO 21
  46. DO 1003 J=1,LISOUS(/1)
  47. LISOUS(J)=ITLAC(LISOUS(J))
  48. 1003 CONTINUE
  49. 21 CONTINUE
  50. IF (LISREF(/1).EQ.0) GOTO 25
  51. DO 1004 J=1,LISREF(/1)
  52. LISREF(J)=ITLAC(LISREF(J))
  53. 1004 CONTINUE
  54. 25 CONTINUE
  55. IF(NUM(/2).EQ.0) GO TO 60
  56. IF(IONIVE.GT.9) THEN
  57. DO 61 K2=1,NUM(/2)
  58. DO 61 K1=1,NUM(/1)
  59. NUM(K1,K2) = ITLAC1.ITLAC(NUM(K1,K2))
  60. 61 CONTINUE
  61. ENDIF
  62. 60 CONTINUE
  63. SEGDES MELEME
  64. 20 CONTINUE
  65. GOTO 1098
  66. C***********************************************************************
  67. 1098 CONTINUE
  68. C*********************************************************************
  69. C
  70. RETURN
  71. END
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  

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