%N addhist %F $MIR/src/subs/calsetio.for
%D Add history to a dataset
%: history, i/o
%P pjt
%B
        SUBROUTINE addhist( file , progname, message)

        CHARACTER  file*(*), progname*(*), message*(*)

       input:
           file        filename of the dataset
           progname    program name which does the work
           message     message to be added (appended) to history
