Télécharger noment.eso

Retour à la liste

Numérotation des lignes :

noment
  1. C NOMENT SOURCE CB215821 24/07/17 21:15:11 11961
  2. SUBROUTINE NOMENT(NAM,IVAL)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCNOYAU
  5. -INC SMBLOC
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. CHARACTER*(*) NAM
  10. II=IVAL
  11. C RECHERCHE DU NOM DANS LA PILE DES MOTS
  12. IL=LEN(NAM)
  13. DO 765 I=IL,1,-1
  14. IF(NAM(I:I).NE.' ') GO TO 764
  15. 765 CONTINUE
  16. I=1
  17. 764 IL=I
  18. CALL POSCHA(NAM(1:IL),IPOSCH)
  19. DO 3 I =MDEOBJ,LMNNOM
  20. IF(IPOSCH.EQ.INOOB1(I)) THEN
  21. C ON A TROUVE
  22. INOOB2(I)='ENTIER '
  23. IOUEP2(I)=II
  24. C IF(IIMPI.EQ.1757) WRITE(IOIMP,1546)NOM,IVAL,II,MDEOBJ,ILON
  25. C 1546 FORMAT(' NOMENT : NOM IVAL II MDEOBJ ILON ',A8,4I6)
  26. RETURN
  27. ENDIF
  28. 3 CONTINUE
  29. 11 CONTINUE
  30. C IL FAUT CREER LE NOM
  31. LMNNOM=LMNNOM+1
  32. * write(6,*) ' lmmnom ' ,lmnnom
  33. ILON=INOOB1(/1)
  34. IF(LMNNOM.GT.ILON) THEN
  35. N=LMNNOM+50
  36. SEGADJ ITABOB,ITABOC,ITABOD
  37. ENDIF
  38. N=LMNNOM
  39. INOOB1(N)=IPOSCH
  40. INOOB2(N)='ENTIER '
  41. IOUEP2(N)=II
  42. C IF(IIMPI.EQ.1757) WRITE(IOIMP,1546)NOM,IVAL,II,MDEOBJ,ILON
  43. RETURN
  44. END
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  

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