!!****if* source/pathToUnits/MyUnit/MyUnitMain/Impl1/MyUnit !! !! NAME !! MyUnit !! !! SYNOPSIS !! MyUnit(integer(in) :: exampleDummyArg, !! real(out) :: anotherDummyArg) !! !! DESCRIPTION !! !! Put the description of this implementation of MyUnit here. !! !! !! ARGUMENTS !! !! exampleDummyArg - explain argument !! anotherDummyArg - explain argument !! !! NOTES !! !! This file contains one implementation of the main driver of MyUnit. !! The other implementation can be found in file !! "MyUnit/MyUnitMain/Impl2/MyUnit.F90". !!*** subroutine MyUnit(exampleDummyArg, anotherDummyArg) !list of data items from MyUnit_data, whatever is needed use MyUnit_data, ONLY : mu_var1,mu_var4 integer, intent(in) :: exampleDummyArg real, intent(out) :: anotherDummyArg !calculate return end subroutine MyUnit