C*********************************************************************
c
c                     i-init.for
c
C-------------------------------------------------- KZM:HELIOS3.INIT
C COMMON BLOECKE FUER DIE KANAELE VON HELIOS A
C                                     .........
      BLOCK DATA
C KANAL-WERTE    > I1A <
       COMMON /KANAL/ VOLT(34,2),AZIMUT(18,2),ELEVAT(11)
C  VOLT( ,1),AZIM( ,1)  NS  BIT ISHI 0
C  VOLT( ,2),AZIM( ,2)  WS  BIT ISHI 1
      DATA VOLT / 5.884,6.798,7.863,9.102,10.55,12.18,14.09,16.34,
     *            18.91,21.81,25.23,29.19,33.81,39.05,45.17,52.41,
     *            60.65,69.98,80.92,93.65,108.5,125.3,144.9,168.1,
     *            194.4,225.5,260.7,301.6,349.0,402.7,465.7,539.8,
     *            624.1,721.5 ,
     *            5.468,6.316,7.305,8.457,9.793,11.32,13.09,15.19,
     *            17.58,20.27,23.44,27.14,31.42,36.30,41.98,48.71,
     *            56.37,65.05,75.22,87.06,100.9,116.5,134.7,156.2,
     *            180.8,209.6,242.4,280.4,324.5,374.7,433.1,502.0,
     *            580.4,670.6 /
C   EICH - CEM 9  LIEGT IM NORDEN MISST AUS SUEDEN
      DATA ELEVAT / +25.00, +20.79, +15.72, +10.64, +5.59,+0.55,-4.54,
     *               -9.62, -14.69, -19.72, -25.00 /
C KANAL-WERTE    > I3  <
       COMMON /KANAL3/ GESCHW(18),AZIM(18,2),ELEV(11)
      DATA GESCHW  / 181.9, 198.9, 217.5, 238.0, 260.6, 285.2, 312.1,
     *               341.6, 373.8, 409.1,447.7, 489.8, 536.0, 586.6,
     *               641.9, 702.4, 768.6, 840.5 /
C   KORRIGIERTE WINKEL (21.3.77)
      DATA ELEV /+25.00, +20.73, +15.66, +10.64, +5.61, +0.64,
     *           -4.45,  - 9.48, -14.56,- 19.64, -25.00 /
C COMMON BLOECKE FUER HELIOS   -> I1B -<
       COMMON /KANL1B/ VOLT1B(34,2)
C  VOLT( ,1),AZIM( ,1)  NS  BIT ISHI 0
C  VOLT( ,2),AZIM( ,2)  WS  BIT ISHI 1
      DATA VOLT1B/ 24.32,28.29,32.91,37.87,43.96,50.87,58.53,68.21,
     *            78.82,90.74,105.6,121.5,141.1,163.2,187.8,218.8,
     *            252.8,291.7,339.3,390.4,453.2,524.4,603.2,702.9,
     *            812.1,936.3,1090.,1254.,1455.,1683.,1935.,2254.,
     *            2603.,3006. ,
     *            22.55,26.24,30.53,35.14,40.79,47.20,54.30,63.29,
     *            73.13,84.13,97.88,112.7,130.8,151.3,174.1,202.9,
     *            234.4,270.4,314.6,361.9,420.1,486.2,559.2,651.6,
     *            752.9,868.1,1010.,1162.,1349.,1560.,1794.,2090.,
     *            2414.,2788. /
C
C
C   KONSTANTEN FUER DIE MOMENTE
      COMMON /MOM/ PM,BK,DELEL1,DELAZ1,DELZ1,GMOA1,
     *                   DELEL3,DELAZ3,DELZ3,GMOA3,
     *                   DELELB,DELAZB,DELZB,GMOAB
      DATA PM,BK /1.67E-24,1.38E-16/
      DATA  DELEL1,DELAZ1,DELZ1,GMOA1/0.08727,0.09774,0.01,4.0E-7/
      DATA  DELEL3,DELAZ3,DELZ3,GMOA3/0.08727,0.09774,0.01,.1628E-7/
      DATA  DELELB,DELAZB,DELZB,GMOAB/0.08727,0.09774,0.01,0.877E-7/
