Télécharger manumo.eso

Retour à la liste

Numérotation des lignes :

  1. C MANUMO SOURCE CHAT 05/01/13 01:29:45 5004
  2. C
  3. SUBROUTINE MANUMO
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  7. C CET OPERATEUR FABRIQUE UN OBJET DE TYPE SOLUTION SOUS-TYPE MODE
  8. C SYNTAXE :
  9. C SOLUT=MANU MODE NUME N ..... NUMERO DU MODE
  10. C F MG Q1 Q2 Q3 ..FREQUENCE,MASSE GENERALISEE
  11. C ..DEPLACEMENTS GENERALISES
  12. C CHPT ....... OBJET DE TYPE CHAMPOIN
  13. C CHEL ....... OBJET DE TYPE CHAMELEM
  14. C ECRIT PAR FARVACQUE
  15. C MODIFIE PAR L. VIVAN (APPEL DE MANUSO) LE 4 AOUT 1988
  16. C APPELLE : LIRMOT LIRE ECRIRE MANUSO
  17. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  18. C
  19. -INC CCOPTIO
  20. C
  21. PARAMETER (LMOOPT=1)
  22. CHARACTER*4 MOOPT(LMOOPT)
  23. C
  24. DATA MOOPT/'NUME'/
  25. C
  26. IENT = 0
  27. XQ1 = 0.D0
  28. XQ2 = 0.D0
  29. XQ3 = 0.D0
  30. ICHEL = 0
  31. IJONCT = 0
  32. C
  33. C **** LECTURE FACULTATIVE DES MOTS CLES DE L'ANCIENNE SYNTAXE
  34. C
  35. CALL LIRMOT(MOOPT,LMOOPT,IMOT,0)
  36. IF (IMOT.EQ.1) THEN
  37. CALL LIRENT(IENT,1,IRETOU)
  38. IF (IERR.NE.0) RETURN
  39. ENDIF
  40. C
  41. C LECTURE DE :FREQ,MASSE,DEP1,DEP2,DEP3
  42. C
  43. CALL LIRREE(XFREQ,1,IRETOU)
  44. IF (IERR.NE.0) RETURN
  45. CALL LIRREE(XMN,1,IRETOU)
  46. IF (IERR.NE.0) RETURN
  47. CALL LIRREE(XQ1,0,IRETOU)
  48. IF (IRETOU.EQ.1) THEN
  49. CALL LIRREE(XQ2,1,IRETOU)
  50. IF (IERR.NE.0) RETURN
  51. CALL LIRREE(XQ3,1,IRETOU)
  52. IF (IERR.NE.0) RETURN
  53. ENDIF
  54. C
  55. CALL LIROBJ('CHPOINT ',ICHPT,1,IRETOU)
  56. IF (IERR.NE.0) RETURN
  57. C
  58. CALL LIROBJ('CHAMELEM',ICHEL,0,IRETOU)
  59. IF(IERR.NE.0)RETURN
  60. C
  61. IF(IRETOU.EQ.0)THEN
  62. CALL LIROBJ('MCHAML',ICHEL,0,IRETOU)
  63. IF(IERR.NE.0)RETURN
  64. ENDIF
  65. C
  66. CALL MANUSO('MODE ',IENT,XFREQ,XMN,XQ1,XQ2,XQ3,ICHPT,ICHEL,
  67. & IJONCT,MSOLUT)
  68. C
  69. CALL ECROBJ('SOLUTION',MSOLUT)
  70. C
  71. END
  72.  
  73.  

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