forca-magnetica.f90

!gfortran, gcc version 5.4.0 20160609

program forca_magnetica

real :: B = 1.2 ! [mT]
real :: K = 5.3 ! [MeV]
real :: m = 1.6726219 * 1e-27 !1e-27 ! [Kg]
real :: q = 1.60217662 * 1e-19 ! [C]
real :: v = 0.0

! Transforma B [mT] -> [T]
B = B * 1e-3

! Transforma K [MeV] -> [J]
K = K * 1e6 * 1.60 * 1e-19 

! Cálculo da Velocidade
v = ( 2.0 * K / m )**0.5

! Cálculo da Força Magnética
F = q * v * B

! Saída de dados - apresentação dos resultados
print *,'****  Sem formatar  ****'
print *,"v: ",v
print *,"F: ",F
print*,
print *,'**** Com formatação ****'
print 100,"Velocidade (V)      : ",v, "[m/s]"
print 100,"Força magnética (Fb): ",F, "[N]"

100 format(a,es15.2,1x,a)
  
end program forca_magnetica

Resultado após compilar e executar o código:

cabox@box-codeanywhere:~/workspace$ ./fmagnetica
 ****  Sem formatar  ****
 v:    31843004.0
 F:    6.12217457E-15

 **** Com formatação ****
Velocidade (V)      :        3.18E+07 [m/s]
Força magnética (Fb):        6.12E-15 [N]
cabox@box-codeanywhere:~/workspace$