Télécharger extrpo.eso

Retour à la liste

Numérotation des lignes :

extrpo
  1. C EXTRPO SOURCE CHAT 05/01/12 23:54:23 5004
  2. C CE SOUS PROGRAMME EXTRAIT LE DERNIER POINT DE L'ELEMENT SI CELUI-CI
  3. C EST UNE LIGNE
  4. C IL LE REND DANS IRET
  5. C
  6. SUBROUTINE EXTRPO(INUM,IPOS,IRET)
  7. IMPLICIT INTEGER(I-N)
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. -INC SMELEME
  12. MELEME=INUM
  13. ISEN=1
  14. IF (ITYPEL.NE.2.AND.ITYPEL.NE.3) THEN
  15. CALL ERREUR(16)
  16. RETURN
  17. END IF
  18. IF((2*IPOS-3)*ISEN.EQ.-1) IRET=NUM(NUM(/1),NUM(/2))
  19. IF((2*IPOS-3)*ISEN.EQ. 1) IRET=NUM(1,1)
  20. IF (IIMPI.EQ.1) WRITE (IOIMP,1) IRET
  21. 1 FORMAT (/,' POINT EXTRAIT ',I6)
  22. RETURN
  23. END
  24.  
  25.  
  26.  

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