Revision: | 216 |
Committed: | Sun Dec 29 16:43:11 2002 UTC (21 years, 8 months ago) by chuckv |
File size: | 371 byte(s) |
Log Message: | *** empty log message *** |
# | User | Rev | Content |
---|---|---|---|
1 | chuckv | 216 | subroutine forceFactory(forceName,status,forceSetup) |
2 | use TraPPE_ExFF | ||
3 | |||
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_ExFF") | ||
12 | call forceSetup(new_TraPPE_ExFF,doTraPPE_ExFF) | ||
13 | case default | ||
14 | status = -1 | ||
15 | return | ||
16 | end select | ||
17 | |||
18 | |||
19 | |||
20 | |||
21 | |||
22 | |||
23 | end subroutine forceFactory |