Télécharger la plaquette Cast3M


fr en

Télécharger eglent.eso

Retour à la liste

Numérotation des lignes : 

eglent

  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.  
  39. -INC PPARAM
  40. -INC CCOPTIO
  41. -INC SMLENTI
  42. *
  43.       LOGICAL LEG
  44.       INTEGER IMPR,IRET
  45. *
  46. * Executable statements
  47. *
  48.       IF (IMPR.GT.2) WRITE(IOIMP,*) 'Entrée dans eglent.eso'
  49.       SEGACT MLENT1
  50.       N1=MLENT1.LECT(/1)
  51.       SEGACT MLENT2
  52.       N2=MLENT2.LECT(/1)
  53.       LEG=.TRUE.
  54.       IF (.NOT.(N1.EQ.N2)) THEN
  55.          LEG=.FALSE.
  56.       ELSE
  57.          DO I=1,N1
  58.             IF (.NOT.(MLENT1.LECT(I).EQ.MLENT2.LECT(I))) THEN
  59.                LEG=.FALSE.
  60.                GOTO 11
  61.             ENDIF
  62.          ENDDO
  63.       ENDIF
  64.  11   CONTINUE
  65.       SEGDES MLENT1
  66.       SEGDES MLENT2
  67. *
  68. * Normal termination
  69. *
  70.       IRET=0
  71.       RETURN
  72. *
  73. * Format handling
  74. *
  75. *
  76. * Error handling
  77. *
  78.  9999 CONTINUE
  79.       IRET=1
  80.       WRITE(IOIMP,*) 'An error was detected in subroutine eglent'
  81.       RETURN
  82. *
  83. * End of subroutine EGLENT
  84. *
  85.       END
  86.  
  87.  
  88.  

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