X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Fpinorm.f;fp=source%2Funres%2Fsrc_CSA_DiL%2Fpinorm.f;h=0000000000000000000000000000000000000000;hp=91392bf40a7c215cf11839610a7717d8b367c1d1;hb=2a226bfc86eabc6e4eae0c3ad1cbc3cb5417a05a;hpb=a0e685f844163003749ba91dfbf4644bcc8cfa30

diff --git a/source/unres/src_CSA_DiL/pinorm.f b/source/unres/src_CSA_DiL/pinorm.f
deleted file mode 100644
index 91392bf..0000000
--- a/source/unres/src_CSA_DiL/pinorm.f
+++ /dev/null
@@ -1,17 +0,0 @@
-      double precision function pinorm(x)
-      implicit real*8 (a-h,o-z)
-c                                                                      
-c this function takes an angle (in radians) and puts it in the range of
-c -pi to +pi.                                                         
-c                                                                    
-      integer n                                                        
-      include 'COMMON.GEO'
-      n = x / dwapi
-      pinorm = x - n * dwapi
-      if ( pinorm .gt. pi ) then                                      
-         pinorm = pinorm - dwapi
-      else if ( pinorm .lt. - pi ) then                               
-         pinorm = pinorm + dwapi
-      end if                                                          
-      return                                                          
-      end