!!****if* source/pathToUnits/MyUnit/MyUnitMain/Impl1/mu_localFoo !! !! NAME !! mu_localFoo !! !! SYNOPSIS !! mu_localFoo(integer(in) :: argument) !! !! DESCRIPTION !! !! Put the description of this implementation of mu_localFoo here. !! !! !! ARGUMENTS !! !! argument - explain argument !! !! NOTES !! !! This is the local function needed only by one of the public !! functions specific to Impl1. For all practical purposes !!, its implementation is similar to the public functions like !! MyUnit_foo2.F90. However, unlike the public functions, it !! need not have an implementation in other incarnations of MyUnit. !! The "mu_" in this case stands for MyUnit abbreviated. We use !! a short cut of the unit name for internal routines !! !!*** subroutine mu_localFoo(argument) use MyUnit_data, ONLY : mu_var2, mu_var4 integer,intent(IN) :: argument !!calculate return end subroutine mu_localFoo