From d1b04519ec41b17694408816f5017c962a6e8614 Mon Sep 17 00:00:00 2001 From: Luc Hantcherli Date: Tue, 27 Mar 2007 19:56:24 +0000 Subject: [PATCH] Corrected compilation errors --- trunk/constitutive.f90 | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/trunk/constitutive.f90 b/trunk/constitutive.f90 index d71e0676b..408879940 100644 --- a/trunk/constitutive.f90 +++ b/trunk/constitutive.f90 @@ -200,6 +200,9 @@ integer(pInt), dimension(:) , allocatable :: texture_NGauss integer(pInt),dimension(:) , allocatable :: texture_NFiber real(pReal), dimension(:,:,:) , allocatable :: texture_Gauss real(pReal), dimension(:,:,:) , allocatable :: texture_Fiber +real(pReal), dimension(:,:,:) , allocatable :: constitutive_phi1 +real(pReal), dimension(:,:,:) , allocatable :: constitutive_phi +real(pReal), dimension(:,:,:) , allocatable :: constitutive_phi2 !************************************ !* State variables * @@ -745,6 +748,12 @@ allocate(constitutive_MatVolFrac(constitutive_maxNgrains,mesh_maxNips,mesh_NcpEl constitutive_MatVolFrac=0.0_pReal allocate(constitutive_TexVolFrac(constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems)) constitutive_TexVolFrac=0.0_pReal +allocate(constitutive_phi1(constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems)) +constitutive_phi1=0.0_pReal +allocate(constitutive_phi(constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems)) +constitutive_phi=0.0_pReal +allocate(constitutive_phi2(constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems)) +constitutive_phi2=0.0_pReal allocate(constitutive_state_old(material_maxNslip,constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems)) constitutive_state_old=0.0_pReal allocate(constitutive_state_new(material_maxNslip,constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems)) @@ -752,6 +761,7 @@ constitutive_state_new=0.0_pReal allocate(constitutive_Nresults(constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems)) constitutive_Nresults=0_pInt + !* Assignement do i=1,mesh_NcpElems do j=1,FE_Nips(mesh_element(2,i)) @@ -762,7 +772,10 @@ do i=1,mesh_NcpElems constitutive_matID(k,j,i)=mesh_element(3,i) constitutive_texID(k,j,i)=mesh_element(4,i) constitutive_MatVolFrac(k,j,i)=1.0_pReal -! constitutive_TexVolFrac(k,j,i)=texture_VolFrac([gauss],mesh_element(4,i)) +! constitutive_TexVolFrac(k,j,i)=texture_Gauss/Fiber(6,M*([gauss]+[fiber]),mesh_element(4,i)) +! constitutive_phi1(k,j,i)=texture_Gauss/Fiber(1,M*([gauss]+[fiber])mesh_element(4,i)) +! constitutive_phi(k,j,i)=texture_Gauss/Fiber(2,M*([gauss]+[fiber])mesh_element(4,i)) +! constitutive_phi2(k,j,i)=texture_Gauss/Fiber(3,M*([gauss]+[fiber])mesh_element(4,i)) !* Initialization of state variables do l=1,material_Nslip(constitutive_matID(k,j,i)) constitutive_state_old(l,k,j,i)=material_s0_slip(constitutive_matID(k,j,i))