C   FUE I1B / I3 -> I1A ANGEGLICHEN  I1B = 4.0E-7/5.43  -(+)16%
C                                    I3    4.0E-7/24.5
      END
      SUBROUTINE INIT
C INITIALISIEREN DER BLOCKDATA
C
       COMMON /KANAL/ VOLT(34,2),AZIMUT(18,2),ELEVAT(11)
C
      LOGICAL*4 LPRINT/.TRUE./
C
C  AUFBEREITEN DER KANALWERTE   > I1A <
C  VOLT -> KM/SEC
      EKONS= 425.23/SQRT(VOLT(14,1))
      DO 1 I=1,2
        DO 1 J=1,34
    1 VOLT(J,I) = EKONS*SQRT(VOLT(J,I))
C  AZIMUTH-WINKEL
      DAZ = 3.515625+2.10935
      AZ0  = -11.25 - 10.*DAZ + 3.515625/2.
      DO 2 I=1,18
        AZIMUT(I,1) = AZ0+DAZ
        AZ0=AZIMUT(I,1)
    2   AZIMUT(I,2) = AZIMUT(I,1)+(11.25-8.4375)
C   VERSCHIEBUNG DES SCHWERPUNKTES (CORR1 = MITTL.VERSCH.AUS EICHDATEN)
C                                  (CORR2 = VERSCH.BEIM EINBAU)
      CORR1 = 0.539
      CORR2 = 0.467
      DO 3 I=1,18
        AZIMUT(I,1) = AZIMUT(I,1)-CORR1+CORR2
    3   AZIMUT(I,2) = AZIMUT(I,2)-CORR1+CORR2
C
C   ELEVATION VERSCH BEIM EINBAU
      CORR3 = 0.027
      DO 4 I=1,11
    4   ELEVAT(I) = ELEVAT(I) - CORR3
C
      IF(.NOT.LPRINT) RETURN
      WRITE(6,100) ((VOLT(I,J),I=1,34),J=1,2)
  100 FORMAT(///' KANAELE FUER INSTRUMENT 1A  * HOS1 * '/
     *       ' GESCHWINDIGKEITSKANAELE OHNE SHIFT:'/ 3(' ',10F12.4/),
     *       ' ',4F12.4/' GESCHWINDIGKEITSKANAELE MIT  SHIFT:'/
     *       3(' ',10F12.4/),' ',4F12.4)
      WRITE(6,101) ((AZIMUT(I,J),I=1,18 ),J=1,2)
  101 FORMAT(' AZIMUTH-KANAL OHNE SHIFT:'/ ' ',10F12.3/' ',8F12.3/
     *       ' AZIMUTH-KANAL MIT  SHIFT:'/ ' ',10F12.3/' ',8F12.3)
      WRITE(6,102) ELEVAT
  102 FORMAT(' ELEVATIONS-KANAL:'/' ',11F11.2)
C
C
      RETURN
      END
      SUBROUTINE INIT31
C INITIALISIEREN DER BLOCKDATA      > I3 <
C
       COMMON /KANAL3/ GESCHW(18),AZIM(18,2),ELEV(11)
C
      LOGICAL*4 LPRINT/.TRUE./
C
C  VOLT -> KM/SEC   (MOMENT FUER KANAL 5  (INDEX 6))
      EKONS= 391.29/(SQRT(2.)*GESCHW( 6))
        DO 1 I=1,18
    1 GESCHW(I) = EKONS*GESCHW(I)
C  AZIMUTH-WINKEL
      DAZ = 3.515625+2.10935
      AZ0  = -11.25 - 10.*DAZ + 3.515625/2.
      DO 2 I=1,18
        AZIM(I,1) = AZ0+DAZ
        AZ0=AZIM(I,1)
    2   AZIM(I,2) = AZIM(I,1)+(11.25-8.4375)
C   VERSCHIEBUNG DES SCHWERPUNKTES (CORR1 = MITTL.VERSCH.AUS EICHDATEN)
C                                  (CORR2 = VERSCH.BEIM EINBAU)
      CORR1 = 0.21
      CORR2 = -0.042
      DO 3 I=1,18
        AZIM(I,1) = AZIM(I,1)-CORR1+CORR2
    3   AZIM(I,2) = AZIM(I,2)-CORR1+CORR2
