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'
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