Télécharger prvect.eso

Retour à la liste

Numérotation des lignes :

  1. C PRVECT SOURCE CHAT 05/01/13 02:36:38 5004
  2. SUBROUTINE PRVECT(IRET,jentet)
  3. C
  4. C IMPRESSION D'UN OBJET VECT DOUB
  5. C
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. -INC CCOPTIO
  9. -INC SMVECTD
  10. MVECTD=IRET
  11. SEGACT MVECTD
  12. INC=VECTBB(/1)
  13. INTERR(1)=MVECTD
  14. INTERR(2)= INC
  15. CALL ERREUR(-108)
  16. if(jentet.eq.1) inc = 10
  17. DO 2 I=1,INC
  18. WRITE(IOIMP,6003) I,VECTBB(I)
  19. 2 CONTINUE
  20. SEGDES MVECTD
  21. 6003 FORMAT(9X,I4,7X,1PE12.5)
  22. RETURN
  23. END
  24.  
  25.  
  26.  

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