Esope source files

   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 : *****
  19 :       call sigmapr3ETC(sigma,S1,S2,S3,rcossigmapr,lcp)
  20 : c          =============
  21 : c     algorithm to find the eigen values and eigen vectors of symmetric matrix sigma
  22 : 
  23 :       Ranfunc = s1
  24 : 
  25 :       RETURN
  26 :       END
  27 : 
  28 :