-25- 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
RDJR 
HIER IST 24 OIE ANZAHL OER DATEN PRO ZEILE. RDJR 
DIES FORMAT IST IDENTISCH MIT DEM DER FRUEHEREN STUENDLICHEN RDJR 
WERTE. RDJR 
RDJR 
ZU 2. DATEN: RDJR 
RDJR 
AUF DIE ZEILE DT IM KOPF DES RECORDS FOLGEN DIE DATENZEILEN RDJR 
IM FORMAT FMT2. RDJR 
ANORDNUNG: JAHR (3-STELLIG), TAGESNR . , WASSERSTAENDE RDJR 
RDJR 
SUBROUTINE RDJR LIEST DIESE RECORDS UND SPEICHERT DIE RDJR 
WASSERSTAENDE IM ARRAY HH AB. DER MITTELS DER TAGESNRN. NTA UND RDJR 
NTE ANGEFORDERTE BEREICH DES RECORDS MUSS OHNE LUECKEN VORHANDEN RDJR 
SEIN, SONST ERFOLGT FEHLERABBRUCH . LEDIGLICH EINZELNE WERTE, RDJR 
DIE ‘BLANK*, 0 SIND, WERDEN ANGEZEIGT, DEREN ANZAHL IM PARAMETER RDJR 
IO ANGEGEBEN. PARAMETER 19 IST DUMMY, WIRD IN DIESER VERSION 0 GE- RDJR 
SETZT. RDJR 
RDJR 
FOLGENDES IST ERLAUBT: RDJR 
WENN PRO TAG MEHERERE DATENZEILEN NOTWENDIG SIND (Z.B. BEI RDJR 
HALBSTUENDLICHEN WERTEN), DUERFEN DIE ANFANGSZEILEN OES TAGES RDJR 
NTA FEHLEN, DIE ZUGEHOER I GEN ARRAYELEMENTE HH WERRDEN MIT RDJR 
SINNLOSEN WERTEN BESETZT, IHRE ANZAHL IM PARAMETER I FL AUSGEGE- RDJR 
BEN. WENN DAS RECORD VOR ERREICHEN VON NTE ZU ENDE IST, WIRD RDJR 
OHNE MELDUNG ABGEBROCHEN. DIE GESAMTZAHL DER BESETZTEN WERTE HH, RDJR 
D.H. EINSCHLIESSLICH DER SINNLOSEN IFL-STUECK AM ANFANG WIRD RDJR 
IM PARAMETER IHH AUSGEGEBEN. ES IST DAHER SINNVOLL, NACH JEDEM AUF- RDJR 
RUF VON RDJR DIE PARAMETER I FL UND I HH ZU BENUTZEN. RDJR 
RDJR 
RDJR LAESST 60 DATENZEILEN PRO TAG ZU, SOWIE 50 WERTE PRO ZEILE. RDJR 
DIES ERLAUBT DAS EINLESEN VON RECORDS MIT KLEINEM DT, Z.B RDJR 
DT = 1 MINUTEN , WIE SIE Z.8. VON BEOBACHTUNGEN AUS AUTOMATISCHEN RDJR 
PEGELAUFZE ICHNUNGEN ODER AUS MODELLRECHNUNGEN STAMMEN KOENNEN. RDJR 
RDJR 
DIE ZEILENLAENGE IST AUF 130 CHARACTER BEGRENZT. RDJR 
RDJR 
DIESE SU8R0U T I NE IST IN FILE *HYL I B/UN= HYL I B* , RDJR 
FILE *HYLI8/UN=HYLIB* MUSS BEIM LADEN IM ‘LOSET* ALS LIBRARY RDJR 
GELADEN WERDEN. RDJR 
RDJR 
BEISPIEL DAFUER: CCL-PROCEDUR ‘TRDJR* ( = TEST RDJR) AUF RDJR 
FILE *PANPROC/UN = HYPAN* . RDJR 
RDJR 
PARAMETER: RDJR 
EINGA8E: RDJR 
PEG4 PEGELNR., 4-STELLIG (CHARACTER* 4) RDJR 
JAHR JAHR, 4-STELLIG INTEGER RDJR 
JF JAHRESFILE (CHARACTER* 7) RDJR 
UN USER-NR. FUER JF (CH ARACTER* 5) RDJR 
NTA TAGESNR. DES ANFANGSTAGES (1. JAN. HAT NR. 3) RDJR 
NTE TAGESNR. DES ENDTAGES RDJR 
RDJR 
AUSGABE: RDJR 
DT ZEITL. A8STAND DER DATEN, IN MINUTEN RDJR 
IHH ANZAHL DER BESETZTEN WERTE DES ARRAYS HH RDJR 
HH ARRAY DER DATEN (DIMENSION!*)) RDJR 
I FL NORMALER RETURN: IFL = 0 RDJR 
IFL POSITIV: ANZAHL DER NICHT BESETZTEN WERTE AM RDJR 
ANFANG DES ARRAYS HH, NULLEN AM ANFANG RDJR 
GELTEN AUCH ALS "NICHT BESETZT". RDJR 
IO GIBT AN, WIEVIELE DATEN NULL SIND, NULLEN AM ANFANG RDJR 
ZAEHLEN BEI IO NICHT MIT RDJR 
19 DUMMY, WIRD 0 GESETZT RDJR 
COMME DEFINIERT ALS CHARACTER* 130 : ENTHAELT DIE ERSTE RDJR 
KOMMENTARZEILE, FALLS VORHANDEN RDJR 
RDJR 
DIE DATENZEILEN, IN DENEN 0 AUFTRITT, RDJR 
WERDEN HERAUSGESCHRIEBEN ZUR KONTROLLE RDJR 
RDJR 
RDJR 
PAN, DEC. 1984, JAN. 1985 RDJR 
RDJR 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147