View source for MODKTR

{{BlauesModell Module}}

<fortran>FUNCTION KTR_INI () RESULT (LOK)</fortran>
Initialisiere das Modul fuer die Kontrollfunktionen
<fortran>FUNCTION KAKT_INI () RESULT (LOK)</fortran>
Initialisiere das Modul fuer die Aktuellen Systemzustaende
<fortran>FUNCTION KBIL_INI () RESULT (LOK)</fortran>
Initialisiere das Modul fuer die Kontrollbilanzen
<fortran>FUNCTION KPEG_INI () RESULT (LOK)</fortran>
Initialisiere das Modul fuer die Kontrollpegel
<fortran>FUNCTION KGRP_INI () RESULT (LOK)</fortran>
Initialisiere das Modul fuer die Kontrollgruppen
<fortran>FUNCTION KTR_CREATE () RESULT (ID)</fortran>
Die naechste freie ID ermitteln
<fortran>FUNCTION KAKT_CREATE () RESULT (ID)</fortran>
Die naechste freie ID ermitteln
<fortran>FUNCTION KBIL_CREATE () RESULT (ID)</fortran>
Die naechste freie ID ermitteln
<fortran>FUNCTION KPEG_CREATE () RESULT (ID)</fortran>
Die naechste freie ID ermitteln
<fortran>FUNCTION KGRP_CREATE () RESULT (ID)</fortran>
Die naechste freie ID ermitteln
<fortran>FUNCTION KTR_GET_ATTRIB_INT () RESULT(iValue)</fortran>
Attribute ausgeben
<fortran>FUNCTION KTR_GET_ATTRIB_LONG () RESULT(iValue)</fortran>
Attribute ausgeben
<fortran>FUNCTION KTR_GET_ATTRIB_REAL () RESULT(rValue)</fortran>
Attribute ausgeben
<fortran>FUNCTION KTR_GET_ATTRIB_CHAR () RESULT(ilen)</fortran>
Attribute ausgeben
<fortran>FUNCTION KTR_NEU () RESULT (LOK)</fortran>
Neues Kontroll-Objekt einrichten
<fortran>FUNCTION KAKT_NEU () RESULT (LOK)</fortran>
Neues Kontroll-Objekt einrichten: Aktueller Systemzustand
<fortran>FUNCTION KBIL_NEU () RESULT (LOK)</fortran>
Neues Kontroll-Objekt einrichten: Bilanz
<fortran>FUNCTION KPEG_NEU () RESULT (LOK)</fortran>
Neues Kontroll-Objekt einrichten: Pegel
<fortran>FUNCTION KGRP_NEU ()RESULT (LOK)</fortran>
Neue Kontrollgruppe einrichten
<fortran>FUNCTION KTR_ANZAHL () RESULT (anz)</fortran>
Anzahl der Kontrollfunktionen feststellen
<fortran>FUNCTION KTR_SYS () RESULT (LOK)</fortran>
Kontrollelemente einrichten
<fortran>FUNCTION KGRP_SYS ()RESULT (LOK)</fortran>
Kontrollgruppen einrichten
<fortran>FUNCTION KTR_START () RESULT (LOK)</fortran>
Anfangsbedingungen der Kontrollelemente fuer alle beteiligten Objekte
<fortran>FUNCTION KTR_PREWEL () RESULT (LOK)</fortran>
Berechnung der Skalierungsfaktoren für die Kontrollelemente 'Qzu'. Dies geschieht vor der Berechnung aller Systemobjekte (in MODSYS:: Berechne_Systemelement). Alle anderen Kontrollelemente werden nach der Berechnung der einzelnen Systemobjekte berechnet.
<fortran>FUNCTION KTR_POSTWEL () RESULT (LOK)</fortran>
Berechnung der Skalierungsfaktoren für alle Kontrollelemente. 
<fortran>FUNCTION KBIL_WEL () RESULT (IST)</fortran>
Kontrollelemente - Bilanzen berechnen
<fortran>FUNCTION KGRP_WEL () RESULT (LOK)</fortran>
Kontrollgruppen berechnen
<fortran>FUNCTION KTR_HEADWEL () RESULT(LOK)</fortran>
Kontrollelemente Header fuer Output-File schreiben
<fortran>FUNCTION KTR_OUTWEL () RESULT(LOK)</fortran>
Kontrollelemente Ganglinien schreiben
<fortran>FUNCTION KTR_UPDATE () RESULT (LOK)</fortran>
Uebergabe der letzten Zeitschrittwerte
<fortran>FUNCTION KGRP_CHECK () RESULT (LOK)</fortran>
Kontrollgruppen auf Berechnungsreihenfolge prüfen
<fortran>FUNCTION KTR_GET_SYSZUST_TYP () RESULT (iTyp)</fortran>
Systemzustand für aktuelles Kontrollelement uebergeben
<fortran>FUNCTION KTR_GET_FAKTOR () RESULT (Faktor)</fortran>
Faktor fuer aktuelle Kontrollelement uebergeben
<fortran>FUNCTION KTR_VALUES () RESULT (isOK)</fortran>
Faktor fuer alle Kontrollelement uebergeben
<fortran>FUNCTION KTR_GET_KTRANZ () RESULT (anz)</fortran>
Anzahl Kontrollelement uebergeben
<fortran>FUNCTION KTR_GET_TYPID () RESULT(TypID)</fortran>
TypID fuer ein Kontrollelement auslesen
<fortran>FUNCTION KTR_GET_ISAKTIV () RESULT(LOK)</fortran>
Aktiv-Einstellung fuer ein Kontrollelement auslesen
<fortran>FUNCTION KTR_GET_KENSYS () RESULT(C)</fortran>
Kensys-Einstellung fuer ein Kontrollelement auslesen
<fortran>FUNCTION KTR_isPEGEL () RESULT(LOK)</fortran>
Ist das Kontrollelement vom Typ Pegel
<fortran>FUNCTION KTR_GET_ZEIGER () RESULT(I)</fortran>
ZEIGER-Einstellung fuer ein Kontrollelement auslesen
<fortran>FUNCTION KTR_GET_FIRSTID () RESULT (ID)</fortran>
Start-ID fuer eine Kennung ermitteln
<fortran>FUNCTION KTR_isNachfolger () RESULT (LOK)</fortran>
Nachfolger uebergeben
<fortran>FUNCTION KGRP_GET_VORZ_ID () RESULT (ID)</fortran>
Vorzeichen-ID ermitteln
<fortran>FUNCTION KGRP_GET_AKTWERT () RESULT (Wert)</fortran>
Werte entsprechend der Rechenvorschrift verarbeiten
<fortran>FUNCTION KGRP_isOBERLIEGER () RESULT (isOK)</fortran>
Oberlieger-Check innerhalb der Kontrollgruppen
<fortran>FUNCTION KGRP_GET_PreviousKGRP () RESULT (anz)</fortran>
Alle Oberlieger der Kontrollgruppe holen
<fortran>FUNCTION KTR_GET_TYP_A () RESULT (c)</fortran>
KTR-Typen
<fortran>FUNCTION KTR_GET_TYP_B () RESULT (c)</fortran>
KTR-Typen
<fortran>FUNCTION KTR_GET_TYP_C () RESULT (c)</fortran>
KTR-Typen
<fortran>FUNCTION KTR_GET_TYP_F () RESULT (c)</fortran>
KTR-Typen
<fortran>FUNCTION KTR_GET_TYP_P () RESULT (c)</fortran>
KTR-Typen
<fortran>FUNCTION KTR_GET_ID () RESULT (ID)</fortran>
ID aus KTRID ermitteln
<fortran>FUNCTION KTR_IDObj () RESULT (objptr)</fortran>
Objekt zu einer ID
<fortran>FUNCTION KBIL_IDObj () RESULT (objptr)</fortran>
Objekt zu einer ID
<fortran>FUNCTION KPEG_IDObj () RESULT (objptr)</fortran>
Objekt zu einer ID
<fortran>FUNCTION KGRP_IDObj () RESULT (objptr)</fortran>
Objekt zu einer ID

[[Kategorie:BlueM Code]]