Télécharger eglent.eso

Retour à la liste

Numérotation des lignes :

  1. C EGLENT SOURCE GOUNAND 05/12/21 21:19:23 5281
  2. SUBROUTINE EGLENT(MLENT1,MLENT2,
  3. $ LEG,
  4. $ IMPR,IRET)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6. IMPLICIT INTEGER (I-N)
  7. C***********************************************************************
  8. C NOM : EGLENT
  9. C DESCRIPTION : Test l'égalité de deux listes d'entiers
  10. C
  11. C
  12. C
  13. C LANGAGE : ESOPE
  14. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  15. C mél : gounand@semt2.smts.cea.fr
  16. C***********************************************************************
  17. C APPELES :
  18. C APPELES (E/S) :
  19. C APPELES (BLAS) :
  20. C APPELES (CALCUL) :
  21. C APPELE PAR :
  22. C***********************************************************************
  23. C SYNTAXE GIBIANE :
  24. C ENTREES :
  25. C ENTREES/SORTIES :
  26. C SORTIES :
  27. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  28. C***********************************************************************
  29. C VERSION : v1, 14/12/2005, version initiale
  30. C HISTORIQUE : v1, 14/12/2005, création
  31. C HISTORIQUE :
  32. C HISTORIQUE :
  33. C***********************************************************************
  34. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  35. C en cas de modification de ce sous-programme afin de faciliter
  36. C la maintenance !
  37. C***********************************************************************
  38. -INC CCOPTIO
  39. -INC SMLENTI
  40. *
  41. LOGICAL LEG
  42. INTEGER IMPR,IRET
  43. *
  44. * Executable statements
  45. *
  46. IF (IMPR.GT.2) WRITE(IOIMP,*) 'Entrée dans eglent.eso'
  47. SEGACT MLENT1
  48. N1=MLENT1.LECT(/1)
  49. SEGACT MLENT2
  50. N2=MLENT2.LECT(/1)
  51. LEG=.TRUE.
  52. IF (.NOT.(N1.EQ.N2)) THEN
  53. LEG=.FALSE.
  54. ELSE
  55. DO I=1,N1
  56. IF (.NOT.(MLENT1.LECT(I).EQ.MLENT2.LECT(I))) THEN
  57. LEG=.FALSE.
  58. GOTO 11
  59. ENDIF
  60. ENDDO
  61. ENDIF
  62. 11 CONTINUE
  63. SEGDES MLENT1
  64. SEGDES MLENT2
  65. *
  66. * Normal termination
  67. *
  68. IRET=0
  69. RETURN
  70. *
  71. * Format handling
  72. *
  73. *
  74. * Error handling
  75. *
  76. 9999 CONTINUE
  77. IRET=1
  78. WRITE(IOIMP,*) 'An error was detected in subroutine eglent'
  79. RETURN
  80. *
  81. * End of subroutine EGLENT
  82. *
  83. END
  84.  
  85.  
  86.  

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