Télécharger nomree.eso

Retour à la liste

Numérotation des lignes :

  1. C NOMREE SOURCE CHAT 06/03/16 21:22:45 5336
  2. SUBROUTINE NOMREE(NAM,XVAL)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCNOYAU
  5. -INC SMBLOC
  6. CHARACTER*(*) NAM
  7. REAL*8 XVAL
  8. call posree(xval,ii)
  9. C RECHERCHE DU NOM DANS LA PILE DES NOMS
  10. IL=LEN(NAM)
  11. DO 765 I=IL,1,-1
  12. IF(NAM(I:I).NE.' ') GO TO 764
  13. 765 CONTINUE
  14. I=1
  15. 764 IL=I
  16. CALL POSCHA(NAM(1:IL),IPOSCH)
  17. IO=INOOB1(/1)
  18. IF(IO.EQ.0) GO TO 11
  19. DO 3 I =MDEOBJ,LMNNOM
  20. IF(IPOSCH.EQ.INOOB1(I)) THEN
  21. C ON A TROUVE
  22. INOOB2(I)='FLOTTANT'
  23. IOUEP2(I)=II
  24. RETURN
  25. ENDIF
  26. 3 CONTINUE
  27. 11 CONTINUE
  28. C IL FAUT CREER LE NOM
  29. LMNNOM=LMNNOM+1
  30. IF(LMNNOM.GT.IO) THEN
  31. N=LMNNOM+50
  32. SEGADJ ITABOB,ITABOC,ITABOD
  33. ENDIF
  34. N=LMNNOM
  35. INOOB1(N)=IPOSCH
  36. INOOB2(N)='FLOTTANT'
  37. IOUEP2(N)=II
  38. RETURN
  39. END
  40.  
  41.  

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