C
C   ELEVATION VERSCH BEIM EINBAU
      CORR3 = -0.183
      DO 4 I=1,11
    4   ELEV(I) = ELEV(I) - CORR3
C
      IF(.NOT.LPRINT) RETURN
      WRITE(6,100) (GESCHW(I),I=1,18)
  100 FORMAT(///' KANAELE FUER INSTRUMENT 3 * HOS1 *      '/
     *       ' GESCHWINDIGKEITSKANAELE :'/ 3(' ',10F12.4/))
      WRITE(6,101) ((AZIM(I,J),I=1,18),J=1,2)
  101 FORMAT(' AZIMUTH-KANAL OHNE SHIFT:'/ ' ',10F12.4/' ',8F12.4/
     *       ' AZIMUTH-KANAL MIT  SHIFT:'/ ' ',10F12.4/' ',8F12.4)
      WRITE(6,102) ELEV
  102 FORMAT(' ELEVATIONS-KANAL:'/' ',11F11.3)
C
C
      RETURN
      END
      SUBROUTINE IN1
C INITIALISIEREN DER BLOCKDATA
C
       COMMON /KANL1B/ VOLT(34,2)
C
      LOGICAL*4 LPRINT/.TRUE./
C
C  AUFBEREITEN DER KANALWERTE
C  VOLT -> KM/SEC
      EKONS= 412.50/SQRT(VOLT(14,1))
      DO 1 I=1,2
        DO 1 J=1,34
    1 VOLT(J,I) = EKONS*SQRT(VOLT(J,I))
C
      IF(.NOT.LPRINT) RETURN
      WRITE(6,100) ((VOLT(I,J),I=1,34),J=1,2)
  100 FORMAT(///' KANAELE  FUER INSTUMENT 1B * HOS1 *          '/
     *       ' GESCHWINDIGKEITSKANAELE OHNE SHIFT:'/ 3(' ',10F12.4/),
     *       ' ',4F12.4/' GESCHWINDIGKEITSKANAELE MIT  SHIFT:'/
     *       3(' ',10F12.4/),' ',4F12.4)
C
      RETURN
      END
C
      SUBROUTINE AZIM1
C   DUMMY SUBROUTINE FUER AZIMTH-VORHALTEWINKEL
C   NUR FUER HELIOS B
      RETURN
      END
C COMMON BLOECKE FUER DIE KANAELE VON HELIOS B
C                                     .........
C  DATA KONSTANTEN AUS ' TEST PROCEDURE ' GENOMMEN  :: 08.2.77
C
      BLOCK DATA
C KANAL-WERTE    > I1A <
       COMMON /KANAL/ VOLT(34,2),AZIMUT(18,2),ELEVAT(11)
C  VOLT( ,1),AZIM( ,1)  NS  BIT ISHI 0
C  VOLT( ,2),AZIM( ,2)  WS  BIT ISHI 1
      DATA VOLT / 0.191,0.220,0.254,0.293,0.339,0.392,0.450,0.524,
     *            0.606,0.699,0.808,0.933,1.080,1.248,1.437,1.674,
     *            1.937,2.240,2.589,2.992,3.467,4.006,4.613,5.373,
     *            6.219,7.209,8.335,9.628,11.156,12.888,14.840,17.280,
     *            19.997,23.141,
     *            0.191,0.220,0.254,0.293,0.339,0.392,0.450,0.524,
     *            0.606,0.699,0.808,0.933,1.080,1.248,1.437,1.674,
     *            1.937,2.240,2.589,2.992,3.467,4.006,4.613,5.373,
     *            6.219,7.209,8.335,9.628,11.156,12.888,14.840,17.280,
     *            19.997,23.141/
C  HOSB HAT SPINACHSE NACH UNTEN (ENTGEGEN HOSA)  VORZEI.VERTAU IN INIT
      DATA ELEVAT / +25.00, +20.83, +15.75, +10.64, +5.60,+0.56,-4.47,
     *              - 9.58, -14.64, -19.66, -25.00 /
