ifetgt Subroutine

  subroutine ifetgt()
    !! Routine to calculate the power requirements of the target
    !! delivery system and the target factory
    !! author: P J Knight, CCFE, Culham Science Centre
    !! This routine calculates the power requirements of the target
    !! delivery system and the target factory, for an Inertial
    !! Fusion Energy power plant.
    !! F/MI/PJK/LOGBOOK12, pp.87-88
    !!
    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    use ife_variables, only: tfacmw, ptargf, reprat

    implicit none

    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    !  Target delivery system power (MWe) - effectively negligible

    !  tdspmw = 1.0D-2

    !  Target factory power (MWe)
    !  Assumed to scale with repetition rate (not quite linearly)
    tfacmw = ptargf * (reprat/6.0D0)**0.7D0

  end subroutine ifetgt