- 17 - 
A Abdruck der Konimentarköpfe von Programmen 
87/12/17. 
HAMANA 
SUBROUTINE HAMANA(N.NMAX,X,IPG,V0V,V.RJ.SGMA,R0,H,G,NA,NE,DT1, 
1JA.MA,ITA,ISA,IMINA.DRO,DR,DPHI,VV,TIDEN) 
PANSCH, HARMONISCHE ANALYSE, VORBEREITET EUER 61 TIDEN 
WASSERSTANDS- UND STROMBEOBACHTUNGEN WERDN HARMONISCH ANALYSIERT, 
DIE IDENTIFIZIERUNG DER TIDEN GESCHIEHT NACH DER SEITENZAHL DER 
"TAFELN DER ASTRONOMISCHEN ARGUMENTE VO + V UND DER KORREKTIONEN 
J/V". 
ES MUESSEN NEBEN DEN MESSWERTEN DAHER ANGEGEBEN WERDEN: 
DIE SEITENZAHLEN AUS DIESEN TAFELN. DIE WINKELGESCHWINDIGKEITEN 
UND DIE VO + V UND J WERDEN IM PROGRAMM BERECHNET. 
HAMANA RUFT EIN WEITERES PROGRAMMSYSTEM AUF. 
AUSGEGEBEN WERDEN DIE HARMONISCHEN KONSTANTEN H UND G, 
SOWIE EIN MITTLERER WASSERSTAND RO. 
DIE PHASEN G SIND DABEI AUF DIE ZEITZONE BEZOGEN, IN 
DER DIE MESSUNG AUSGEDRUECKT IST. DIES GESCHIEHT UEBER 
DAS ANFANGSDATUM. 
PARAMETER: 
EINGABE: 
N: 
IPG : 
NM AX : 
X: 
DT1 : 
NA , NE 
DER TIDEN 
ANZAHL DER TIDEN 
SEITENZAHL DER J/V TAFEL 
ANZAL DER MESSWERTE 
ARRAY DER MESSWERTE, GLEI CH ABSTAEND I G 
DEREN ABSTAND IN MINUTEN 
: MESSWERTE UNO SYNTHESE WERDEN ZUM VERGLEICH VON 
NA BIS NE AUSGEDRUCKT 
DABEI WIRD FEHLERVERTEILUNG BERECHNET 
UND AUSGEDRUCKT, DA8EI WIRD ARRAY DER MESSWERTE ZERSTOERT! 
BEI NA = NE KEINE FEHLERVERTEILUNG , MESSWERTE NICHT ZERSTOER 
JA,MA , I TA , ISA , IM INA : ANFANGSDATUM DER MESSREIHE 
AUSGA8E : 
SGMA: WINKELGESCHW . IN GRD/STD, AUSGABE (ARRAY) 
RO,H,G:HARMONISCHE KONSTANTEN, AUSGABE (H UND G ARRAYS) 
DRO , DR,DPH I : FEHLER (DR, DPHI ARRAYS) 
VOV: VO+V AUS DER TAFEL (ARRAY) FUER 1. JAN. OO.OOUHR 
V: V AUS DER TAFEL (ARRAY) (ANALYSENM ITTE) 
RJ: J AUS DER TAFEL (ARRAY) (ANALYSENM I TTE) 
VV: FEHLER DER EINZELMESSUNG 
TIDEN: BEZEICHNUNG DER PARTIALTIDEN IN CHARACTERDARSTELLUNG, 
IM RUFENDEN PROGRAMM MUSS ERKLAERT SEIN: 
CHARACTER T I DEN(128 ) * 10 , INDEX VON TIDEN IST DIE 
SEITENZAHL DER J/V TAFEL. TI DEN(I) KANN MIT 
FORMAT (A10) GEDRUCKT WERDEN. 
WENN DR IN GROESSENORDNUNG H KOMMMT, WIRD DPHI = 0. GESETZT 
FOLGENDE DIMENSIONEN SIND IM 
DIMENSION VOV(N),V(N),RJ(N) 
DIMENSION DR(N ) , DPHI(N) 
CHARACTER TIDEN(128 ) * 10 
RUFENDEN PROGR. ZU GEBEN: 
IPG(N) ,H(N) ,G(N),X(NMAX),SGMA(N) 
HAMANA 
1 
HAMANA 
2 
HAMANA 
3 
HAMANA 
4 
HAMANA 
5 
HAMANA 
6 
HAMANA 
7 
HAMANA 
8 
HAMANA 
9 
HAMANA 
10 
HAMANA 
11 
HAMANA 
12 
HAMANA 
13 
HAMANA 
14 
HAMANA 
15 
HAMANA 
16 
HAMANA 
17 
HAMANA 
18 
HAMANA 
19 
HAMANA 
20 
HAMANA 
21 
HAMANA 
22 
HAMANA 
23 
HAMANA 
24 
HAMANA 
25 
HAMANA 
26 
HAMANA 
27 
HAMANA 
28 
HAMANA 
29 
HAMANA 
30 
HAMANA 
31 
HAMANA 
32 
¡THAMANA 
33 
HAMANA 
34 
HAMANA 
35 
HAMANA 
36 
HHAMANA 
37 
HAMANA 
38 
HAMANA 
39 
HAMANA 
40 
HAMANA 
41 
HAMANA 
42 
HAMANA 
43 
HAMANA 
44 
HAMANA 
45 
HAMANA 
46 
HAMANA 
47 
HAMANA 
48 
HAMANA 
49 
HHAMANA 
50 
HAMANA 
51 
HAMANA 
52 
HAMANA 
53 
HAMANA 
54 
HAMANA 
55 
HAMANA 
56 
HAMANA 
57