!!****f* source/pathToUnits/MyUnit/MyUnitSubUnit/MyUnit_foo2
!!
!! NAME
!!  MyUnit_foo2
!!
!! SYNOPSIS
!!  MyUnit_foo2(integer(in) :: exampleDummyArg,
!!              real(:),pointer :: examplePointerArg)
!!
!! DESCRIPTION
!!
!!  Put the description of the MyUnit_foo2 here.
!!  
!!
!! ARGUMENTS
!!
!!  exampleDummyArg - explain argument
!!  examplePointerArg - explain argument
!!
!! NOTES 
!!
!! This file contains the implementation of the function
!! MyUnit_foo2 specific to Impl1, Any routine calling this function
!! must include the MyUnit_interface.h file.
!!***

subroutine MyUnit_foo2 (exampleDummyArg, examplePointerArg)
  !list of data items stored in file MyUnit_data.F90, 
  !and used in this subroutine
 
  use MyUnit_data, ONLY : idens, itemp, ivelx 
                               
  integer, intent(in) :: exampleDummyArg
  real,dimension(:),pointer :: examplePointerArg              

  !do the calculation.
  return
end subroutine MyUnit_foo2