C KANAL-WERTE    > I3  <
       COMMON /KANAL3/ GESCHW(18),AZIM(18,2),ELEV(11)
      DATA GESCHW  / 181.9, 198.9, 217.5, 238.0, 260.6, 285.2, 312.1,
     *               341.6, 373.8, 409.1,447.7, 489.8, 536.0, 586.6,
     *               641.9, 702.4, 768.6, 840.5 /
      DATA ELEV /+25.00, +20.845, +15.77, +10.74, +5.71, +0.692,
     *           -4.397, - 9.48, -14.54, -19.627,-25.00 /
C COMMON BLOECKE FUER HELIOS   -> I1B -<
       COMMON /KANL1B/ VOLT1B(34,2)
C  VOLT( ,1),AZIM( ,1)  NS  BIT ISHI 0
C  VOLT( ,2),AZIM( ,2)  WS  BIT ISHI 1
      DATA VOLT1B/ 0.191,0.220,0.256,0.295,0.341,0.397,0.455,0.530,
     *            0.612,0.703,0.817,0.943,1.092,1.266,1.455,1.693,
     *            1.957,2.254,2.621,3.022,3.500,4.060,4.668,5.430,
     *            6.277,7.246,8.427,9.716,11.254,13.054,15.007,17.456,
     *            20.176,23.319,
     *             0.191,0.220,0.256,0.295,0.341,0.397,0.455,0.530,
     *            0.612,0.703,0.817,0.943,1.092,1.266,1.455,1.693,
     *            1.957,2.254,2.621,3.022,3.500,4.060,4.668,5.430,
     *            6.277,7.246,8.427,9.716,11.254,13.054,15.007,17.456,
     *            20.176,23.319/
C
C
C   KONSTANTEN FUER DIE MOMENTE     :: VON HOS A BEIBEHALTEN
      COMMON /MOM/ PM,BK,DELEL1,DELAZ1,DELZ1,GMOA1,
     *                   DELEL3,DELAZ3,DELZ3,GMOA3,
     *                   DELELB,DELAZB,DELZB,GMOAB
      DATA PM,BK /1.67E-24,1.38E-16/
      DATA  DELEL1,DELAZ1,DELZ1,GMOA1/0.08727,0.09774,0.01,4.0E-7/
      DATA  DELEL3,DELAZ3,DELZ3,GMOA3/0.08727,0.09774,0.01,0.1628E-7/
      DATA  DELELB,DELAZB,DELZB,GMOAB/0.08727,0.09774,0.01,0.877E-7/
C   FUER I1B / I3 ANGELICHEN  I1B - 4.0E-7/5.53
C                             I3    4.0E-7/24.5
      END
c********************************************************************
c
            SUBROUTINE INITB
c
c*********************************************************************
C INITIALISIEREN DER BLOCKDATA
C
       COMMON /KANAL/ VOLT(34,2),AZIMUT(18,2),ELEVAT(11)
C
      LOGICAL*4 LPRINT/.TRUE./
C
C  AUFBEREITEN DER KANALWERTE   > I1A <
C  VOLT -> KM/SEC
      EKONS= 424.329/SQRT(VOLT(14,1))
      EKONS0 = 18.602/19.997
      DO 1 J=1,34
       VOLT(J,1) = EKONS*SQRT(VOLT(J,1))
    1  VOLT(J,2) = EKONS* SQRT( EKONS0*VOLT(J,2))
C
C  AZIMUTH-WINKEL
      DAZ = 3.52 + 2.1
      AZ0  = -(40.78+37.26)/2. - 2*DAZ
      DO 2 I=1,18
        AZIMUT(I,1) = AZ0+DAZ
        AZ0=AZIMUT(I,1)
    2   AZIMUT(I,2) = AZIMUT(I,1)-2.81
C   VERSCHIEBUNG DES SCHWERPUNKTES  (CORR1 = SCHWERPT.AUS EICHDATEN)
C                                   (CORR2 = VERSCH.BEIM EINBAU)
      CORR1 = 0.531
      CORR2 = -0.205
      DO 3 I=1,18
        AZIMUT(I,1) = AZIMUT(I,1)-CORR1+CORR2
        AZIMUT(I,2) = AZIMUT(I,2)-CORR1+CORR2
