private/ public ist wichtiga

einfuehrung_mod.txt

@@ -109,5 +109,34 @@ MODULE quaternionen
 ...
 END MODULE
 
-„Standardmäßig kann ein Nutzer eines Moduls alle 
-public-private“
+„Standardmäßig kann ein Nutzer eines Moduls alles aus einem genutzten Modul sehen, d.h. nutzen.
+Das ist häufig unangebracht, z.B. sollte ein Benutzer nicht zwischen den verschiedenen Multiplikationen
+für Quaternionen unterscheiden können. Unterprogramme, die man zur besseren Strukturierung
+komplexer Funktionen schreibt, sollten nicht von außen direkt benutzt werden können, etc.
+Deshalb kann (und sollte) man Bestandteile von Modulen standardmäßig "private" (außerhalb des Moduls
+unsichtbar) setzen und alles, was außerhalb genutzt werden soll, explizit "public" setzen:“
+
+MODULE quaternionen
+  IMPLICIT NONE
+  PRIVATE
+  PUBLIC :: pr, intsize, quat, OPERATOR (+), OPERATOR (*), eins, i, j, k
+
+...
+END MODULE
+
+„Jetzt kann man bei einem Quaternion immer noch alle Einträge "per Hand" mit q%reell lesen und
+schreiben. Das ist bei vielen selbstdefinierten Typen
+schlecht, da oft viele Variablenbelegungen ungültig sind (welche wären das bei Intervallen und Trilog)
+und der Benutzer eines Moduls nicht
+wissen müssen sollte, wie etwas intern implementiert ist (Quaternionen können über eine Polardarstellung
+gespeichert werden, für den Benutzer wäre das egal.) Daher sollten in den meisten Fällen die
+Bestandteile von selbstdefinierten Typen privat sein:“
+
+MODULE quaternionen
+...
+  TYPE quat
+    PRIVATE
+    REAL (kind = pr) :: reell, imag, jmag, kmag
+  END TYPE
+...
+END MODULE

quaternionen.f95

 MODULE quaternionen
   IMPLICIT NONE
 
+  PRIVATE
+  PUBLIC :: pr, intsize, quat, OPERATOR (+), OPERATOR (*), eins, i, j, k
+  
   INTEGER, PARAMETER :: pr = SELECTED_REAL_KIND(P = 15, R=307)
   INTEGER, PARAMETER :: intsize = SELECTED_INT_KIND(20)
-  
-  TYPE quat    ! Quaternionen, sowas aehnliches wie komplexe Zahlen mit 4 Dimensionen
+ 
+  TYPE quat
+    PRIVATE
     REAL (kind = pr) :: reell, imag, jmag, kmag
   END TYPE
   
@@ -20,7 +24,9 @@ MODULE quaternionen
   TYPE (quat), PARAMETER :: i = quat(0, 1, 0, 0)
   TYPE (quat), PARAMETER :: j = quat(0, 0, 1, 0)
   TYPE (quat), PARAMETER :: k = quat(0, 0, 0, 1)
+
 CONTAINS
+
   FUNCTION add(a, b)
     TYPE(quat), INTENT(IN) :: a, b
     TYPE(quat) :: add