Télécharger nomcha.eso

Retour à la liste

Numérotation des lignes :

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

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