C   UMKEHR DER WINKEL
        AZIMUT(I,1) = -AZIMUT(I,1)
    3   AZIMUT(I,2) = -AZIMUT(I,2)
C
C   ELEVATIONS VERSCH BEIM EINBAU
      CORR3 = 0.0517
      DO 4 I=1,11
       ELEVAT(I) = ELEVAT(I) - CORR3
C   UMKEHR DER WINKEL
    4  ELEVAT(I) = -ELEVAT(I)
C
      IF(.NOT.LPRINT) RETURN
      WRITE(6,100) ((VOLT(I,J),I=1,34),J=1,2)
  100 FORMAT(///' HOS 2  KANAELE FUER INSTRUMENT 1A'/
     *       ' GESCHWINDIGKEITSKANAELE OHNE SHIFT:'/ 3(' ',10F12.4/),
     *       ' ',4F12.4/' GESCHWINDIGKEITSKANAELE MIT  SHIFT:'/
     *       3(' ',10F12.4/),' ',4F12.4)
      WRITE(6,101) ((AZIMUT(I,J),I=1,18 ),J=1,2)
  101 FORMAT(' AZIMUTH-KANAL OHNE SHIFT O V.:'/ ' ',10F12.3/' ',8F12.3/
     *       ' AZIMUTH-KANAL MIT  SHIFT O V.:'/ ' ',10F12.3/' ',8F12.3)
      WRITE(6,102) ELEVAT
  102 FORMAT(' ELEVATIONS-KANAL:'/' ',11F11.2)
C
C
      RETURN
      END
c***********************************************************************
c
         SUBROUTINE INB3
c
c**********************************************************************
C INITIALISIEREN DER BLOCKDATA      > I3 <
C
       COMMON /KANAL3/ GESCHW(18),AZIM(18,2),ELEV(11)
C
      LOGICAL*4 LPRINT/.TRUE./
C
C  VOLT -> KM/SEC   (MOMENT FUER KANAL 5  (INDEX 6))
      EKONS= 388.4067/(SQRT(2.)*GESCHW( 6))
        DO 1 I=1,18
    1 GESCHW(I) = EKONS*GESCHW(I)
C  AZIMUTH-WINKEL
      DAZ = 3.52 + 2.1
      AZ0  = -(40.78+37.26)/2. - 2*DAZ
      DO 2 I=1,18
        AZIM(I,1) = AZ0+DAZ
        AZ0=AZIM(I,1)
    2   AZIM(I,2) = AZIM(I,1)-2.81
C   VERSCHIEBUNG DES SCHWERPUNKTES  (CORR1 = NULLPT.VERSCH A EICHDATEN)
C                                   (CORR2 = VERSCH BEIM EINBAU)
      CORR1 = 0.5472
      CORR2 = -0.4167
      DO 3 I=1,18
        AZIM(I,1) = AZIM(I,1)-CORR1+CORR2
        AZIM(I,2) = AZIM(I,2)-CORR1+CORR2
C   UMKEHR DER VORZEICHEN
        AZIM(I,1) = -AZIM(I,1)
        AZIM(I,2) = -AZIM(I,2)
    3 CONTINUE
C
C   ELEVATOSVERSCHIEBUNG BEIM EINBAU
      CORR3 = 0.297
      DO 4 I=1,11
        ELEV(I) = ELEV(I) - CORR3
C   UMKEHR DER VORZEICHEN
        ELEV(I) = -ELEV(I)
    4 CONTINUE
C
C
      IF(.NOT.LPRINT) RETURN
      WRITE(6,100) (GESCHW(I),I=1,18)
  100 FORMAT(///' HOS 2  KANAELE FUER INSTRUMENT 3'/
     *       ' GESCHWINDIGKEITSKANAELE :'/ 3(' ',10F12.4/))
      WRITE(6,101) ((AZIM(I,J),I=1,18),J=1,2)
  101 FORMAT(' AZIMUTH-KANAL OHNE SHIFT O V.:'/ ' ',10F12.4/' ',8F12.4/
     *       ' AZIMUTH-KANAL MIT  SHIFT O V.:'/ ' ',10F12.4/' ',8F12.4)
      WRITE(6,102) ELEV
  102 FORMAT(' ELEVATIONS-KANAL:'/' ',11F11.3)
