Télécharger noment.eso

Retour à la liste

Numérotation des lignes :

  1. C NOMENT SOURCE CHAT 06/03/16 21:22:30 5336
  2. SUBROUTINE NOMENT(NAM,IVAL)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCNOYAU
  5. -INC SMBLOC
  6. -INC CCOPTIO
  7. CHARACTER*(*) NAM
  8. II=IVAL
  9. C RECHERCHE DU NOM DANS LA PILE DES MOTS
  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)='ENTIER '
  21. IOUEP2(I)=II
  22. C IF(IIMPI.EQ.1757) WRITE(IOIMP,1546)NOM,IVAL,II,MDEOBJ,ILON
  23. C 1546 FORMAT(' NOMENT : NOM IVAL II MDEOBJ ILON ',A8,4I6)
  24. RETURN
  25. ENDIF
  26. 3 CONTINUE
  27. 11 CONTINUE
  28. C IL FAUT CREER LE NOM
  29. LMNNOM=LMNNOM+1
  30. * write(6,*) ' lmmnom ' ,lmnnom
  31. ILON=INOOB1(/1)
  32. IF(LMNNOM.GT.ILON) THEN
  33. N=LMNNOM+50
  34. SEGADJ ITABOB,ITABOC,ITABOD
  35. ENDIF
  36. N=LMNNOM
  37. INOOB1(N)=IPOSCH
  38. INOOB2(N)='ENTIER '
  39. IOUEP2(N)=II
  40. C IF(IIMPI.EQ.1757) WRITE(IOIMP,1546)NOM,IVAL,II,MDEOBJ,ILON
  41. RETURN
  42. END
  43.  
  44.  

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