X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MIN%2Freadrtns_min.F;h=6352622de1372d5721816583ba41e018d89a5f8d;hb=b14bec9c0dc89d4a0f13baaaff62f982d785485e;hp=dee929a87dbe8586dcee9d7504dc16702e5e118c;hpb=8893a1b93e875425e4b7ceb78242d488665af7b8;p=unres.git diff --git a/source/unres/src_MIN/readrtns_min.F b/source/unres/src_MIN/readrtns_min.F index dee929a..6352622 100644 --- a/source/unres/src_MIN/readrtns_min.F +++ b/source/unres/src_MIN/readrtns_min.F @@ -118,7 +118,8 @@ C Set up the time limit (caution! The time must be input in minutes!) dccart=(index(controlcard,'CART').gt.0) overlapsc=(index(controlcard,'OVERLAP').gt.0) overlapsc=.not.overlapsc - searchsc=(index(controlcard,'SEARCHSC').gt.0) + searchsc=(index(controlcard,'NOSEARCHSC').gt.0) + searchsc=.not.searchsc sideadd=(index(controlcard,'SIDEADD').gt.0) energy_dec=(index(controlcard,'ENERGY_DEC').gt.0) outpdb=(index(controlcard,'PDBOUT').gt.0) @@ -422,6 +423,9 @@ c print *,'Finished reading pdb data' c call contact(.false.,ncont_ref,icont_ref,co) if (sideadd) then +C Following 2 lines for diagnostics; comment out if not needed + write (iout,*) "Before sideadd" + call intout if(me.eq.king.or..not.out1file) & write(iout,*)'Adding sidechains' maxsi=1000 @@ -438,7 +442,12 @@ c call contact(.false.,ncont_ref,icont_ref,co) & i,' after ',nsi,' trials' endif enddo +C 9/29/12 Adam: Recalculate coordinates with new side chain positions + call chainbuild endif +C Following 2 lines for diagnostics; comment out if not needed + write (iout,*) "After sideadd" + call intout endif if (indpdb.eq.0) then C Read sequence if not taken from the pdb file.