C
C
      RETURN
      END
      SUBROUTINE IN1BA
C INITIALISIEREN DER BLOCKDATA
C
       COMMON /KANL1B/ VOLT(34,2)
C
      LOGICAL*4 LPRINT/.TRUE./
C
C  AUFBEREITEN DER KANALWERTE
C  VOLT -> KM/SEC
C             418.0 GESETZT 19.4.77
      EKONS= 418.00/SQRT(VOLT(14,1))
      EKONS0 = 18.780/20.176
      DO 1 J=1,34
       VOLT(J,1) = EKONS*SQRT(VOLT(J,1))
    1  VOLT(J,2) = EKONS* SQRT(EKONS0*VOLT(J,2))
C
      IF(.NOT.LPRINT) RETURN
      WRITE(6,100) ((VOLT(I,J),I=1,34),J=1,2)
  100 FORMAT(///' HOS 2  KANAELE  FUER INSTUMENT 1B'/
     *       ' GESCHWINDIGKEITSKANAELE OHNE SHIFT:'/ 3(' ',10F12.4/),
     *       ' ',4F12.4/' GESCHWINDIGKEITSKANAELE MIT  SHIFT:'/
     *       3(' ',10F12.4/),' ',4F12.4)
C
      RETURN
      END
C
      SUBROUTINE AZIMA
C   SUBROUTINE FUER AZIMTH-VORHALTEWINKEL
C   NUR FUER HELIOS B
C
      Character*10 mSec,seq
      Integer Year, DOY,Helios,Mode,BitRate, Format, DisMod, shift, 
     &        AzShift,I1A3,I2AB
C
      COMMON /KANAL/ VOLT(34,2),AZIMUT(18,2),ELEVAT(11)
      COMMON /KANAL3/ GESCHW(18),AZIMM(18,2),ELEV(11)
      COMMON /MODES/ mSec,seq,Year,DOY,Helios,Mode,BitRate,
     &               Format,DisMod,shift,AzShift,I1A3,I2AB
C
C          AzShift  1 OHNE VORHALTEWINKEL
C                   0  MIT
C
      if ( AzShift .eq. 0) go to 10
C 
C OHNE VORHALTEWINKEL
C
C  AZIMUTH-WINKEL     >J1A<
      DAZ = 3.52 + 2.1
      AZ0  = -(40.78+37.26)/2. - 2*DAZ
      DO 2 I=1,18
        AZIMUT(I,1) = AZ0+DAZ
        AZ0=AZIMUT(I,1)
    2   AZIMUT(I,2) = AZIMUT(I,1)-2.81
C   VERSCHIEBUNG DES SCHWERPUNKTES
      CORR1 = 0.531
      CORR2 = -0.205
      DO 3 I=1,18
        AZIMUT(I,1) = AZIMUT(I,1)-CORR1+CORR2
        AZIMUT(I,2) = AZIMUT(I,2)-CORR1+CORR2
C   UMKEHR DER VORZEICHEN
        AZIMUT(I,1) = -AZIMUT(I,1)
        AZIMUT(I,2) = -AZIMUT(I,2)
    3 CONTINUE
C
C  AZIMUTH-WINKEL   >J3<
      DAZ = 3.52 + 2.1
      AZ0  = -(40.78+37.26)/2. - 2*DAZ
      DO 4 I=1,18
        AZIMM(I,1) = AZ0+DAZ
        AZ0=AZIMM(I,1)
    4   AZIMM(I,2) = AZIMM(I,1)-2.81
C   VERSCHIEBUNG DES SCHWERPUNKTES
      CORR3 = 0.5472
      CORR4 = -0.4167
      DO 5 I=1,18
        AZIMM(I,1) = AZIMM(I,1)-CORR3+CORR4
        AZIMM(I,2) = AZIMM(I,2)-CORR3+CORR4
