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

changed format of resolution. instead of reading exponent of two, now the number given equals directly to the number of FPs. Allows us to use arbitrary number of FPs. 

example:
OLD: reading 5 results in 2^5=32 FPs
NEW: reading 33 results in 33 FPs
This commit is contained in:
Martin Diehl 2010-10-01 10:42:15 +00:00
parent 2cc7bc38d7
commit 9927cd7adb
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
code/mesh.f90
View File

@ -1295,8 +1295,8 @@ FE_ipNeighbor(:FE_NipNeighbors(8),:FE_Nips(8),8) = & ! element 117
c = IO_intValue(line,pos,i+1) c = IO_intValue(line,pos,i+1)
end select end select
enddo enddo
mesh_Nelems = 2**(a+b+c) mesh_Nelems = a * b * c
mesh_Nnodes = (1+2**a)*(1+2**b)*(1+2**c) mesh_Nnodes = (1 + a)*(1 + b)*(1 + c)
exit exit
endif endif
enddo enddo
@ -2257,11 +2257,11 @@ subroutine mesh_marc_count_cpSizes (unit)
tag = IO_lc(IO_stringValue(line,pos,i)) tag = IO_lc(IO_stringValue(line,pos,i))
select case (tag) select case (tag)
case('a') case('a')
a = 1+2**IO_intValue(line,pos,i+1) a = 1 + IO_intValue(line,pos,i+1)
case('b') case('b')
b = 1+2**IO_intValue(line,pos,i+1) b = 1 + IO_intValue(line,pos,i+1)
case('c') case('c')
c = 1+2**IO_intValue(line,pos,i+1) c = 1 + IO_intValue(line,pos,i+1)
end select end select
enddo enddo
case ('dimension') case ('dimension')
@ -2446,11 +2446,11 @@ subroutine mesh_marc_count_cpSizes (unit)
do i = 2,6,2 do i = 2,6,2
select case (IO_lc(IO_stringValue(line,pos,i))) select case (IO_lc(IO_stringValue(line,pos,i)))
case('a') case('a')
a = 2**IO_intValue(line,pos,i+1) a = IO_intValue(line,pos,i+1)
case('b') case('b')
b = 2**IO_intValue(line,pos,i+1) b = IO_intValue(line,pos,i+1)
case('c') case('c')
c = 2**IO_intValue(line,pos,i+1) c = IO_intValue(line,pos,i+1)
end select end select
enddo enddo
end select end select