Télécharger ranfunc.eso

Retour à la liste

Numérotation des lignes :

  1. C RANFUNC SOURCE FANDEUR 13/01/29 21:16:22 7683
  2. FUNCTION Ranfunc(sigma,i3,i6,parahot3,idimpara3,lcp)
  3.  
  4. c Rankine function to describe the tensile part of a concrete material
  5. c sigmaeq = S1 = largest principal stress
  6.  
  7. IMPLICIT REAL*8 (A-B,D-H,O-Z)
  8. implicit integer (I-K,M,N)
  9. implicit logical (L)
  10. implicit character*10 (C)
  11.  
  12. dimension sigma(i6)
  13. **** dimension rcossigmapr(i3,i3),sigmacp(3),vloc(3),vloc1(1)
  14. dimension rcossigmapr(3,3),sigmacp(3),vloc(3),vloc1(1)
  15. dimension parahot3(idimpara3),P1(3,3),pi1(3)
  16. *****
  17. * MESSAGES D'ERREUR ( SUPPRESSION DES AUTOMATIC OBJECTS)
  18. IF(I3.GT.3) PRINT *, ' RANFUNC - ERREUR I3 = ', I3, ' > 1 '
  19. *****
  20. call sigmapr3ETC(sigma,S1,S2,S3,rcossigmapr,lcp)
  21. c =============
  22. c algorithm to find the eigen values and eigen vectors of symmetric matrix sigma
  23.  
  24. Ranfunc = s1
  25.  
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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