Télécharger extrpo.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  9. -INC SMELEME
  10. MELEME=INUM
  11. ISEN=1
  12. IF (ITYPEL.NE.2.AND.ITYPEL.NE.3) THEN
  13. CALL ERREUR(16)
  14. RETURN
  15. END IF
  16. IF((2*IPOS-3)*ISEN.EQ.-1) IRET=NUM(NUM(/1),NUM(/2))
  17. IF((2*IPOS-3)*ISEN.EQ. 1) IRET=NUM(1,1)
  18. IF (IIMPI.EQ.1) WRITE (IOIMP,1) IRET
  19. 1 FORMAT (/,' POINT EXTRAIT ',I6)
  20. RETURN
  21. END
  22.  
  23.  
  24.  

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