C   UMKEHR DER VORZEICHEN
        AZIMM(I,1) = -AZIMM(I,1)
        AZIMM(I,2) = -AZIMM(I,2)
    5 CONTINUE
      WRITE(6,104) J1,J2,J3,J4
  104 FORMAT(' UMSCHALTUNG IN INITL.DATEN ERKANNT BEI :',4I4)
      WRITE(6,100) ((AZIMUT(I,J),I=1,18 ),J=1,2)
  100 FORMAT(' UMSCHALTUNG AUF : OHNE VORHALTEWINKEL: * I1A* '/
     *       ' AZIMUTH-KANAL OHNE SHIFT O V.:'/ ' ',10F12.3/' ',8F12.3/
     *       ' AZIMUTH-KANAL MIT  SHIFT O V.:'/ ' ',10F12.3/' ',8F12.3)
      WRITE(6,101) ((AZIMM(I,J),I=1,18 ),J=1,2)
  101 FORMAT(' UMSCHALTUNG AUF : OHNE VORHALTEWINKEL: * J3 *'/
     *       ' AZIMUTH-KANAL OHNE SHIFT O V.:'/ ' ',10F12.3/' ',8F12.3/
     *       ' AZIMUTH-KANAL MIT  SHIFT O V.:'/ ' ',10F12.3/' ',8F12.3)
C
      RETURN
C
   10 CONTINUE
C  MIT VORHALTEWINKEL
C
C  AZIMUTH-WINKEL     >J1A<
      DAZ = 3.52 + 2.1
      AZ0  = -(33.75+30.23)/2. - 2*DAZ
      DO 6 I=1,18
        AZIMUT(I,1) = AZ0+DAZ
        AZ0=AZIMUT(I,1)
    6   AZIMUT(I,2) = AZIMUT(I,1)-2.81
C   VERSCHIEBUNG DES SCHWERPUNKTES
      CORR1 = 0.531
      CORR2 = -0.205
      DO 7 I=1,18
        AZIMUT(I,1) = AZIMUT(I,1)-CORR1+CORR2
        AZIMUT(I,2) = AZIMUT(I,2)-CORR1+CORR2
C   UMKEHR DER VORZEICHEN
        AZIMUT(I,1) = -AZIMUT(I,1)
        AZIMUT(I,2) = -AZIMUT(I,2)
    7 CONTINUE
C
C  AZIMUTH-WINKEL   >J3<
      DAZ = 3.52 + 2.1
      AZ0  = -(33.75+30.23)/2. - 2*DAZ
      DO 8 I=1,18
        AZIMM(I,1) = AZ0+DAZ
        AZ0=AZIMM(I,1)
    8   AZIMM(I,2) = AZIMM(I,1)-2.81
C   VERSCHIEBUNG DES SCHWERPUNKTES
      CORR3 = 0.5472
      CORR4 = -0.4167
      DO 9 I=1,18
        AZIMM(I,1) = AZIMM(I,1)-CORR3+CORR4
        AZIMM(I,2) = AZIMM(I,2)-CORR3+CORR4
C   UMKEHR DER VORZEICHEN
        AZIMM(I,1) = -AZIMM(I,1)
        AZIMM(I,2) = -AZIMM(I,2)
    9 CONTINUE
      WRITE(6,104) J1,J2,J3,J4
      WRITE(6,102) ((AZIMUT(I,J),I=1,18 ),J=1,2)
  102 FORMAT(' UMSCHALTUNG AUF AZIM MIT VORHALTEWINKEL ::  *I1A*'/
     *       ' AZIMUTH-KANAL OHNE SHIFT M V.:'/ ' ',10F12.3/' ',8F12.3/
     *       ' AZIMUTH-KANAL MIT  SHIFT M V.:'/ ' ',10F12.3/' ',8F12.3)
        WRITE(6,103) ((AZIMM(I,J),I=1,18),J=1,2)
  103 FORMAT(' UMSCHALTUNG AUF AZIM MIT VORHALTEWINKEL ::  *I3* '/
     *       ' AZIMUTH-KANAL OHNE SHIFT M V.:'/ ' ',10F12.3/' ',8F12.3/
     *       ' AZIMUTH-KANAL MIT  SHIFT M V.:'/ ' ',10F12.3/' ',8F12.3)
C
      RETURN
C
      END
