Télécharger la plaquette Cast3M


fr en

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