program nslm
real,dimension(11,2)::values
real,dimension(11)::t,a,f
integer::i

open(unit=1,file="acceleration.txt",status="old",  action="read")

do i=1,11
   read(unit=1,fmt=*)values(i,1:2)
end do

do i=1,11
t(i)=values(i,1)
a(i)=values(i,2)
f(i)=a(i)*15
end do

open(unit=2,file="force.txt",status="replace",action="write")
do i=1,11
  write(unit=2,fmt=*)t(i),f(i)
enddo 
end program nslm