* Last processed by NICE on 12-Jun-2000 15:53:00
* Customized for :  IEEE, LINUX, UNIX, MOTIF, F77
C     $Header: /scisoft/gildas/sou/nic/main/nmb.inc,v 1.13 2000/02/10 11:28:31 broguier Exp $
*
*
c****************************************************************************
c
c File: nmb.inc
c
c Function: Include file equivalent to nmb.h
c
c           Structure are replaced by array because of portability problems
c
c
c****************************************************************************
*
*
c	structure /DATE/
c	     integer*4  Year
c	     integer*4 Month
c	     integer*4  Day
c        end structure
*
*
c	structure /subscans/
c	     integer*4 Number
c	     real*4 Epoch
c	     real*4 Time
cc	     struct subscans *next
c        end structure
*
c	structure /CoorSys/
c	     real*4 S
c	     real*4 O
c	     real*4 V
c	     integer*4   Star
c        end structure
*
c	structure /CoorSysSec/
c	     real*4 X
c	     real*4 Y
c	     real*4 Z
c        end structure
*
*
c	structure /head/
c	  union
c	   map
c	    character*80	PreHeader(20)
c	    integer*4           ScanNumber
c	    character*40        SourceName
c	    real*4              Frequency
c	    integer*4           Gain
c	    integer*4           Magnet
c	    integer*4           Channels
c	    integer*4           Phases
c	    record /CoorSys/    Lambda
c	    record /CoorSys/    Beta
c	    record /CoorSys/    Azimuth
c	    record /CoorSys/    Elevation
c	    record /CoorSysSec/ SFC
c	    record /CoorSysSec/ SPH
c	    real*4              sint
c	    integer*4           sbas
c	    real*4              Epoch
c	    real*4              DAZM
c	    integer*4           SRP(4)
c	    integer*4           SDC
c	    real*4              Pressure
c	    real*4              Temperature
c	    real*4              Humidity
c	    real*4              Refraction
c	    real*4              NULA
c	    real*4              NULE
c	    integer*4           ColStar
c	    record /DATE/       Date
c	    integer*4           WobblingDevice
c	    real*4              WobblingAmpli
c	    real*4              WobblingPeriod
c	    integer*4           WobblingMode
c	   end map
c	   map
c            integer*4  dat(500)
c	   end map
c	  end union
c	end structure
*
*
C --- Definition of an array to represent the header structure
*
      INTEGER         HEADER_STRUCT(500)
*
      CHARACTER*80 HEADER_PREHEADER(20)
      INTEGER         HEADER_SCANNUMBER
      CHARACTER*40    HEADER_SOURCENAME
      REAL*4          HEADER_FREQUENCY
      INTEGER         HEADER_GAIN
      INTEGER         HEADER_MAGNET
      INTEGER         HEADER_CHANNELS
      INTEGER         HEADER_PHASES
      REAL*4          HEADER_LAMBDA(4)
      REAL*4          HEADER_BETA(4)
      REAL*4          HEADER_AZIMUTH(4)
      REAL*4          HEADER_ELEVATION(4)
      REAL*4          HEADER_SFC(3)
      REAL*4          HEADER_SPH(3)
      REAL*4          HEADER_SINT
      INTEGER         HEADER_SBAS
      REAL*4          HEADER_EPOCH
      REAL*4          HEADER_DAZM
      INTEGER         HEADER_SRP(4)
      INTEGER         HEADER_SDC
      REAL*4          HEADER_PRESSURE
      REAL*4          HEADER_TEMPERATURE
      REAL*4          HEADER_HUMIDITY
      REAL*4          HEADER_REFRACTION
      REAL*4          HEADER_NULA
      REAL*4          HEADER_NULE
      REAL*4          HEADER_COLSTAR
      INTEGER         HEADER_DATE(3)
      INTEGER         HEADER_WOBBLINGDEVICE
      REAL*4          HEADER_WOBBLINGAMPLI
      REAL*4          HEADER_WOBBLINGPERIOD
      INTEGER*4       HEADER_WOBBLINGMODE
*
      EQUIVALENCE(HEADER_STRUCT(1)  , HEADER_PREHEADER(1))
      EQUIVALENCE(HEADER_STRUCT(401), HEADER_SCANNUMBER)
      EQUIVALENCE(HEADER_STRUCT(402), HEADER_SOURCENAME)
      EQUIVALENCE(HEADER_STRUCT(412), HEADER_FREQUENCY)
      EQUIVALENCE(HEADER_STRUCT(413), HEADER_GAIN)
      EQUIVALENCE(HEADER_STRUCT(414), HEADER_MAGNET)
      EQUIVALENCE(HEADER_STRUCT(415), HEADER_CHANNELS)
      EQUIVALENCE(HEADER_STRUCT(416), HEADER_PHASES)
      EQUIVALENCE(HEADER_STRUCT(417), HEADER_LAMBDA(1))
      EQUIVALENCE(HEADER_STRUCT(421), HEADER_BETA(1))
      EQUIVALENCE(HEADER_STRUCT(425), HEADER_AZIMUTH(1))
      EQUIVALENCE(HEADER_STRUCT(429), HEADER_ELEVATION(1))
      EQUIVALENCE(HEADER_STRUCT(433), HEADER_SFC(1))
      EQUIVALENCE(HEADER_STRUCT(436), HEADER_SPH(1))
      EQUIVALENCE(HEADER_STRUCT(439), HEADER_SINT)
      EQUIVALENCE(HEADER_STRUCT(440), HEADER_SBAS)
      EQUIVALENCE(HEADER_STRUCT(441), HEADER_EPOCH)
      EQUIVALENCE(HEADER_STRUCT(442), HEADER_DAZM)
      EQUIVALENCE(HEADER_STRUCT(443), HEADER_SRP(1))
      EQUIVALENCE(HEADER_STRUCT(447), HEADER_SDC)
      EQUIVALENCE(HEADER_STRUCT(448), HEADER_PRESSURE)
      EQUIVALENCE(HEADER_STRUCT(449), HEADER_TEMPERATURE)
      EQUIVALENCE(HEADER_STRUCT(450), HEADER_HUMIDITY)
      EQUIVALENCE(HEADER_STRUCT(451), HEADER_REFRACTION)
      EQUIVALENCE(HEADER_STRUCT(452), HEADER_NULA)
      EQUIVALENCE(HEADER_STRUCT(453), HEADER_NULE)
      EQUIVALENCE(HEADER_STRUCT(454), HEADER_COLSTAR)
      EQUIVALENCE(HEADER_STRUCT(455), HEADER_DATE(1))
      EQUIVALENCE(HEADER_STRUCT(458), HEADER_WOBBLINGDEVICE)
      EQUIVALENCE(HEADER_STRUCT(459), HEADER_WOBBLINGAMPLI)
      EQUIVALENCE(HEADER_STRUCT(460), HEADER_WOBBLINGPERIOD)
      EQUIVALENCE(HEADER_STRUCT(461), HEADER_WOBBLINGMODE)
      COMMON /HEADER_NMB/ HEADER_STRUCT
      SAVE   /HEADER_NMB/
*
*
*
*
*
c	structure /nmbdata/
c	       real*4 LST
c	       real*4 Azimuth
c	       real*4 Elevation
c	       real*4 Data(7)
cc	       real*4 REST(13)    ! for gcc this line is a waste of memory
c	end structure
*
*