- Timestamp:
- 09/05/08 11:49:43 (16 years ago)
- Branches:
- master
- Children:
- a52fb83
- Parents:
- 229cc35
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
EXAMPLES/parallel_tempering_p.f
r229cc35 r4e219a3 125 125 upchswitch=1 126 126 rndord=.true. 127 128 if (ientyp.eq.2) call init_lundff129 127 ! ================================================================= 130 128 ! Distribute nodes to parallel tempering tasks … … 198 196 & fileNameMP(filebase, 6, 9, rep_id + 1)) 199 197 endif 198 call init_lund 199 if (ientyp.eq.2) call init_lundff 200 200 if (ientyp.eq.3) call init_abgn 201 201 202 202 203 ! ======================================== start of parallel tempering run
Note:
See TracChangeset
for help on using the changeset viewer.