einführung zu interfaces und co weitergeschrieben.

einfuehrung_mod.txt

@@ -38,7 +38,7 @@ END MODULE
 
 Um auf Bestandteile von selbstdefinierten Typen zurückzugreifen, nutze %“
 
-MODULE
+MODULE quaternionen
   ...
 
 CONTAINS
@@ -51,5 +51,63 @@ CONTAINS
     add%jmag = a%jmag + b%jmag
     add%kmag = a%kmag + b%kmag
   END FUNCTION
-    
-Interfaces
+
+END MODULE
+
+„Interfaces
+Im Hauptprogramm kann man nun schreiben: q = ADD(eins, i) und erhält (1.0, 1.0, 0.0, 0.0)
+aber man möchte eher q = eins + i schreiben.
+Dafür kann man ein INTERFACE nutzen, eine Art "zweiter Name", ein Alias:“
+
+MODULE quaternionen
+...
+  INTERFACE OPERATOR (+)
+    MODULE PROCEDURE add
+  END INTERFACE
+
+CONTAINS
+
+  FUNCTION add(a, b)
+  ...
+
+END MODULE
+
+„Interfaces können auch aliase für mehrere Funktionen sein, solange deren
+Argumenttypen sich unterscheiden.
+Z.B. sollte Skalarmultiplikation (also REAL * quat) und Multiplikation von Quaternionen
+Dann wird immer die passende Funktion ausgewählt“
+
+MODULE quaternionen
+...
+  INTERFACE OPERATOR (*)
+    MODULE PROCEDURE mul, realmul, intmul
+  END INTERFACE
+...
+CONTAINS
+  FUNCTION mul(a, b)
+...  ! komplette Variante in quaternionen.f95 zu finden
+  FUNCTION realmul(skalar, a)
+...
+  FUNCTION intmul(skalar, a)
+...
+END MODULE
+
+„wir haben schon Modulvariablen (in diesem Fall Konstanten) gesehen.
+Eine häufige sinnvolle Anwendung sind die kind-Konstanten. Diese können
+dann einheitlich im ganzen Modul UND im Hauptprogramm nutzen.
+Damit umgeht man Probleme mit nicht zusammen passenden Typen.“
+
+MODULE quaternionen
+  IMPLICIT NONE
+...
+  INTEGER, PARAMETER :: pr = SELECTED_REAL_KIND(P = 15, R=307)
+  INTEGER, PARAMETER :: intsize = SELECTED_INT_KIND(20)
+
+  TYPE quat
+    REAL (kind = pr) :: reell, imag, jmag, kmag
+  END TYPE
+...
+END MODULE
+
+„Standardmäßig kann ein Nutzer eines Moduls alle 
+public-private“