make cp src-HCD-5D

[unres.git] / source / unres / src-HCD-5D / int_to_cart.f

diff --git a/source/unres/src-HCD-5D/int_to_cart.f b/source/unres/src-HCD-5D/int_to_cart.f
index d5ea38a..bf259c8 100644 (file)
--- a/source/unres/src-HCD-5D/int_to_cart.f
+++ b/source/unres/src-HCD-5D/int_to_cart.f
@@ -3,7 +3,7 @@ c--------------------------------------------------------------
 c  This subroutine converts the energy derivatives from internal 
 c  coordinates to cartesian coordinates
 c-------------------------------------------------------------
-      implicit real*8 (a-h,o-z)
+      implicit none
       include 'DIMENSIONS'
       include 'COMMON.VAR'
       include 'COMMON.CHAIN'
@@ -15,6 +15,7 @@ c-------------------------------------------------------------
       include 'COMMON.IOUNITS'
       include 'COMMON.SCCOR' 
       include 'COMMON.CONTROL'
+      integer i,j
 c   calculating dE/ddc1     
 C       print *,"wchodze22",ialph(2,1) 
        if (nres.lt.3) go to 18