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.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22. C
  23. PARAMETER (LMOOPT=1)
  24. CHARACTER*4 MOOPT(LMOOPT)
  25. C
  26. DATA MOOPT/'NUME'/
  27. C
  28. IENT = 0
  29. XQ1 = 0.D0
  30. XQ2 = 0.D0
  31. XQ3 = 0.D0
  32. ICHEL = 0
  33. IJONCT = 0
  34. C
  35. C **** LECTURE FACULTATIVE DES MOTS CLES DE L'ANCIENNE SYNTAXE
  36. C
  37. CALL LIRMOT(MOOPT,LMOOPT,IMOT,0)
  38. IF (IMOT.EQ.1) THEN
  39. CALL LIRENT(IENT,1,IRETOU)
  40. IF (IERR.NE.0) RETURN
  41. ENDIF
  42. C
  43. C LECTURE DE :FREQ,MASSE,DEP1,DEP2,DEP3
  44. C
  45. CALL LIRREE(XFREQ,1,IRETOU)
  46. IF (IERR.NE.0) RETURN
  47. CALL LIRREE(XMN,1,IRETOU)
  48. IF (IERR.NE.0) RETURN
  49. CALL LIRREE(XQ1,0,IRETOU)
  50. IF (IRETOU.EQ.1) THEN
  51. CALL LIRREE(XQ2,1,IRETOU)
  52. IF (IERR.NE.0) RETURN
  53. CALL LIRREE(XQ3,1,IRETOU)
  54. IF (IERR.NE.0) RETURN
  55. ENDIF
  56. C
  57. CALL LIROBJ('CHPOINT ',ICHPT,1,IRETOU)
  58. IF (IERR.NE.0) RETURN
  59. C
  60. CALL LIROBJ('CHAMELEM',ICHEL,0,IRETOU)
  61. IF(IERR.NE.0)RETURN
  62. C
  63. IF(IRETOU.EQ.0)THEN
  64. CALL LIROBJ('MCHAML',ICHEL,0,IRETOU)
  65. IF(IERR.NE.0)RETURN
  66. ENDIF
  67. C
  68. CALL MANUSO('MODE ',IENT,XFREQ,XMN,XQ1,XQ2,XQ3,ICHPT,ICHEL,
  69. & IJONCT,MSOLUT)
  70. C
  71. CALL ECROBJ('SOLUTION',MSOLUT)
  72. C
  73. END
  74.  
  75.  

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