ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/UseTheForce/DarkSide/switcheroo_interface.F90
(Generate patch)

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/switcheroo_interface.F90 (file contents):
Revision 2721 by chrisfen, Fri Nov 11 17:21:44 2005 UTC vs.
Revision 2722 by gezelter, Thu Apr 20 18:24:24 2006 UTC

# Line 1 | Line 1
1   subroutine setFunctionType(the_FT)
2 <  use switcheroo, ONLY : module_setFT => set_function_type
2 >  use switcheroo, ONLY : module_setFT => set_switch_type
3    integer,intent(inout) :: the_FT
4    call module_setFT(the_FT)
5   end subroutine setFunctionType
6  
7 + subroutine deleteSwitch()
8 +  use switcheroo, ONLY : module_delete_switch => delete_switch
9 +  call module_delete_switch()
10 + end subroutine deleteSwitch
11 +

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines