Revision: | 231 |
Committed: | Thu Jan 9 21:31:16 2003 UTC (21 years, 7 months ago) by chuckv |
File size: | 447 byte(s) |
Log Message: | starting down the crooked path of the fornographer. |
# | Content |
---|---|
1 | subroutine forceFactory(forceName,status,forceSetup) |
2 | use TraPPE_ExFF |
3 | use lj_ff |
4 | character(len = 15) :: forceName |
5 | integer, intent(out) :: status |
6 | external forceSetup |
7 | |
8 | status = 0 |
9 | select case (forceName) |
10 | |
11 | case ("TraPPE_Ex") |
12 | call forceSetup(new_TraPPE_ExFF,doTraPPE_ExFF) |
13 | case("LJ") |
14 | call forceSetup(new_lj_atype,init_ljFF,do_lj_ff) |
15 | case default |
16 | status = -1 |
17 | return |
18 | end select |
19 | |
20 | |
21 | |
22 | |
23 | |
24 | |
25 | end subroutine forceFactory |