Télécharger optli.eso

Retour à la liste

Numérotation des lignes :

  1. C OPTLI SOURCE CHAT 05/01/13 02:05:26 5004
  2. SUBROUTINE OPTLI(IP,LISTE,MOT,NB)
  3. C************************************************************************
  4. C
  5. C CE SOUS PROGRAMME CHERCHE UN MOT (8 CARACTERES) DANS LA LISTE
  6. C DE NB MOTS . LE RANG DANS LA LISTE (IP) EST DONNE EN RETOUR
  7. C
  8. C************************************************************************
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8 (A-H,O-Z)
  11. CHARACTER*8 LISTE(NB),MOT
  12. DO 1 I=1,NB
  13. IF(MOT.EQ.LISTE(I))THEN
  14. IP=I
  15. RETURN
  16. ENDIF
  17. 1 CONTINUE
  18. IP=0
  19. RETURN
  20. END
  21.  
  22.  
  23.  
  24.  
  25.  

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