TheWrapperFactoryList_Init Subroutine

  1. WrapperFactoryListSingleton.f90
  2. WrapperFactoryListSingleton
  3. TheWrapperFactoryList_Init

public subroutine TheWrapperFactoryList_Init()

Set the dimensions of the Value contained in the wrapper

Arguments

None

Called By

proc~~thewrapperfactorylist_init~~CalledByGraph proc~thewrapperfactorylist_init TheWrapperFactoryList_Init program~wrapperfactorylist_i4p_test WrapperFactoryList_I4P_Test program~wrapperfactorylist_i4p_test->proc~thewrapperfactorylist_init program~wrapperfactorylist_test WrapperFactoryList_Test program~wrapperfactorylist_test->proc~thewrapperfactorylist_init program~wrapperthewrapperfactorylist_test WrapperTheWrapperFactoryList_Test program~wrapperthewrapperfactorylist_test->proc~thewrapperfactorylist_init program~wrapperfactorylist_r8p_test WrapperFactoryList_R8P_Test program~wrapperfactorylist_r8p_test->proc~thewrapperfactorylist_init program~wrapperfactorylist_r4p_test WrapperFactoryList_R4P_Test program~wrapperfactorylist_r4p_test->proc~thewrapperfactorylist_init program~wrapperfactorylist_i8p_test WrapperFactoryList_I8P_Test program~wrapperfactorylist_i8p_test->proc~thewrapperfactorylist_init program~wrapperfactorylist_i1p_test WrapperFactoryList_I1P_Test program~wrapperfactorylist_i1p_test->proc~thewrapperfactorylist_init program~wrapperfactorylist_i2p_test WrapperFactoryList_I2P_Test program~wrapperfactorylist_i2p_test->proc~thewrapperfactorylist_init proc~fpl_init FPL_Init proc~fpl_init->proc~thewrapperfactorylist_init program~parameterlistentrycontainer_test~5 ParameterListEntryContainer_Test program~parameterlistentrycontainer_test~5->proc~fpl_init program~main main program~main->proc~fpl_init program~parameterlistentrycontainer_test~7 ParameterListEntryContainer_Test program~parameterlistentrycontainer_test~7->proc~fpl_init program~parameterlistentrycontainer_test~6 ParameterListEntryContainer_Test program~parameterlistentrycontainer_test~6->proc~fpl_init program~parameterlistentrycontainer_test~2 ParameterListEntryContainer_Test program~parameterlistentrycontainer_test~2->proc~fpl_init program~parameterlistentrycontainer_test ParameterListEntryContainer_Test program~parameterlistentrycontainer_test->proc~fpl_init program~fortranparameterlist_example FortranParameterList_Example program~fortranparameterlist_example->proc~fpl_init program~parameterlistentrycontainer_test~3 ParameterListEntryContainer_Test program~parameterlistentrycontainer_test~3->proc~fpl_init program~parameterlistentrycontainer_test~4 ParameterListEntryContainer_Test program~parameterlistentrycontainer_test~4->proc~fpl_init program~parameterlistentrycontainer_test~8 ParameterListEntryContainer_Test program~parameterlistentrycontainer_test~8->proc~fpl_init program~parameterlistentrycontainer_test~10 ParameterListEntryContainer_Test program~parameterlistentrycontainer_test~10->proc~fpl_init program~parameterlistentrycontainer_test~9 ParameterListEntryContainer_Test program~parameterlistentrycontainer_test~9->proc~fpl_init
Help

Source Code

TheWrapperFactoryList_Init

Source Code

    subroutine TheWrapperFactoryList_Init()
    !-----------------------------------------------------------------
    !< Set the dimensions of the Value contained in the wrapper
    !-----------------------------------------------------------------
        ! Add some Wrapper Factories to the list
        call TheWrapperFactoryList%AddWrapperFactory(key='I1P',  WrapperFactory=WrapperFactoryI1P)
        call TheWrapperFactoryList%AddWrapperFactory(key='I2P',  WrapperFactory=WrapperFactoryI2P)
        call TheWrapperFactoryList%AddWrapperFactory(key='I4P',  WrapperFactory=WrapperFactoryI4P)
        call TheWrapperFactoryList%AddWrapperFactory(key='I8P',  WrapperFactory=WrapperFactoryI8P)
        call TheWrapperFactoryList%AddWrapperFactory(key='R4P',  WrapperFactory=WrapperFactoryR4P)
        call TheWrapperFactoryList%AddWrapperFactory(key='R8P',  WrapperFactory=WrapperFactoryR8P)
        call TheWrapperFactoryList%AddWrapperFactory(key='L',    WrapperFactory=WrapperFactoryL)
        call TheWrapperFactoryList%AddWrapperFactory(key='DLCA', WrapperFactory=WrapperFactoryDLCA)
    end subroutine TheWrapperFactoryList_Init

All Procedures