choose_integrator Subroutine

  1. module_all_integrators.f90
  2. all_integrators
  3. choose_integrator

public subroutine choose_integrator()

Uses

  • proc~~choose_integrator~~UsesGraph proc~choose_integrator choose_integrator module~parameters parameters proc~choose_integrator->module~parameters module~kinds kinds module~parameters->module~kinds

Routine that chooses an integrator by pointing to one of the available ones.

Arguments

None

Called by

proc~~choose_integrator~~CalledByGraph proc~choose_integrator choose_integrator program~test test program~test->proc~choose_integrator

Contents

Source Code

choose_integrator

Source Code

    subroutine choose_integrator ( )
    !! Routine that chooses an integrator by pointing to one of the
    !! available ones.

      use parameters, only : mol_integrator

      implicit none

      select case ( mol_integrator )
      case ( 'rk4' )
        mol_int => rk4_int
      case ( 'rk5' )
        mol_int => rk5_int
      case ( 'abmv5' )
        mol_int => abmv5_int
      case default
        print*,'Invalid integrator requested'
        stop
      end select

    end subroutine choose_integrator