!!****f* source/pathToUnits/MyUnit/MyUnitMain/Impl1/MyUnit_init !! !! NAME !! MyUnit_init !! !! SYNOPSIS !! MyUnit_init(integer(in) :: exampleDummyArg) !! !! DESCRIPTION !! !! Put the description of the MyUnit_init here. !! !! !! ARGUMENTS !! !! exampleDummyArg - explain argument !! !! NOTES !! !! This file contains implementation of the initialization function !! of MyUnit specific to Impl1. !! !!*** subroutine MyUnit_init(exampleDummyArg) use MyUnit_data use RuntimeParameters_interface, ONLY : RuntimeParameters_get #include "Flash.h" #include "constants.h" use MyUnit_data !! This is the only function where we don't use !! the keywork only because all data in the !! data module must be initialized and it would be really tedious implicit none integer, intent(in) :: exampleDummyArg call RuntimeParameters_get("muVar", mu_var1) !! Any other initialization that may be needed return end subroutine MyUnit_init