| 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 |
