C C DEFAULT TAPE UNIT AND SIZE. C PARAMETER DFTAPE=2HMM,DFUNIT=0 C