Télécharger bstok.eso

Retour à la liste

Numérotation des lignes :

  1. C BSTOK SOURCE DURA 06/07/11 21:17:15 5481
  2. SUBROUTINE BSTOK(IX,X,P2,T2,Y2,U2,H,QE2,QW2,RE,DPF,
  3. & XX,XP,XT,XY,XU,XHF,XQ,XQW,XRE,XDH,NT)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6. C
  7. C operateur FUITE
  8. C cf. sub. BCALQ
  9. C>>> remplissage des tableaux resultats
  10. C
  11. DIMENSION XX(NT),XP(NT),XT(NT),XY(NT),XU(NT),XHF(NT),XQ(NT)
  12. DIMENSION XQW(NT),XRE(NT),XDH(NT)
  13.  
  14. IF (IX.GT.NT) THEN
  15. WRITE(6,*) ' sub. bstok dimension insuffisante ',NT
  16. RETURN
  17. ELSE
  18. XX(IX) = X
  19. XP(IX) = P2
  20. XT(IX) = T2
  21. XY(IX) = Y2
  22. XU(IX) = U2
  23. XHF(IX) = H
  24. XQ(IX) = QE2
  25. XQW(IX) = QW2
  26. XRE(IX) = RE
  27. XDH(IX) = -DPF
  28. IX = IX+1
  29. ENDIF
  30. RETURN
  31. END
  32.  
  33.  
  34.  
  35.  
  36.  

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