From f3e5be4b546536389b27985ad0aea437c42ab866 Mon Sep 17 00:00:00 2001 From: Eralp Demir Date: Mon, 26 Jan 2009 13:07:10 +0000 Subject: [PATCH] small mistake corrected! --- trunk/math.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/trunk/math.f90 b/trunk/math.f90 index 7c7e54293..a264507e6 100644 --- a/trunk/math.f90 +++ b/trunk/math.f90 @@ -264,7 +264,7 @@ elseif (typ==2) then allocate(symop(nosym,3,3)) do i=1,nosym do j=1,3 - symop(i,j,:)=sym(24+i*j,:) + symop(i,j,:)=sym(24+(i*j),:) enddo enddo else @@ -272,7 +272,7 @@ else allocate(symop(nosym,3,3)) do i=1,nosym do j=1,3 - symop(i,j,:)=sym(36+i*j,:) + symop(i,j,:)=sym(36+(i*j),:) enddo enddo endif