Télécharger optli4.eso

Retour à la liste

Numérotation des lignes :

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

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