!!****if* source/pathToUnits/MyUnit/MyUnitMain/MyUnit_foo1 !! !! NAME !! MyUnit_foo1 !! !! SYNOPSIS !! MyUnit_foo1(integer(in) :: exampleDummyArg, !! real(out) :: anotherDummyArg) !! !! DESCRIPTION !! !! Put the description of this implementation of MyUnit_foo1 here. !! !! !! ARGUMENTS !! !! exampleDummyArg - explain argument !! anotherDummyArg - explain argument !! !! NOTES !! !! This file contains the implementation of the subroutine !! MyUnit_foo1. Any runtime parameters that MyUnit_foo1 !! needs to use are stored in MyUnit_data. They are !! accessible to MyUnit_foo1 through the !! "use MyUnit_data, ONLY : " !! !!*** subroutine MyUnit_foo1 (exampleDummyArg, anotherDummyArg) use MyUnit_data, ONLY : mu_var1, mu_var2, mu_var3 ! list of data items stored in file ! MyUnit_data.F90, and used in this ! function integer, intent(in) :: exampleDummyArg real, intent(out) :: anotherDummyArg !do the calculation. return end subroutine MyUnit_foo1