| # | Line 1 | Line 1 | subroutine forceFactory(forceName,status,forceSetup) | |
|---|---|---|
| 1 | subroutine forceFactory(forceName,status,forceSetup) | |
| 2 | < | use TraPPE_ExFF |
| 2 | > | ! use TraPPE_ExFF |
| 3 | use lj_ff | |
| 4 | character(len = *) :: forceName | |
| 5 | integer, intent(out) :: status | |
| # | Line 8 | Line 8 | subroutine forceFactory(forceName,status,forceSetup) | |
| 8 | status = 0 | |
| 9 | select case (forceName) | |
| 10 | ||
| 11 | < | case ("TraPPE_Ex") |
| 12 | < | call forceSetup(new_TraPPE_ExFF,doTraPPE_ExFF) |
| 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 | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |