Routine to calculate the support structural masses for the core of an Inertial Fusion Energy power plant author: P J Knight, CCFE, Culham Science Centre This routine calculates the support structural masses for the core of an Inertial Fusion Energy power plant.
In fact, the output masses are all trivially zero, as they are magnetic fusion specific. F/MI/PJK/LOGBOOK12, p.87
subroutine ifestr
!! Routine to calculate the support structural masses for the core of
!! an Inertial Fusion Energy power plant
!! author: P J Knight, CCFE, Culham Science Centre
!! This routine calculates the support structural masses for the core of
!! an Inertial Fusion Energy power plant.
!! <P>In fact, the output masses are all trivially zero, as they are
!! magnetic fusion specific. F/MI/PJK/LOGBOOK12, p.87
!!
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
use structure_variables, only: aintmass, clgsmass, coldmass, fncmass, gsmass
implicit none
! Set all outputs to zero, as they are magnetic fusion specific
aintmass = 0.0D0
clgsmass = 0.0D0
coldmass = 0.0D0
fncmass = 0.0D0
gsmass = 0.0D0
end subroutine ifestr