Remove line in dynk_setvalue() which makes is impossible to write(*,*) from dynk_computeFUN().