Télécharger plamo8.eso

Retour à la liste

Numérotation des lignes :

  1. C PLAMO8 SOURCE CB215821 18/09/24 21:15:04 9931
  2. SUBROUTINE PLAMO8(MOT,LMOT,IMOT,MOH)
  3. C
  4. C CHERCHE LA PLACE DE MOH DS MOT de taille 8
  5. C IMOT= PLACE DU MOT
  6. C IMOT=0 MOH NON TROUVE DS MOT
  7. C
  8. IMPLICIT INTEGER(I-N)
  9. CHARACTER*(8) MOT(*),MOH
  10.  
  11. IMOT=0
  12. DO IA=1,LMOT
  13. IF(MOH.EQ.MOT(IA)) THEN
  14. IMOT=IA
  15. RETURN
  16. ENDIF
  17. ENDDO
  18. END
  19.  
  20.  

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