X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fdfa.F;h=3982b6d79fd24338da0dba027a63e9ccf6abdb00;hb=43dfdc33f5b338546258b5a882326f97a76b5bd4;hp=1af0b443c318a2baebca54b6ad9ec49268040971;hpb=68aa1d135805a14583695611acfcf637748b4466;p=unres.git diff --git a/source/unres/src-HCD-5D/dfa.F b/source/unres/src-HCD-5D/dfa.F index 1af0b44..3982b6d 100644 --- a/source/unres/src-HCD-5D/dfa.F +++ b/source/unres/src-HCD-5D/dfa.F @@ -368,7 +368,6 @@ C END OF BETA RESTRAINT edfadis=0 gdfad=0.0d0 -c write (2,*) "edfad",idfadis_start,idfadis_end do i=idfadis_start,idfadis_end iatm1=idislis(1,i)+ishiftca