module damper1d(n1,n2);
 inout n1,n2;
 kinematic n1,n2;

 parameter real d = 1000 from (0:inf); // friction coefficient in n*s/m

 analog
   F(n1,n2) <+ d*ddt(Pos(n1,n2));

endmodule