---

Hallo,

ich bin noch ziemlicher Anfänger in Abaqus und möchte eine Kugel um eine starre und eine mitbewegte Achse gleichzeitig drehen. Ich habe hierzu eine Subroutine DISP geschrieben, bekommen aber immer einen Fehler(Problem during compilation - D:\subroutine.for). Hier ist mein Programmcode:

*USER SUBROUTINE
SUBROUTINE DISP(U, KSTEP, KINC, TIME, NODE, NOEL, JDOF, COORDS, SNAME)

INCLUDE 'ABA_PARAM.INC'

REAL U
INTEGER KSTEP, KINC, NODE, NOEL, JDOF

DIMENSION U(1), TIME(2), COORDS(3)

x = COORDS(1)
y = COORDS(2)
z = COORDS(3)

C Definition der Variablen

CHARACTER*80 SNAME

REAL R, W1, W2

C Radius Kugel
R = 120

C Drehzahl1
W1 = 600

C Drehzahl2
W2 = 200

C Berechnung u(1)

U(1) = R*(COS(W1*TIME))*X + R*SIN((W1*TIME))*Y + W2*R*SIN((W1*TIME))*Z

RETURN
      END

kann mir jemand helfen und sagen was ich falsch mache?

Viele Grüße
Maxi

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

---

Dimension u(3) .............

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

---

ich habe jetzt noch ein paar Dinge geändert, bekomme jedoch immernoch den gleichen Fehler (Problem during compilation)

*USER SUBROUTINE
SUBROUTINE DISP(U, KSTEP, KINC, TIME, NODE, NOEL, JDOF, COORDS, SNAME)

include 'ABA_PARAM.INC'

REAL U
INTEGER KSTEP, KINC, NODE, NOEL, JDOF

DIMENSION U(3), TIME(2), COORDS(3)

X = COORDS(1)
Y = COORDS(2)
Z = COORDS(3)

C Definition der Variablen

CHARACTER*80 SNAME

REAL R, W1, W2, PI

INTEGER T

PI = 3.141592654

C Radius Kugel

R = 120

C Drehzahl 1

W1 = 600

C Drehzahl 2

W2 = 200

C Berechnung U(1)

T = 0

IF(T<TIME(2))

U(1) = R*(COS(2*PI*W1*T))*X + R*SIN((2*PI*W1*T))*Y + 2*PI*W2*R*SIN((2*PI*W1*T))*Z

T = T + TIME(1)

RETURN
      END

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

---

SNAME gehört nicht zu den Variablen! Und lass mal die REAL und Integerzeilen raus.

SUBROUTINE  DISP(U,KSTEP,KINC,TIME,NODE,NOEL,JDOF,COORDS)
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION U(3),TIME(2),COORDS(3)
C

      user coding to define U

      RETURN
      END

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