Télécharger restme.eso

Retour à la liste

Numérotation des lignes :

  1. C RESTME SOURCE PV 17/12/05 21:17:14 9646
  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 TABLEAU KCOLA : VOIR LE SOUS-PROGRAMME TYPFIL
  12. C=======================================================================
  13. -INC CCOPTIO
  14. -INC SMELEME
  15. -INC TMCOLAC
  16. -INC CCGEOME
  17. C=======================================================================
  18. C A EXAMINER.
  19. C APRES, CONTIENTPOUR CHAQUE PILE LE NBRE D'OBJETS A
  20. C SORTIR
  21. C=======================================================================
  22. C
  23. C
  24. C
  25. C****** BOUCLE SUR LES FILES DE SORTIE IFILE=1,NITLAC******************
  26. C
  27. C ****************************** MELEME ****************************
  28. ITLAC1=KCOLA(32)
  29. 6001 CONTINUE
  30. * restauration ilgni
  31. if (ideb.eq.1) then
  32. if ((ilgni.ne.0) .and. (itlac1.itlac(/1) .GT. ilgni))
  33. & ilgni=itlac1.itlac(ilgni)
  34. endif
  35. *
  36. DO 20 I=IDEB,IMAX1
  37. MELEME=ITLAC(I)
  38. IF (MELEME.EQ.0) GO TO 20
  39. SEGACT MELEME*MOD
  40. IF (LISOUS(/1).EQ.0) GOTO 21
  41. DO 1003 J=1,LISOUS(/1)
  42. LISOUS(J)=ITLAC(LISOUS(J))
  43. 1003 CONTINUE
  44. 21 CONTINUE
  45. IF (LISREF(/1).EQ.0) GOTO 25
  46. DO 1004 J=1,LISREF(/1)
  47. LISREF(J)=ITLAC(LISREF(J))
  48. 1004 CONTINUE
  49. 25 CONTINUE
  50. IF(NUM(/2).EQ.0) GO TO 60
  51. IF(IONIVE.GT.9) THEN
  52. DO 61 K2=1,NUM(/2)
  53. DO 61 K1=1,NUM(/1)
  54. NUM(K1,K2) = ITLAC1.ITLAC(NUM(K1,K2))
  55. 61 CONTINUE
  56. ENDIF
  57. 60 CONTINUE
  58. SEGDES MELEME
  59. 20 CONTINUE
  60. GOTO 1098
  61. C***********************************************************************
  62. 1098 CONTINUE
  63. C*********************************************************************
  64. C
  65. RETURN
  66. END
  67.  
  68.  
  69.  
  70.  

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