Télécharger quenom.eso

Retour à la liste

Numérotation des lignes :

  1. C QUENOM SOURCE CB215821 16/11/07 21:15:03 9163
  2. SUBROUTINE QUENOM(ICHA)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCNOYAU
  5. -INC CCOPTIO
  6. -INC CCASSIS
  7. CHARACTER*(*) ICHA
  8. ITH = 0
  9. CALL OOONTH(ITH)
  10. IF(NBESC .NE. 0) SEGACT,IPILOC
  11. IF (ITH .NE. 0) GOTO 999
  12. * IF((IMOTLU .EQ. 0) .OR. (IMOTLU .GT. JPOOB2(/1))) GOTO 999
  13. IF(JPOOB2(IMOTLU) .EQ.0 ) GOTO 999
  14. IP= INOOB1(JPOOB2(IMOTLU))
  15. IF (IP.LE.0) GOTO 999
  16. IDEBCH=IPCHAR(IP)
  17. IFINCH= IPCHAR(IP+1)-1
  18. ICHA=ICHARA(IDEBCH:IFINCH)
  19. IF(NBESC.NE.0) SEGDES,IPILOC
  20. RETURN
  21.  
  22. 999 CONTINUE
  23. C PAS DE NOM A LA DERNIERE DONNEE LUE
  24. ICHA=' '
  25. IF(NBESC .NE. 0) SEGDES IPILOC
  26. RETURN
  27. END
  28.  
  29.  

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