Télécharger vectab.eso

Retour à la liste

Numérotation des lignes :

  1. C VECTAB SOURCE CB215821 16/04/15 21:15:43 8907
  2. SUBROUTINE VECTAB(IVX,N,MTABLE)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5.  
  6. -INC PPARAM
  7. -INC CCOPTIO
  8. -INC SMLREEL
  9. -INC SMTABLE
  10. LOGICAL LOGIN,LOGRE
  11. CHARACTER*1 CHARIN,CHARRE
  12. CHARACTER*8 TYPOBJ,CHA8
  13.  
  14. XVALIN= 0.D0
  15. CHARIN=' '
  16. LOGIN =.FALSE.
  17. IOBIN = 0
  18.  
  19. IVALRE= 0
  20. IOBRE = 0
  21.  
  22.  
  23. M=N+1
  24. SEGINI,MTABLE
  25. MLOTAB=0
  26. MLREEL=IVX
  27. DO 1 I=1,N
  28. XVALRE=PROG(I)
  29. CALL ECCTAB(MTABLE,'ENTIER ',I ,XVALIN,CHARIN,LOGIN,IOBIN,
  30. $ 'FLOTTANT',IVALRE,XVALRE,CHARRE,LOGRE,IOBRE)
  31. 1 CONTINUE
  32. CALL ECCTAB(MTABLE,'MOT ',I,XVALIN,'SOUSTYPE',LOGIN,IOBIN,
  33. $ 'MOT ',I,XVALRE,'VECTEUR' ,LOGRE,IOBRE)
  34. SEGDES MTABLE,MLREEL
  35. RETURN
  36. END
  37.  
  38.  
  39.  

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