223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

corrected another small mistake, sorry for the inconvenience

This commit is contained in:
Eralp Demir 2009-01-26 13:14:25 +00:00
parent f3e5be4b54
commit 5a09badb71
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/math.f90
View File

@ -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(72+(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(108+(i*j),:)
enddo
enddo
endif