Télécharger drutr2.eso

Retour à la liste

Numérotation des lignes :

  1. C DRUTR2 SOURCE CHAT 05/01/12 22:55:24 5004
  2. C DRUTR2 SOURCE JFG 02/07/04
  3. SUBROUTINE DRUTR2(S1,SEQ,DPHI,DLAM,VEC,BETINSA)
  4. C
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7. DIMENSION S1(6),VEC(6)
  8. C
  9. SEGMENT BETINSA
  10. REAL*8 RT,RC,YOUN,XNU,GFT,GFC,CAR
  11. REAL*8 DKT,DKC,SEQT,SEQC,ENDT,ENDC
  12. INTEGER IFIS,IPLA,IBB,IGAU
  13. ENDSEGMENT
  14. C
  15. ALT=1.D0
  16. BET=2.D0
  17. C
  18. AC = YOUN / (1.- 2.*XNU)
  19. AD = (3 * DLAM * ALT * AC )
  20. C
  21. DPHI = BET * SEQ - ALT*(S1(1)+S1(2)+S1(3)+AD)
  22. C
  23. CALL ZERO(VEC,6,1)
  24. VEC(1) = ALT * AC
  25. VEC(2) = ALT * AC
  26. VEC(3) = ALT * AC
  27. C
  28. RETURN
  29. END
  30.  
  31.  
  32.  
  33.  
  34.  

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