Télécharger pardec.eso

Retour à la liste

Numérotation des lignes :

  1. C PARDEC SOURCE CB215821 16/04/21 21:17:56 8920
  2. C PARDEC SOURCE INSL 24/10/96
  3. SUBROUTINE PARDEC(ST,SIE,EPSC,EQSTR,EDC,IPLA,DEFR0,RB,ALPHA,EPO1,
  4. & EX,EMAX,ICAL)
  5. C
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. C
  9. C ***********************************************
  10. C ** CALCUL : EPSC , EQSTR , EDC **
  11. C ***********************************************
  12. C
  13. DEFRL = RB/EX-EPO1
  14. DEFR0 = ST-SIE/EX
  15. C
  16. IF(DEFR0.GT.DEFRL) THEN
  17. CALL EQUIV1(DEFR0,EPSC,EQSTR,EX,RB,EPO1,ICAL)
  18. ELSE
  19. A3 = RB/(EPO1-EMAX)
  20. B1 = -1.D0*EX*DEFR0
  21. B3 = A3*EMAX
  22. EPSC=(B3-B1)/(EX-A3)
  23. EQSTR=EX*EPSC+B1
  24. IPLA=2
  25. ENDIF
  26. EDC=(ABS(EQSTR)+RB)/(ABS(EPSC)+(RB/EX))
  27. C
  28. IF(EDC.GT.EX.OR.EDC.LT.1.D-5) EDC=EX
  29. DEFR0 = EPSC-EQSTR/EDC
  30. EQSTR=ABS(EQSTR)
  31. IF(ABS(DEFR0).LT.1.D-8) DEFR0=0.D0
  32. C
  33. RETURN
  34. END
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  

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