UseTheForce/DarkSide/switcheroo_interface.F90

subroutine setFunctionType(the_FT)
  use switcheroo, ONLY : module_setFT => set_function_type
  integer,intent(inout) :: the_FT
  call module_setFT(the_FT)
end subroutine setFunctionType

Revision:	727
Committed:	Fri Nov 11 17:21:44 2005 UTC (19 years, 6 months ago) by chrisfen
File size:	188 byte(s)
Log Message:	Forgot to add some files
#	User	Rev	Content
1	chrisfen	727	subroutine setFunctionType(the_FT)
2			use switcheroo, ONLY : module_setFT => set_function_type
3			integer,intent(inout) :: the_FT
4			call module_setFT(the_FT)
5			end subroutine setFunctionType
6