Télécharger lispkt.eso

Retour à la liste

Numérotation des lignes :

lispkt
  1. C LISPKT SOURCE CHAT 05/01/13 01:22:57 5004
  2. SUBROUTINE LISPKT(XE,XMAT,XSTRS,XCAR,VAR,NSTRS,NBGS,NBG,MELE,
  3. 1 XPREC,XTRA,REL,I70,I157,I158,ILO11,KERRE)
  4. C=======================================================================
  5. C
  6. C CALCULE LA MATRICE DE RAIDEUR TANGENTE DU LINESPRING
  7. C ENTREES
  8. C XE (3,4)=COORDONNES DE LA POUTRE LINE SPRING
  9. C XMAT(15) = LE MATERIAU
  10. C XSTRS(NBGS*NSTRS) = LES CONTRAINTES
  11. C XCAR(15) = LES CARACTERISTIQUES
  12. C VAR(2*NBGS) = LES VARIABLES INTERNES
  13. C NSTRS = NOMBRE DE CONTRAINTES
  14. C NBGS = NOMBRE DE POINTS DE CONTRAINTES
  15. C NBG = NOMBRE DE POINTS D INTEGRATION
  16. C XPREC = PREC POUR SITUER SUR LA SURFACE DE CHARGE
  17. C TRAVAIL
  18. C XTRA = TABLEAU DE TRAVAIL
  19. C SORTIES
  20. C REL(24,24)=MATRICE DE RAIDEUR TANGENTE
  21. C I70,I195,I157,I158 MESSAGE D ERREURS
  22. C ILO11 = 1 O.K. -1 EN DEHORS SURFACE DE CHARGE
  23. C KERRE = 0 O.K.
  24. C = 30 CONTRAINTES ULTIME NULLE
  25. C CODE EBERSOLT JUIN 87
  26. C=======================================================================
  27. IMPLICIT INTEGER(I-N)
  28. IMPLICIT REAL*8(A-H,O-Z)
  29. DIMENSION XE(3,*),XMAT(*),XSTRS(*),XCAR(*),VAR(*),REL(24,*)
  30. DIMENSION XTRA(*)
  31. EPAI =XCAR(1)
  32. C
  33. CALL LISPK2(XE,EPAI,XCAR(3),XMAT,XSTRS,XCAR,VAR,NSTRS,NBG,
  34. 1 MELE,XPREC,XTRA(1),XTRA(10),REL,I70,I195,I157,I158,ILO11,KERRE)
  35. C
  36. C
  37. RETURN
  38. END
  39.  
  40.  

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