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:	2426
Committed:	Fri Nov 11 17:21:44 2005 UTC (18 years, 8 months ago) by chrisfen
File size:	188 byte(s)
Log Message:	Forgot to add some files
#	Content
1	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