---

Hallo zusammen,

ich bin gerade dabei mich in Marc einzuarbeiten. Dazu habe ich ein einfaches Beispiel aufgesetzt, bei dem ich ein temperaturabhaengige E-modul definiert habe. Um zu testen ob dies funktioniert, wollte ich mir den E-modul mit Hilfe der user sub PLOTV ausgeben lassen. Allerdings scheitere ich gerade daran. Mein Quellcode meiner plotv Datei ist:

    subroutine plotv(v,s,sp,etot,eplas,ecreep,t,m,nn,kcus,ndi,
    *                nshear,jpltcd)
c* * * * * *
c
c    define a variable for contour plotting (user subroutine).
c
c    v            variable to be put onto the post file
c    s (idss)    stress array
c    sp          stresses in preferred direction
c    etot        total strain (generalized)
c    eplas        total plastic strain
c    ecreep      total creep strain
c    t            array of state variable (temperature first)
c    m(1)        user element number
c    m(2)        internal element number
c    m(3)        material id
c    m(4)        internal material id
c    nn          integration point number
c    kcus(1)      layer number
c    kcus(2)      internal layer number
c    ndi          number of direct stress components
c    nshear      number of shear stress components
c    jpltcd      the absolute value of the user's entered post code
c
c
c        the components of s, sp, etot, eplas and ecreep are given in the order
c        as defined in volume B for the current element.
c
c* * * * * *
#ifdef _IMPLICITNONE
      implicit none
#else
      implicit logical (a-z)
#endif
#include "matdat.cmn"
c    ** Start of generated type statements **
      real*8 ecreep, eplas, etot
      integer jpltcd, kcus, m, ndi, nn, nshear
      real*8 s, sp, t, v
c    ** End of generated type statements **
      dimension s(*),etot(*),eplas(*),ecreep(*),sp(*),m(4),kcus(2),
    *          t(*)

      V=YOUNG(m,nn)
      return
      end

Hoffe ihr koennt mir bei diesem einfachen Problem helfen.

Vielen Dank schon einmal!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Und was ist dein Problem?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sry...hätte ich vielleicht genauer beschreiben sollen. Das Problem ist, dass die benutzerdefinerte Variable im Postprocessing immer null und ich deshalb denke, dass der Fehler in meiner Subroutine liegt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Es könnte an zwei Sachen scheitern. Erstmal würde ich statt deiner implicit-Deklaration

Code:

---

include 'implicit'

---

einbinden. Dann habe ich das Feld YOUNG nicht finden können, in dem common-Block 'matdat' gibt es nur ein Feld ET. Also sollte dein letzter Befehl besser

Code:

---

V=ET(1)

---

heißen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP