Télécharger nomlog.eso

Retour à la liste

Numérotation des lignes :

  1. C NOMLOG SOURCE CHAT 07/11/06 21:15:01 5953
  2. SUBROUTINE NOMLOG(NAM,BVAL)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCNOYAU
  5. -INC SMBLOC
  6. CHARACTER*(*) NAM
  7. LOGICAL BVAL
  8. call poslog(bval,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. DO 3 I =MDEOBJ,LMNNOM
  18. IF(IPOSCH.EQ.INOOB1(I)) THEN
  19. C ON A TROUVE
  20. INOOB2(I)='LOGIQUE '
  21. IOUEP2(I)=II
  22. RETURN
  23. ENDIF
  24. 3 CONTINUE
  25. 11 CONTINUE
  26. C IL FAUT CREER LE NOM
  27. LMNNOM=LMNNOM+1
  28. IO=inoob1(/1)
  29. IF(LMNNOM.GT.IO) THEN
  30. N=LMNNOM+50
  31. SEGADJ ITABOB,ITABOC,ITABOD
  32. ENDIF
  33. N=LMNNOM
  34. INOOB1(N)=IPOSCH
  35. INOOB2(N)='LOGIQUE '
  36. IOUEP2(N)=II
  37. RETURN
  38. END
  39.  
  40.  
  41.  

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