! Gemeinsame Definitionen fuer die Korrekturgeschichten
! (loadcor.f und applycor.f)

      integer*4 prounit,flgsz !siehe unten
      integer*2 korsz

      parameter (prounit=1001) !unit, in die das Protokoll geschrieben wird
      parameter (korsz=2000) ! Maximale Zahl von Korrekturen
      parameter (flgsz=6300000)
!flgsz ist die Groesse des Flagfeldes, eines Feldes, mit dessen Hilfe
!schnell festgestellt werden kann, ob eine Korrektur fuer den betreffenden
!Stern vorliegt oder nicht. Mit dem gegebenen Parameter lassen
!sich alle fuenfstelligen Katalognummern verarbeiten.

      type t_cor ! beschreibt eine Korrektur (vgl. docs/korrektur.doc)
       sequence
       real*8    realval ! Neuer Wert fuer XSTAR
       integer*4 catcn   ! Katalognummer
       integer*2 dest    ! nii, wo n=1..7, ii Feldindex
       integer*2 app     ! appendix
       integer*4 intval  ! Neuer Wert fuer ISTAR und KENNX
       character*8 bem   ! Erste acht Zeichen einer evtl. Bemerkung
      end type

      type t_cordata ! Korrekturen fuer Katalog
       sequence
       type (t_cor)  cors(korsz) !Feld fuer Korrekturen
       integer*2 korflags(flgsz) ! bitfeld, in dem fuer jeden zu korrigierenden
			    ! Stern das Bit catcn gesetzt ist
       integer*2 nokor ! Gesamtzahl der Korrekturen
       integer*2 hasapp !1, wenn Appendices zu beruecksichtigen, 0 sonst
      end type