<\/p>\n
program read_statement
\nimplicit none
\nreal momentum, mass, velocity<\/p>\n
!————————————————————————
\n! request for input values from user
\n!————————————————————————
\nprint*, “Provide a value for mass (in units of kilogram)”
\nread*, mass<\/p>\n
print*
\nprint*, “What is the velocity of the object (in meter per second)?”
\nread*, velocity<\/p>\n
!————————————————————————
\n! calculate linear momentum
\n!————————————————————————
\nmomentum = mass * velocity<\/p>\n
print*,
\nprint 101, “The momentum of the object is”, momentum, “kg m\/s”
\n101 format(a,1x,f6.3,1x,a)
\nprint*<\/p>\n
end program<\/p>\n","protected":false},"excerpt":{"rendered":"
program read_statement implicit none real momentum, mass, velocity !———————————————————————— ! request for input values from user !———————————————————————— print*, “Provide a value for mass (in units of kilogram)” read*, mass print* print*, “What is the velocity of the object (in meter per second)?” read*, velocity !———————————————————————— ! calculate linear momentum !———————————————————————— momentum = mass * … <\/p>\n