Télécharger restri.eso

Retour à la liste

Numérotation des lignes :

  1. C RESTRI SOURCE PV 16/11/26 21:16:26 9205
  2. SUBROUTINE RESTRI (ICOLAC,ITLACC,IMAX1,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=======================================================================
  10. C TABLEAU KCOLA :
  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 SMRIGID
  18. -INC TMCOLAC
  19. C ***********************MRIGID*************************************
  20. 6003 CONTINUE
  21. ITLAC1=KCOLA(1)
  22. ITLAC2=KCOLA(13)
  23. ITLAC3=KCOLA(16)
  24. ITLAC4=KCOLA(3)
  25. ITLAC5=KCOLA(10)
  26. ITLAC6=KCOLA(2)
  27.  
  28. DO 1202 IEL=IDEB,IMAX1
  29. MRIGID=ITLAC(IEL)
  30. IF (MRIGID.EQ.0) GO TO 1202
  31. SEGACT MRIGID*MOD
  32. NRIGEL=IRIGEL(/2)
  33. IF(IMGEO1.EQ.0) GOTO 1204
  34. IMGEOD=IMGEO1
  35. SEGACT IMGEOD*MOD
  36. DO 1205 I=1,IMGEOR(/1)
  37. IVA=ABS(IMGEOR(I))
  38. * IMGEOR(I)=ITLAC1.ITLAC(IVA) MILL 3/ 9 / 92
  39. IF(IMGEOR(I).LT.0) IMGEOR(I)=ITLAC1.ITLAC(IVA)
  40. 1205 CONTINUE
  41. SEGDES IMGEOD
  42. 1204 CONTINUE
  43. IF(IVECRI.EQ.0) GO TO 1208
  44. MVECRI=IVECRI
  45. SEGACT MVECRI*MOD
  46. DO 1209 I=1,MELZON(/1)
  47. IVA=ABS(MELZON(I))
  48. IF(MELZON(I).LT.0) MELZON(I)=ITLAC1.ITLAC(IVA)
  49. 1209 CONTINUE
  50. SEGDES MVECRI
  51. 1208 CONTINUE
  52. IF (IMGEO2.LT.0) IMGEO2=ITLAC6.ITLAC(ABS(IMGEO2))
  53.  
  54. C ... Le pointeur ICHOLE dans le fichier de sauvegarde est nul
  55. C (MMATRI non sauvé) ou positif (voir SORTRI, EXARIG et WRPIL) ...
  56. C ... On laisse .NE. (et non .GT.) et le ABS au cas où quelqu'un
  57. C miodifiait la sortie ...
  58. IVA=ICHOLE
  59. * IF(IVA .NE.0) ICHOLE=ITLAC3.ITLAC(ABS(IVA))
  60. ichole=abs(iva)
  61.  
  62. IVA=ISUPEQ
  63. IF(IVA.NE.0) ISUPEQ=ITLAC5.ITLAC(IVA)
  64. DO 1203 IR=1,NRIGEL
  65. IVA=ABS(IRIGEL(1,IR))
  66. * IRIGEL(1,IR)=ITLAC1.ITLAC(IVA) MILL 3 / 9 / 92
  67. IF(IRIGEL(1,IR).LT.0) IRIGEL(1,IR)=ITLAC1.ITLAC(IVA)
  68.  
  69. IVA=ABS(IRIGEL(2,IR))
  70. * IF(IVA.NE.0) IRIGEL(2,IR)=ITLAC1.ITLAC(IVA)
  71. IF(IRIGEL(2,IR).LT.0) IRIGEL(2,IR)=ITLAC1.ITLAC(IVA)
  72. if(ionive.lt.18) then
  73. IVA=ABS(IRIGEL(4,IR))
  74. * IRIGEL(4,IR)=ITLAC2.ITLAC(IVA)
  75. IF(IRIGEL(4,IR).LT.0) IRIGEL(4,IR)=ITLAC2.ITLAC(IVA)
  76. endif
  77. 1203 CONTINUE
  78. iva=abs(jrcond)
  79. if (iva.ne.0) jrcond=itlac4.itlac(iva)
  80. iva=abs(jrdepp)
  81. if (iva.ne.0) jrdepp=itlac4.itlac(iva)
  82. iva=abs(jrdepd)
  83. if (iva.ne.0) jrdepd=itlac4.itlac(iva)
  84. iva=abs(jrelim)
  85. if (iva.ne.0) jrelim=itlac4.itlac(iva)
  86. iva=abs(jrgard)
  87. if (iva.ne.0) jrgard=itlac4.itlac(iva)
  88. iva=abs(jrtot)
  89. if (iva.ne.0) jrtot =itlac4.itlac(iva)
  90. iva=abs(imlag)
  91. if (iva.ne.0) imlag =itlac1.itlac(iva)
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101. SEGDES MRIGID
  102.  
  103. 1202 CONTINUE
  104. GOTO 1098
  105. C***********************************************************************
  106. 1098 CONTINUE
  107. C*********************************************************************
  108. RETURN
  109. END
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  

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