%N codewrite %F $MIR/src/subs/mir_io.c
%D Write the code index for a MIR data set
%P dnf
%: low-level-i/o
%B
FORTRAN call sequence
       subroutine codeWrite(v_name,icode,code,ncode)

       character v_name*(*),code*(*)
       integer icode,ncode

  This writes an entry into a MIR code index

  Input:
    v_name   label of code
    icode    index # for code
    code     code value
    ncode    length of code value (# characters)                        
