From b2b477788fe91b2abf1266c85cdad6756836a46c Mon Sep 17 00:00:00 2001 From: Matthias Schmiddunser <matthias.schmiddunser@uni-tuebingen.de> Date: Thu, 30 Oct 2014 14:48:11 +0100 Subject: [PATCH] added required variables --- src/make_matrix.f90 | 2 +- src/pressure_cut.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/make_matrix.f90 b/src/make_matrix.f90 index bb5a16c5..ec2406c4 100644 --- a/src/make_matrix.f90 +++ b/src/make_matrix.f90 @@ -111,7 +111,7 @@ double precision weight !(((((((((((((((( declaration of the subroutine internal variables ))))))))))))) !------------------------------------------------------------------------------| logical is_plastic_temp,flag_vrm_pb -integer i,k,k1,k2,k3,ii,jj,ij,iint,nint,nb,err,ic +integer i,j,k,k1,k2,k3,ii,jj,ij,iint,nint,nb,err,ic integer iproc,nproc,ierr,mpe double precision eps,yield,fixt,yieldnow double precision r,s,t,w,volume,vol diff --git a/src/pressure_cut.f90 b/src/pressure_cut.f90 index d4e23c14..6d132ab0 100644 --- a/src/pressure_cut.f90 +++ b/src/pressure_cut.f90 @@ -471,7 +471,7 @@ double precision,intent(inout) :: pressure !(((((((((((((((( declaration of the subroutine internal variables ))))))))))))) !------------------------------------------------------------------------------| -integer :: err,i,k,ii,jj,kk,levelp,jcut +integer :: err,i,j,k,ii,jj,kk,levelp,jcut double precision,allocatable :: lsfp(:,:) double precision :: r(params%mpe),s(params%mpe),t(params%mpe),h(params%mpe) double precision :: r0p,s0p,t0p,rstp -- GitLab