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

This commit is contained in:
Denny Tjahjanto 2008-06-10 10:23:32 +00:00
parent 60f3571266
commit d2335e4a0b
1 changed files with 42 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
trunk/constitutive_pheno.f90
View File

@ -44,6 +44,7 @@ real(pReal), dimension(:) , allocatable :: material_s_sat
real(pReal), dimension(:) , allocatable :: material_w0
real(pReal), dimension(:,:) , allocatable :: material_SlipIntCoeff
!* GIA material parameters
real(pReal), dimension(:,:) , allocatable :: material_AspectRatio
real(pReal), dimension(:) , allocatable :: material_GrainSize
real(pReal), dimension(:) , allocatable :: material_bg
@ -305,6 +306,10 @@ do while(.true.)
material_GrainSize(section)=IO_floatValue(line,positions,2)
case ('burgers')
material_bg(section)=IO_floatValue(line,positions,2)
case ('grain_aspect_ratio')
do i=1,2
material_AspectRatio(i,section)=IO_floatValue(line,positions,i+1)
enddo
end select
endif
endif
@ -427,7 +432,7 @@ fileunit=200
!* First reading: number of materials and textures
!-----------------------------
!* determine material_maxN and texture_maxN from last respective parts
if(.not. IO_open_file(fileunit,filename)) call IO_error (200) ! corrupt mattex file
if(IO_open_file(fileunit,filename)==.false.) goto 100
part = '_dummy_'
do while (part/='')
formerPart = part
@ -457,6 +462,7 @@ allocate(material_w0(material_maxN)) ; material_w0=0.0_pReal
allocate(material_SlipIntCoeff(maxval(lattice_SlipIntType),material_maxN)) ; material_SlipIntCoeff=0.0_pReal
allocate(material_GrainSize(material_maxN)) ; material_GrainSize=0.0_pReal
allocate(material_bg(material_maxN)) ; material_bg=0.0_pReal
allocate(material_AspectRatio(2,material_maxN)) ; material_AspectRatio=0.0_pReal
allocate(texture_ODFfile(texture_maxN)) ; texture_ODFfile=''
allocate(texture_Ngrains(texture_maxN)) ; texture_Ngrains=0_pInt
allocate(texture_symmetry(texture_maxN)) ; texture_symmetry=''
@ -500,6 +506,27 @@ do while (part/='')
enddo
close(fileunit)
!*
do i=1,material_maxN
write(6,*) 'echo: material(',i,')'
write(6,*) 'lattice_structure',material_CrystalStructure(i)
write(6,*) 'nslip',material_Nslip(i)
write(6,*) 'c11',material_C11(i)
write(6,*) 'c12',material_C12(i)
write(6,*) 'c13',material_C13(i)
write(6,*) 'c33',material_C33(i)
write(6,*) 'c44',material_C44(i)
write(6,*) 's0_slip',material_s0_slip(i)
write(6,*) 'gdot0_slip',material_gdot0_slip(i)
write(6,*) 'n_slip',material_n_slip(i)
write(6,*) 'h0',material_h0(i)
write(6,*) 's_sat',material_s_sat(i)
write(6,*) 'w0',material_w0(i)
write(6,*) 'hardening_coefficients',material_SlipIntCoeff(1,i),material_SlipIntCoeff(2,i)
write(6,*) 'grain_size',material_GrainSize(i)
write(6,*) 'burgers',material_bg(i)
write(6,*) 'grain_aspect_ratio',material_AspectRatio(1,i),material_AspectRatio(2,i)
enddo
!* Construction of the elasticity matrices
do i=1,material_maxN
@ -534,7 +561,7 @@ enddo
! MISSING some consistency checks may be..?
! if ODFfile present then set NGauss NFiber =0
return
100 call IO_error(200) ! corrupt materials_textures file
end subroutine