Opened by GwenDragon at 2006-06-09 17:08
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
[quote=lichtkind,26.06.2006, 14:23]danke, Fortran ist ja wirklich eine urige sprache[/quote]
In der Tat... zum Beispiel werden Variablen zwischen Funktionen in sogenannten Common-Anweisungen geteilt. In jeder Funktion wird dann ein oder mehrere benannte Commonblöcke eingesetzt, in der die gleichen Variablen aufgelistet werden sollten.
Um mir das Leben einfacher zu machen, hab ich mir damals einen Präprozessor geschrieben, der aus einer bestimmten Datei die Commonblöcke eingesetzt hat, dann musste man die bei Bedarf nur an einer Stelle ändern.
Um solche geteilten Variablen zu initialisieren, gab es eine besondere Funktion, die nur einmal im Programm vorkommen durfte.
Lustig ist auch die EQUIVALENCE Anweisung, mit deren Hilfe man sich Arrays überlappen lassen konnte etc.
(Bezieht sich alles auf Fortran 77.)
In der Tat... zum Beispiel werden Variablen zwischen Funktionen in sogenannten Common-Anweisungen geteilt. In jeder Funktion wird dann ein oder mehrere benannte Commonblöcke eingesetzt, in der die gleichen Variablen aufgelistet werden sollten.
Um mir das Leben einfacher zu machen, hab ich mir damals einen Präprozessor geschrieben, der aus einer bestimmten Datei die Commonblöcke eingesetzt hat, dann musste man die bei Bedarf nur an einer Stelle ändern.
Um solche geteilten Variablen zu initialisieren, gab es eine besondere Funktion, die nur einmal im Programm vorkommen durfte.
Lustig ist auch die EQUIVALENCE Anweisung, mit deren Hilfe man sich Arrays überlappen lassen konnte etc.
(Bezieht sich alles auf Fortran 77.)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite