Télécharger snom1.eso

Retour à la liste

Numérotation des lignes :

snom1
  1. C SNOM1 SOURCE JC220346 18/12/04 21:16:16 9991
  2. SUBROUTINE SNOM1(CNOM,ISGTR,IRET)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C=======================================================================
  6. C
  7. C BUT : CHERCHE SI LE NOM EST DANS UN SEGMENT
  8. C EN AVANCANT DE INC EN INC
  9. C . SI L'OBJET (I1-I2-) EST DANS LA PILE NOMMEE,IRET=J
  10. C . SI NON IRET =0
  11. C ECRIT PAR FARVACQUE-LENA
  12. C APPELE PAR FNOMOB
  13. C=======================================================================
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17. -INC CCNOYAU
  18. CHARACTER*(LONOM) CNOM
  19. SEGMENT ISGTR
  20. CHARACTER*(LONOM) ISGTRC(KS)
  21. INTEGER ISGTRI(KS)
  22. ENDSEGMENT
  23. C
  24. IRET=0
  25. IF (ISGTR.EQ.0) GO TO 1
  26. N=ISGTRI(/1)
  27. DO 2 J=1,N
  28. IF(ISGTRC(J).NE.CNOM) GOTO 2
  29. IRET=J
  30. GO TO 3
  31. 2 CONTINUE
  32. 3 CONTINUE
  33. 1 RETURN
  34. END
  35.  
  36.  
  37.  
  38.  

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