[Der Sucher]

Hallo, kennt sich hier zufällig jemand mit Fortran aus? Nein? nun, vielleicht ist es in einer anderen Sprache ja ähnlich...
Problem:

integer ::k=4
CHARACTER (len=100) :: name

name = 'k'
print *, name

und statt k hätte ich gerne 4 als Ausgabe...

[mo]

Was möchtest du denn genau machen?

Zitat

und statt k hätte ich gerne 4 als Ausgabe...

print *,k

[Der Sucher]

ich würde halt gerne 20 verschiedene Variablen (mit versch. Dimensionen) ausgeben, und das an mehreren Stellen des programms. Daher waers einfach, wenn ich die namen speichern koennte (im character) und anhand der variable dann ausgeben:

integer a, b,c,d,...

name(1) =" a"
name(2) ="b"
...

Do i = 1,20
print *,name(i)
ENd do

und als ausgabe dann den Inhalt von a, b,c bekomme

[Rika]

Und warum nimmst du dann nicht einfach ein Array? -.-

Dieser Beitrag wurde von Rika bearbeitet: 02. August 2005 - 16:32

[mo]

Imho kann Fortran das nicht, bis auf PHP fällt mir auch keine Sprache ein, die so etwas seltsames kann ...

Du könntest das Problem mit Pointern lösen ... ein anderer Ansatz fällt mir auf die Schnelle überhaupt nicht ein. Zu Fortran und Pointers hat Google diese Seite ausgespuckt:
http://www.personal.psu.edu/faculty/j/h/jh...ectures/42.html

Warum erklärtst du nicht, was du genau machen willst. Vielleicht gibt es ja ein einfacheren Ansatz.

[Rika]

Ähm... selbst Fortran 77 kennt Arrays, es wäre auch verdammt blöd, wenn eine für High Performance Computing angedachte Sprache mit so etwas nicht umgehen könnte, wo sie doch riesige Vektoren und Matrizen verarbeiten soll.

[mo]

Meine Antwort war auf die Frage vom Suchter. Sry, das war jetzt etwas verwirrend. Klar kennt Fortran Arrays

[Der Sucher]

So, bin wieder arbeiten...


also, dann noch mal in aller Schönheit das Problem:
ich möchte wiederholt viele Variablen in eine Datei ausgeben, und nicht jedesmal einen 200 Zeilenblock einfuegen. Eine Funktion oder ein Struct bringts auch nicht so wirklich, weil ich nicht jedesmal die gleichen Variablen habe, so dass ich dann jedesmal ne andere Funktion bräuchte.
hab bisher hauptsächlich mit einer matlab-ähnlichen sprache gearbeitet, da gings halt schön einfach:
Loop qq Set a b c
Print {qq}
Endloop
und der Inhalt von a,b,c wurde ausgegeben. Gut möglich dass es sowas nur in php gibt.



die Variablen sind von verschiedenem Typ und verschiedenen Dimensionen

Ausgabe aller Variablen

CALL f1 ( &
qqh , ztenh , zqenh , qrsih , &
ttlwttin , tttyqe , ttlab , lolq , looutt, &
iditt , kditt , iso , ieo , &
qqrs , qt , qqv , qu , qv , zqsen, qrsirs , &
ztu , zqu , zlu , zuu , zvu , &
zttrsu , zttrsub , zttrsus , zttrsuq, zttrsul, zlude, &
qdqvdt , qw , zdqqbl, qouttrslx, &
zdttrsuq , zentr , &
ttbas_oon, tttoq_oon, ttotoq0, ttoutt )

Ausgabe aller Variablen
...
Ausgabe aller Variablen

CALL f2 ( &
qqh , ztenh , zqenh , qrsih , &
ttlwttin , tttyqe , ttlab , lolq , looutt, &
iditt , kditt , iso , ieo , &
qdqvdt , qw , zdqqbl, qouttrslx, &
zdttrsuq , zentr , &
ttbas_oon, tttoq_oon, ttotoq0, ttoutt )

Ausgabe aller Variablen

...
usw


@Rika: da die Variablen verschiedene Dimensionen haben bringt mir ein feld nix, oder?
@mo: ich sehe nicht wie mir hier ein zeiger helfen könnte... aber der link von dir war trotzdem nicht schlecht, danke.