%N inwrite %F $MIR/src/subs/mir_io.c
%D Write the integration header for a MIR data set
%P dnf
%: low-level-i/o
%B
FORTRAN call sequence
       subroutine inWrite(conid,icocd,traid,inhid,ints,itq,az,el,ha,
                          iut,ireftime,dhrs,vc,ivctype,sx,sy,sz,rinteg,
                          proid,souid,isource,ipos,offx,offy,iofftype,
                          ira,idec,rar,decr,epoch,sflux,size)
       integer conid,icocd,traid,inhid,ints,itq,iut,ireftime,ivctype
               proid, souid,isource,ipos,iofftype,ira,idec
       real az,el,ha,vc,rinteg,offx,offy,epoch,sflux,size
       double precision dhrs,sx,sy,sz,rar,decr

  This writes an entry into a MIR integration header

  Input:
    conid    configuration id number
    icocd    configuration code number
    traid    track id
    inhid    integration id (globally unique number)
    int      integration number
    itq      tuning code
    az       average antenna azimuth (degrees)
    el       average antenna elevation (degrees)
    ha       hour angle
    iut      ut code
    ireftime reference time code
    dhrs     hours from reference time (hrs)
    vc       velocity offset
    ivctype  type of offset
    sx       directional cosine to source
    sy       directional cosine to source
    sz       directional cosine to source
    rinteg   integration time
    proid    projeci id
    souid    source id
    isource  source code
    ipos     position code
    offx     offset in x (dra)
    offy     offset in y (ddec)
    iofftype offset type 'eq' for MIRIAD data
    ira      ra code
    idec     dec code
    rar      ra (radians)
    decr     dec (radians)
    epoch    epoch of coordinates
    sflux    flux of planet (if applicable)
    size     size of planet (if applicable)                             
