Télécharger ncoq4.eso

Retour à la liste

Numérotation des lignes :

  1. C NCOQ4 SOURCE CHAT 06/03/29 21:27:51 5360
  2. C
  3. SUBROUTINE NCOQ4(IGAU,XEL,SHPTOT,SHP,BGENE,DJAC,iarr)
  4. C
  5. C ====================================================================
  6. C CARICANEMTO MATRICE N PER COQ4 AD USO OPERATORE MASSE
  7. C GIANNUZZI 15/12/86
  8. C ====================================================================
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. PARAMETER (LRE=24,NST=6,NBNO=4)
  12. DIMENSION XEL(3,*),BGENE(NST,*),SHP(6,*),SHPTOT(6,NBNO,*)
  13. DATA ZER/0.D0/
  14. C
  15. iarr=0
  16. CALL GINT2
  17. CALL ZERO(BGENE,NST,LRE)
  18. DO 101 NP=1,NBNO
  19. SHP(1,NP)=SHPTOT(1,NP,IGAU)
  20. SHP(2,NP)=SHPTOT(2,NP,IGAU)
  21. SHP(3,NP)=SHPTOT(3,NP,IGAU)
  22. 101 CONTINUE
  23. CALL JACOBI(XEL,SHP,2,NBNO,DJAC)
  24. IF(DJAC.LE.ZER) iarr=1
  25. IF(DJAC.LE.ZER) RETURN
  26. C
  27. C CARICAMENTO MATRICE - N -
  28. C
  29. K=0
  30. DO 102 NP=1,NBNO
  31. DO 103 I =1,NST
  32. BGENE(I,K+I)=SHP(1,NP)
  33. 103 CONTINUE
  34. K=K+6
  35. 102 CONTINUE
  36. RETURN
  37. END
  38.  
  39.  
  40.  

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