- Timestamp:
- 09/05/08 11:49:43 (16 years ago)
- Branches:
- master
- Children:
- a52fb83
- Parents:
- 229cc35
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main_p.f
r229cc35 r4e219a3 127 127 upchswitch=1 128 128 rndord=.true. 129 if (ientyp.eq.2) call init_lundff130 129 ! ================================================================= 131 130 ! Distribute nodes to parallel tempering tasks … … 190 189 & fileNameMP(filebase, 6, 9, rep_id + 1)) 191 190 endif 191 call init_lund 192 ! Must call init_lundff *after* molecule has been loaded. 193 if (ientyp.eq.2) call init_lundff 192 194 if (ientyp.eq.3) call init_abgn 193 195 194 196 nml = 1 197 195 198 196 199 ! RRRRRRRRRRMMMMMMMMMMMMSSSSSSSSSSDDDDDDDDDDDDD
Note:
See TracChangeset
for help on using the changeset viewer.