ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
View Changeset
|
Root Listing
root
/
group
/
trunk
/
OOPSE-4
/
src
/
UseTheForce
/
DarkSide
/
switcheroo_interface.F90
Revision:
2426
Committed:
Fri Nov 11 17:21:44 2005 UTC
(18 years, 9 months ago) by
chrisfen
File size:
188 byte(s)
Log Message:
Forgot to add some files
File Contents
#
User
Rev
Content
1
chrisfen
2426
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