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

small mistake corrected!

This commit is contained in:
Eralp Demir 2009-01-26 13:07:10 +00:00
parent 3625afff3b
commit f3e5be4b54
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)) allocate(symop(nosym,3,3))
do i=1,nosym do i=1,nosym
do j=1,3 do j=1,3
symop(i,j,:)=sym(24+i*j,:) symop(i,j,:)=sym(24+(i*j),:)
enddo enddo
enddo enddo
else else
@ -272,7 +272,7 @@ else
allocate(symop(nosym,3,3)) allocate(symop(nosym,3,3))
do i=1,nosym do i=1,nosym
do j=1,3 do j=1,3
symop(i,j,:)=sym(36+i*j,:) symop(i,j,:)=sym(36+(i*j),:)
enddo enddo
enddo enddo
endif endif