Télécharger chiady.eso

Retour à la liste

Numérotation des lignes :

  1. C CHIADY SOURCE CHAT 05/01/12 21:56:52 5004
  2. SUBROUTINE CHIADY(IDY,II,IDYT,IADY)
  3. C
  4. C RECHERCHE DU NUMERO D'ORDRE DE IDYT DANS IDY
  5. C IADY NUMERO D'ORDRE DE IDYT DANS IDY OU 0
  6. C II DIMENSION DE IDY
  7. C
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. DIMENSION IDY(*)
  12. IADY = 0
  13. DO 10 I=1,II
  14. IF(IDY(I).EQ.IDYT)THEN
  15. IADY=I
  16. GO TO 20
  17. ENDIF
  18. 10 CONTINUE
  19. 20 CONTINUE
  20. RETURN
  21. END
  22.  
  23.  
  24.  

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