Télécharger la plaquette Cast3M


fr en

Télécharger cerbsg.eso

Retour à la liste

Numérotation des lignes : 

cerbsg

  1. C CERBSG    SOURCE    CHAT      05/01/12    21:52:17     5004
  2.       SUBROUTINE CERBSG(FORCE,COORD,EFFORT,KERRE)
  3. C-----------------------------------------------------------------------
  4. C             CALCUL DES FORCES INTERNES B*SIGMA
  5. C                    POUR LA CERCE
  6. C
  7. C  ENTREE
  8. C          EFFORT  L'EFFORT DANS LA CERCE
  9. C          COORD   COORDONNEES DU NOEUD
  10. C
  11. C  SORTIE
  12. C          FORCE   FORCES INTERNES
  13. C          KERRE   INDICE D'ERREUR ( 0 SI PAS DE PB )
  14. C
  15. C-----------------------------------------------------------------------
  16.       IMPLICIT INTEGER(I-N)
  17.       IMPLICIT REAL*8(A-H,O-Z)
  18. -INC CCREEL
  19.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22.       DIMENSION COORD(3,*),FORCE(*)
  23. *
  24.       KERRE=0
  25.       IF(IFOUR.EQ.0.OR.(IFOUR.EQ.1.AND.NIFOUR.EQ.0)) THEN
  26.          FAC=2*XPI*EFFORT
  27.       ELSE
  28.          FAC=XPI*EFFORT
  29.       ENDIF
  30.       IF(IFOUR.EQ.0) THEN
  31.          FORCE(1)=FAC
  32.          FORCE(2)=0.D0
  33.       ELSE IF(IFOUR.EQ.1) THEN
  34.          AN=DBLE(NIFOUR)
  35.          FORCE(1)=FAC
  36.          FORCE(2)=0.D0
  37.          FORCE(3)=FAC*AN
  38.       ELSE
  39.          KERRE=2
  40.          RETURN
  41.       ENDIF
  42.       RETURN
  43.       END
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  

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