---

Hallo,

ich habe mir eine Subroutine programmiert, welche mir Werte von Knoten mit UPSTNO ausgibt. Ingesamt gibt es bei Marc/Simufact 30 freie Variable(je für PlotV und Upstno). Ich schaffe es jedoch immer nur, einen Variablensatz (X und Y) zuzuweisen. Es steht dann in allen Variablen der selbe Wert.

Wie kann ich nur auf eine bestimmte Variable zugreifen, so das ich mit einer Subroutine Variable #1 und mit einer zweiten Variable #2 belegen kann.
Benötige das auf Grund mehrere Ausgaben.

DANKE!

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

---

In der upstno regelst Du mit dem user nodel post code nqcode, welche Postvariable beschrieben wird. In der plotv wird der post code mit der Variable jpltcd bestimmt.

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

---

Hallo,

Danke für die schnell und soweit schon einmal hilfreiche Antwort.

Ich habe jedoch noch Probleme mit der Interpretation der Post-Codes.

Nach Handbuch Marc 2011, S. 411:
<0 - User-defined nodal quantity via the UPSTNO user subroutine.

Wie soll ich diese Aussage interpretieren? Halle anderen Codes werden mit ganzen Zahlen angegeben.

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

---

Zitat:

---

Original erstellt von chaphmu:
Nach Handbuch Marc 2011, S. 411:
<0 - User-defined nodal quantity via the UPSTNO user subroutine.
Wie soll ich diese Aussage interpretieren?

---

Simpel: In der user subroutine wird ein Minuszeichen vor dem Postcode verwendet.

-1 entspricht User Nodal Quantity 1
-2 entspricht User Nodal Quantity 2
-3 entspricht User Nodal Quantity 3
...

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

---

Hallo,

danke für die Antwort. Es wird jedoch weiterhin der selbe Wert in allen Paramtern angegeben.

Wie kann ich jetzt 2 verschiedene Werte zurückgeben? Zwei Subroutinen in einer Datei?
Mein Wunsch wäre z.B. in der Wert 1 eine 5 & 6 zuschreiben, in den Wert 2 eine 7 & 8 (Soll später natürlich mit sinnvollen Daten gefüllt werden!).

Auszug aus meinem aktuellen Code:
SUBROUTINE UPSTNO (NQCODE,NODEID,VALNO,NQNCOMP,NQTYPE,NQAVER,NQCOMPTYPE,
    +NQDATATYPE,NQCOMPNAME)
IMPLICIT REAL*8 (A-H,O-Z)
C
DIMENSION VALNO(*)
CHARACTER*24 NQCOMPNAME(*)
C
C Beginn users coding
dimension valno1(3)
NQCODE=-3
valno(1)=5
valno(2)=6
nqtype=1
C End users coding
C
RETURN
END

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

---

Hallo,

hat niemand eine Idee?

Schöne Grüße

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