X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fgeometry.F90;h=eb84c8d9891fe074fbda1ef7cde982ddbebba7a7;hb=532215c67bc6381096ff9494a83f507c4d2474b9;hp=4478a726904776228c171bb2aff6577532653d8a;hpb=8c4ee607ccafc25047be8b46ad210803ee76830d;p=unres4.git diff --git a/source/unres/geometry.F90 b/source/unres/geometry.F90 index 4478a72..eb84c8d 100644 --- a/source/unres/geometry.F90 +++ b/source/unres/geometry.F90 @@ -1642,7 +1642,7 @@ chiom1=chi1*om1 chiom2=chi2*om2 facsig=om1*chiom1+om2*chiom2-2.0D0*om1om2*chiom12 - print *,"TUT?",om1*chiom1,facsig,om1,om2,om12 +! print *,"TUT?",om1*chiom1,facsig,om1,om2,om12 sigsq=1.0D0-facsig*faceps1_inv sigsq_om1=(chiom1-chiom12*om2)*faceps1_inv sigsq_om2=(chiom2-chiom12*om1)*faceps1_inv