program derived_data_types
! .. Implicit None Statement ..
  implicit none

! .. Derived Type Declarations ..
  type :: particle
    character (10) :: name
    real :: mass ! MeV
    integer :: charge
  end type particle

! .. Local Scalars ..
  type (particle) :: electron, muon

! .. Executable Statements ..
  electron%name = 'Electron'
  electron%mass = 0.511 
  electron%charge = -1
  muon%name = 'Muon'
  muon%mass = 105.7
  muon%charge = -1
  print *, electron%name, electron%charge, electron%mass
  print *, muon%name, muon%charge, muon%mass
end program derived_data_types