        subroutine idd_frm(m,n,w,x,y)
        integer m,n,w,x,y,lw
        call prinf('lw = *',lw,1)
        call prinf('16m+70 = *',16*m+70,1)
        return
        end
