47 |
|
!! PURPOSE: |
48 |
|
!! |
49 |
|
!! @author Charles F. Vardeman II |
50 |
< |
!! @version $Id: fForceOptions_interface.F90,v 1.1 2005-12-07 19:38:03 chuckv Exp $ |
50 |
> |
!! @version $Id: fForceOptions_interface.F90,v 1.2 2005-12-29 16:03:11 chuckv Exp $ |
51 |
|
|
52 |
|
|
53 |
|
|
54 |
|
|
55 |
< |
subroutine setForceOptions(theseOptions) |
55 |
> |
subroutine setfForceOptions(theseOptions) |
56 |
|
use fForceOptions, only : module_setForceOptions => setForceOptions,ForceOptions |
57 |
|
type(ForceOptions) :: theseOptions |
58 |
|
call module_setForceOptions(theseOptions) |
59 |
< |
end subroutine setForceOptions |
59 |
> |
end subroutine setfForceOptions |