Télécharger devso5.eso

Retour à la liste

Numérotation des lignes :

  1. C DEVSO5 SOURCE BP208322 17/07/18 21:15:07 9498
  2. SUBROUTINE DEVSO5(KPREF,KTQ,KTKAM,KTPHI,KTLIAA,KTLIAB,KTFEX,
  3. & KTPAS,KTRES,KTNUM,NINS,IPMAIL,REPRIS,ICHAIN,
  4. & KOCLFA,KOCLB1,LMODYN,ITDYN)
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7. C DEVSOR SOURCE KICH 07/12/10 21:15:27 5994
  8. *--------------------------------------------------------------------*
  9. * *
  10. * Operateur DYNE : algorithme de Fu - de Vogelaere *
  11. * ________________________________________________ *
  12. * *
  13. * Sortie de la table resultat et nettoyage de la memoire. *
  14. * *
  15. * Parametres: *
  16. * *
  17. * e KPREF Segment des points de référence *
  18. * e KTQ Segment contenant les variables généralisées
  19. * (et les travaux)
  20. * e KTKAM Segment contenant les matrices XK, XASM et XM *
  21. * e KTPHI Segment contenant les déformées modales *
  22. * e KTLIAA Segment descriptif des liaisons en base A *
  23. * e KTLIAB Segment descriptif des liaisons en base B *
  24. * e KTFEX Segment contenant les chargements libres *
  25. * e KTPAS Segment des variables au cours d'un pas de temps *
  26. * e KTRES Segment de sauvegarde des résultats *
  27. * e KTNUM Segment contenant les paramètres numériques *
  28. * e NINS On veut une sortie tous les NINS pas de calcul *
  29. * e IPMAIL Maillage de référence *
  30. * e REPRIS Vrai si reprise de calcul, faux sinon *
  31. * e ICHAIN Segment MLENTI (ACTIF) contenant les adresses des *
  32. * chaines dans la pile des mots de CCNOYAU *
  33. * *
  34. * Auteur, date de creation: *
  35. * *
  36. * Denis ROBERT-MOUGIN, le 1er juin 1989. *
  37. * *
  38. *--------------------------------------------------------------------*
  39. -INC CCOPTIO
  40. -INC SMTABLE
  41. -INC SMLREEL
  42. -INC SMELEME
  43. *
  44. SEGMENT,MTQ
  45. REAL*8 Q1(NA1,4),Q2(NA1,4),Q3(NA1,4)
  46. REAL*8 WEXT(NA1,2),WINT(NA1,2)
  47. ENDSEGMENT
  48. SEGMENT,MTKAM
  49. REAL*8 XK(NA1,NB1K),XASM(NA1,NB1C),XM(NA1,NB1M)
  50. REAL*8 XOPER(NB1,NB1,NOPER)
  51. ENDSEGMENT
  52. SEGMENT,MTPHI
  53. INTEGER IBASB(NPLB),IPLSB(NPLB),INMSB(NSB),IORSB(NSB)
  54. INTEGER IAROTA(NSB)
  55. REAL*8 XPHILB(NSB,NPLSB,NA2,IDIMB)
  56. ENDSEGMENT
  57. SEGMENT,MTLIAA
  58. INTEGER IPALA(NLIAA,NIPALA),IPLIA(NLIAA,NPLAA),JPLIA(NPLA)
  59. REAL*8 XPALA(NLIAA,NXPALA)
  60. ENDSEGMENT
  61. SEGMENT,MTLIAB
  62. INTEGER IPALB(NLIAB,NIPALB),IPLIB(NLIAB,NPLBB),JPLIB(NPLB)
  63. REAL*8 XPALB(NLIAB,NXPALB)
  64. REAL*8 XABSCI(NLIAB,NIP),XORDON(NLIAB,NIP)
  65. ENDSEGMENT
  66. SEGMENT,MTFEX
  67. REAL*8 FEXA(NPFEXA,NPC1,2)
  68. REAL*8 FEXPSM(NPLB,NPC1,2,IDIMB)
  69. REAL*8 FTEXB(NPLB,NPC1,2,IDIM)
  70. INTEGER IFEXA(NPFEXA),IFEXB(NPFEXB)
  71. ENDSEGMENT
  72. SEGMENT,MTPAS
  73. REAL*8 FTOTA(NA1,4),FTOTB(NPLB,IDIMB),FTOTBA(NA1)
  74. REAL*8 XPTB(NPLB,4,IDIMB),FINERT(NA1,4)
  75. REAL*8 XVALA(NLIAA,4,NTVAR),XVALB(NLIAB,4,NTVAR)
  76. REAL*8 FEXB(NPLB,2,IDIM),XCHPFB(2,NLIAB,4,NPLB)
  77. ENDSEGMENT
  78. SEGMENT,MTRES
  79. REAL*8 XRES(NRES,NCRES,NPRES),XREP(NREP,NCRES)
  80. REAL*8 XRESLA(NLSA,NPRES,NVALA),XRESLB(NLSB,NPRES,NVALB)
  81. REAL*8 XMREP(NLIAB,4,IDIMB)
  82. INTEGER ICHRES(NVES),IPORES(NRES,NPRES),IPOREP(NREP)
  83. INTEGER IPOLA(NLSA),INULA(NLSA),IPLRLA(NLSA,NVALA)
  84. INTEGER IPOLB(NLSB),INULB(NLSB),IPLRLB(NLSB,NVALB)
  85. INTEGER ILIREA(NLSA,NTVAR),ILIREB(NLSB,NTVAR)
  86. INTEGER ILIRNA(NLSA,NTVAR),ILIRNB(NLSB,NTVAR)
  87. INTEGER IPOLR(1),IMREP(NLIAB,2),IPPREP(NLIAB,4)
  88. INTEGER ILPOLA(NLIAA,2)
  89. ENDSEGMENT
  90. SEGMENT,MTNUM
  91. REAL*8 XDT(NPC1),XTEMPS(NPC1)
  92. ENDSEGMENT
  93. SEGMENT,MPREF
  94. INTEGER IPOREF(NPREF)
  95. ENDSEGMENT
  96. * Segment "local" pour DEVLFA ...
  97. SEGMENT,LOCLFA
  98. REAL*8 FTEST(NA1,4),FTOTA0(NA1,4)
  99. ENDSEGMENT
  100. * Segment "local" pour DEVLB1 ...
  101. SEGMENT,LOCLB1
  102. REAL*8 FTEST2(NPLB,6),FTOTB0(NPLB,6)
  103. ENDSEGMENT
  104. *
  105. LOGICAL REPRIS,LMODYN
  106. *
  107. * Remplissage des CHPOINTs résultats:
  108. *
  109. CALL DEVSO2(KTRES)
  110. IF (IERR.NE.0) RETURN
  111. *
  112. * Création et sous-typage de la table contenant les résultats:
  113. *
  114. CALL DEVSO4(KPREF,KTRES,KTLIAA,KTLIAB,KTNUM,NINS,ICHAIN,
  115. & MTABLE,REPRIS,LMODYN,ITDYN,-12345)
  116. IF (IERR.NE.0) RETURN
  117. *
  118. * Ecriture de la table résultat:
  119. *
  120. if (.not.lmodyn) CALL ECROBJ('TABLE',MTABLE)
  121. IF (IERR.NE.0) RETURN
  122.  
  123. *
  124. RETURN
  125. END
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  

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