tem_load_miescatter Subroutine

private subroutine tem_load_miescatter(conf, thandle, me)

load gauss pulse variables to set initial condition

Arguments

Type IntentOptional Attributes Name
type(flu_State) :: conf

lua state type
integer, intent(in) :: thandle

aotus parent handle
type(tem_miescatter_field_type), intent(out) :: me

Global gauss pulse data type

Calls

proc~~tem_load_miescatter~2~~CallsGraph proc~tem_load_miescatter~2 tem_load_miescatter proc~tem_abort tem_abort proc~tem_load_miescatter~2->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~tem_load_miescatter~2~~CalledByGraph proc~tem_load_miescatter~2 tem_load_miescatter interface~tem_load_miescatter_displacementfieldz~2 tem_load_miescatter_displacementfieldz interface~tem_load_miescatter_displacementfieldz~2->proc~tem_load_miescatter~2 interface~tem_load_miescatter_magneticfieldx~2 tem_load_miescatter_magneticfieldx interface~tem_load_miescatter_magneticfieldx~2->proc~tem_load_miescatter~2 interface~tem_load_miescatter_magneticfieldy~2 tem_load_miescatter_magneticfieldy interface~tem_load_miescatter_magneticfieldy~2->proc~tem_load_miescatter~2

Source Code

  subroutine tem_load_miescatter(conf, thandle, me)
    ! ---------------------------------------------------------------------------
    !> lua state type
    type(flu_State) :: conf
    !> aotus parent handle
    integer, intent(in) :: thandle
    !> Global gauss pulse data type
    type(tem_miescatter_field_type), intent(out) :: me
    ! ---------------------------------------------------------------------------

    write(logUnit(0),*)'ERROR: the Mie-Scatter function is not available in '//&
      &                'this'
    write(logUnit(0),*)'       executable, due to the compiler lacking '//     &
      &                'support of'
    write(logUnit(0),*)'       Bessel functions!'
    call tem_abort()

  end subroutine tem_load_miescatter