open(unit=10,file=’momen_lintang.txt’,status=’unknown’)
Va = 1
P = 2
do i=1,101
x = real(i-1)
if(x.le.50)then
Dmx = Va*x
Ddx = Va
write(*,100)x,Dmx,Ddx
write(10,100)x,Dmx,Ddx
100 format(3(2x,F10.4))
end if
if(x.ge.50)then
Dmx = Va*x – P*(x-50)
Ddx = Va – P
write(*,100)x,Dmx,Ddx
write(10,100)x,Dmx,Ddx
end if
end do
stop
end