X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fmd-diff%2Fnp%2Fhnose.f;fp=source%2Funres%2Fsrc_MD%2Fmd-diff%2Fnp%2Fhnose.f;h=0000000000000000000000000000000000000000;hb=0a11a2c4ccee14ed99ae44f2565b270ba8d4bbb6;hp=665a1f683edc725436aed29912891bb7b5d7e1f6;hpb=5eb407964903815242c59de10960f42761139e10;p=unres.git

diff --git a/source/unres/src_MD/md-diff/np/hnose.f b/source/unres/src_MD/md-diff/np/hnose.f
deleted file mode 100644
index 665a1f6..0000000
--- a/source/unres/src_MD/md-diff/np/hnose.f
+++ /dev/null
@@ -1,11 +0,0 @@
-c------------------------------------------------------
-      double precision function HNose(ek,s,e,pi,Q,t_bath,dimen)
-      implicit none
-      double precision ek,s,e,pi,Q,t_bath,Rb
-      integer dimen
-      Rb=0.001986d0
-      HNose=ek+e+pi**2/(2*Q)+dimen*Rb*t_bath*log(s)
-c      print '(6f15.5,i5,a2,2f15.5)',ek,s,e,pi,Q,t_bath,dimen,"--",
-c     &      pi**2/(2*Q),dimen*Rb*t_bath*log(s)
-      return
-      end