Télécharger la plaquette Cast3M


fr en

Télécharger dfouri.eso

Retour à la liste

Numérotation des lignes : 

dfouri

  1. C DFOURI    SOURCE    CB215821  20/11/25    13:25:20     10792          
  2.       SUBROUTINE DFOURI
  3. C=======================================================================
  4. C
  5. C          OPERATEUR DFOURI
  6. C
  7. C     SYNTAXE   I CHPT I  =  DFOURI  I CHPT I  ANGL
  8. C               I CHEL I             I CHEL I
  9. C
  10. C     CHPT    : CHPOINT DE TYPE FORCES OU DEPLACEMENTS
  11. C     CHEL    : CHAMP/ELEMENT DE CONTRAINTES OU DEFORMATIONS (MCHAML)
  12. C     ANGL    : VALEUR DE L ANGLE
  13. C
  14. C   DANS LE CAS D UNE ANALYSE EN SERIE DE FOURIER , CALCULE LES VALEURS
  15. C   DU CHPOINT OU DU MCHALM POUR L ANGLE DONNE
  16. C
  17. C     J BROCHARD MARS 87
  18. C     PASSAGE AUX NOUVEAUX MCHAMLS  P DOWLATYARI SEPT. 91
  19. C=======================================================================
  20.       IMPLICIT INTEGER(I-N)
  21.       IMPLICIT REAL*8(A-H,O-Z)
  22.  
  23. -INC PPARAM
  24. -INC CCOPTIO
  25. -INC SMCHPOI
  26. C
  27. C ********  ON LIT L ANGLE
  28. C
  29.       CALL LIRREE(ANGL,1,IRETOU)
  30.       IF (IERR.NE.0) RETURN
  31. C
  32.       CALL LIROBJ('CHPOINT',IPCHP1,0,IRT1)
  33.       IF(IERR.NE.0)RETURN
  34.  
  35.       IF(IRT1.NE.0) THEN
  36. C
  37. C    C'EST BIEN UN CHPOINT QU'IL FAUT LIRE
  38. C
  39.         CALL DFOUR1(IPCHP1,ANGL,IPCHP2)
  40.         IF (IERR.NE.0) RETURN
  41. *        ATTRIBUTION D'UNE NATURE IDENTIQUE AU CHPO ARGUMENT
  42.         MCHPOI = IPCHP1
  43.         MCHPO1 = IPCHP2
  44.         SEGACT ,MCHPOI,MCHPO1
  45.         NAT = MAX ( 1 , MCHPO1.JATTRI(/1) )
  46.         NSOUPO=MCHPO1.IPCHP(/1)
  47.         SEGADJ MCHPO1
  48.         IF ( JATTRI(/1) .GE. 1 )  THEN
  49.              MCHPO1.JATTRI(1) = JATTRI(1)
  50.         ELSE
  51.              JATTRI(1) = 0
  52.         ENDIF
  53.         SEGDES ,MCHPOI,MCHPO1
  54.         CALL ECROBJ('CHPOINT',IPCHP2)
  55.       ELSE
  56. C
  57. C     LE CHAMP EST UN CHAMP/ELEMENT
  58. C
  59.          CALL LIROBJ('MCHAML',IPCHE1,1,IRT3)
  60.          IF(IERR.NE.0)RETURN
  61.       CALL DFOUR2(IPCHE1,ANGL,IPCHE2)
  62.          IF (IERR.EQ.0) CALL ECROBJ('MCHAML',IPCHE2)
  63.       ENDIF
  64.       RETURN
  65.       END
  66.  
  67.  
  68.  
  69.  

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