Télécharger gentst.eso

Retour à la liste

Numérotation des lignes :

  1. C GENTST SOURCE CHAT 05/01/13 00:17:44 5004
  2. LOGICAL FUNCTION GENTST(NUM1,NUM2,NPTO)
  3. C--------------------------------------------------------------------
  4. C
  5. C ON VERIFIE SI 2 NPTO-UPLET SONT IDENTIQUES MAIS DANS LE DESORDRE
  6. C
  7. C PP 9/97
  8. C Pierre Pegon/JRC Ispra
  9. C--------------------------------------------------------------------
  10. IMPLICIT INTEGER(I-N)
  11. IMPLICIT REAL*8 (A-H,O-Z)
  12. C
  13. DIMENSION NUM1(NPTO),NUM2(NPTO)
  14. C
  15. GENTST=.TRUE.
  16. DO IE1=1,NPTO
  17. DO IE2=1,NPTO
  18. IF(NUM1(IE1).EQ.NUM2(IE2))GOTO 1
  19. ENDDO
  20. GOTO 2
  21. 1 CONTINUE
  22. ENDDO
  23. RETURN
  24. C
  25. 2 GENTST=.FALSE.
  26. RETURN
  27. C
  28. END
  29.  
  30.  
  31.  

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