From 589a8f3e38b7ce802f8577e862e54849030a5556 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Mon, 27 Feb 2017 14:11:06 +0100 Subject: [PATCH] gfortran segmentation fault checkgrad cart src_MD-M --- source/unres/src_MD-M/unres.F | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/source/unres/src_MD-M/unres.F b/source/unres/src_MD-M/unres.F index 2df2658..fab67a1 100644 --- a/source/unres/src_MD-M/unres.F +++ b/source/unres/src_MD-M/unres.F @@ -408,7 +408,7 @@ c--------------------------------------------------------------------------- include 'COMMON.SBRIDGE' double precision varia(maxvar) dimension ind(6) - double precision energy(0:max_ene) + double precision energy(0:n_ene) logical eof eof=.false. #ifdef MPI @@ -703,7 +703,7 @@ c--------------------------------------------------------------------------- include 'COMMON.MD' include 'COMMON.SBRIDGE' common /srutu/ icall - double precision energy(0:max_ene) + double precision energy(0:n_ene) c do i=2,nres c vbld(i)=vbld(i)+ran_number(-0.1d0,0.1d0) c if (itype(i).ne.10) @@ -776,7 +776,7 @@ c--------------------------------------------------------------------------- include 'DIMENSIONS' include 'COMMON.IOUNITS' include 'COMMON.CONTROL' - double precision energy(0:max_ene) + double precision energy(0:n_ene) call chainbuild call etotal(energy(0)) call enerprint(energy(0)) -- 1.7.9.5