Télécharger hooke.eso

Retour à la liste

Numérotation des lignes :

  1. C HOOKE SOURCE CB215821 16/12/05 21:39:33 9237
  2. SUBROUTINE HOOKE
  3. C_______________________________________________________________________
  4. C
  5. C Op{rateur de cr{ation d'un MCHAML de matrice de HOOKE
  6. C
  7. C Nouvelle syntaxe:
  8. C _________________
  9. C
  10. C HO1=HOOKE MOD1 CAR1 ( VA1 ) ;
  11. C
  12. C MOD1 Pointeur sur un MMODEL
  13. C CAR1 Pointeur sur un MCHAML de caract{ristiques
  14. C VA1 Pointeur sur un MCHAML de variables internes(facultatif)
  15. C HO1 Pointeur sur un MCHAML de MATRICE DE HOOKE
  16. C
  17. C
  18. C CODE L.EBERSOLT MAI 84
  19. C
  20. C Passage aux nouveaux CHAMELEMs par I.Monnier le 15.06.90
  21. C
  22. C_______________________________________________________________________
  23. C
  24. IMPLICIT INTEGER(I-N)
  25. -INC CCOPTIO
  26. C
  27. CHARACTER*4 MOREFE(1)
  28. DATA MOREFE/'REFE'/
  29. IPCHE1=0
  30. IPCHE2=0
  31. *
  32. * LECTURE DU MOT REFE EVENTUELLEMENT
  33. *
  34. CALL LIRMOT(MOREFE,1,LASURF,0)
  35. IF (IERR.NE.0) RETURN
  36. C
  37. C LECTURE DU MODELE
  38. C
  39. CALL LIROBJ('MMODEL',IPMODL,0,IRT1)
  40. IF (IERR.NE.0) RETURN
  41. C
  42. C LECTURE DU MCHAML DE CARACTERISTIQUES GEOMETRIQUES ET MATERIELLE
  43. C
  44. CALL LIROBJ('MCHAML',IPIN,1,IRT1)
  45. IF (IERR.NE.0) RETURN
  46. CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  47. IF(IR .NE. 1) CALL ERREUR(KER)
  48. IF(IERR .NE. 0) RETURN
  49. C
  50. C LECTURE DU MCHAML DE VARIABLES INTERNES
  51. C
  52. CALL LIROBJ('MCHAML',IPIN,0,IRT2)
  53. IF (IERR.NE.0) RETURN
  54. IPCHE2=0
  55. IF (IRT2 .EQ. 1) THEN
  56. CALL REDUAF(IPIN,IPMODL,IPCHE2,0,IR,KER)
  57. IF(IR .NE. 1) CALL ERREUR(KER)
  58. IF(IERR .NE. 0) RETURN
  59. ENDIF
  60. C
  61. C CALCUL DE LA MATRICE DE HOOKE
  62. C
  63. CALL HOOK2P(IPMODL,IPCHE1,IPCHE2,LASURF,IPCHOO,IRT1)
  64. IF(IERR .NE. 0) RETURN
  65. IF(IRT1.EQ.0) GOTO 666
  66. C
  67. C ECRITURE DU RESULTAT
  68. C
  69. CALL ECROBJ('MCHAML',IPCHOO)
  70. 666 CONTINUE
  71. RETURN
  72. END
  73.  
  74.  
  75.  

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