Télécharger caprin.eso

Retour à la liste

Numérotation des lignes :

  1. C CAPRIN SOURCE CHAT 05/01/12 21:49:06 5004
  2. C CAPRIN SOURCE INSL 24/10/96
  3. SUBROUTINE CAPRIN(S1,V1,NSTRS,ALPHA,RB,DTR1,DTR2,TETA)
  4. C
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7. DIMENSION S1(NSTRS),V1(4)
  8. C
  9. CALL PRINC(S1,V1,NSTRS)
  10. IF(V1(1).GE.0.D0) THEN
  11. DTR1=V1(1)
  12. DTR2=FPT
  13. IF(DTR1.LT.0.D0) DTR1=0.D0
  14. IF(DTR1.GE.FPT) DTR1=FPT
  15. IF(DTR1.LT.1.D-8) DTR1=0.D0
  16. TETA=V1(4)
  17. ENDIF
  18. *
  19. RETURN
  20. END
  21.  
  22.  
  23.  
  24.  

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