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 32 : CALL LISPK2(XE,EPAI,XCAR(3),XMAT,XSTRS,XCAR,VAR,NSTRS,NBG, 33 : 1 MELE,XPREC,XTRA(1),XTRA(10),REL,I70,I195,I157,I158,ILO11,KERRE) 34 : C 35 : C 36 : RETURN 37 : END 38 :
© Cast3M 2003 - All rights reserved.
Disclaimer