fixed bug in initialization when reading in material.config.
Fortran does not short-circuit, e.g. (if a>0 .and. b(a) ==c) might cause an out-of-bounds error when a=-1 it'll try to access b(-1)!
This commit is contained in:
Martin Diehl
parent
6f7740a243
commit
296a5040b9
|
|
@ -156,7 +156,7 @@ integer(pInt), intent(in) :: file
|
||||||
integer(pInt), parameter :: maxNchunks = 21_pInt
|
integer(pInt), parameter :: maxNchunks = 21_pInt
|
||||||
integer(pInt), dimension(1+2*maxNchunks) :: positions
|
integer(pInt), dimension(1+2*maxNchunks) :: positions
|
||||||
integer(pInt), dimension(6) :: configNchunks
|
integer(pInt), dimension(6) :: configNchunks
|
||||||
integer(pInt) :: section, maxNinstance,mySize=0_pInt,myStructure,maxTotalNslip,maxTotalNtwin,&
|
integer(pInt) :: section = 0_pInt, maxNinstance,mySize=0_pInt,myStructure,maxTotalNslip,maxTotalNtwin,&
|
||||||
f,i,j,k,l,m,n,o,p,q,r,s,ns,nt, &
|
f,i,j,k,l,m,n,o,p,q,r,s,ns,nt, &
|
||||||
Nchunks_SlipSlip, Nchunks_SlipTwin, Nchunks_TwinSlip, Nchunks_TwinTwin, &
|
Nchunks_SlipSlip, Nchunks_SlipTwin, Nchunks_TwinSlip, Nchunks_TwinTwin, &
|
||||||
Nchunks_SlipFamilies, Nchunks_TwinFamilies, &
|
Nchunks_SlipFamilies, Nchunks_TwinFamilies, &
|
||||||
|
|
@ -289,8 +289,6 @@ allocate(constitutive_dislotwin_sbSv(6,6,homogenization_maxNgrains,mesh_maxNips,
|
||||||
|
|
||||||
!* Readout data from material.config file
|
!* Readout data from material.config file
|
||||||
rewind(file)
|
rewind(file)
|
||||||
line = ''
|
|
||||||
section = 0_pInt
|
|
||||||
|
|
||||||
do while (IO_lc(IO_getTag(line,'<','>')) /= 'phase') ! wind forward to <phase>
|
do while (IO_lc(IO_getTag(line,'<','>')) /= 'phase') ! wind forward to <phase>
|
||||||
read(file,'(a1024)',END=100) line
|
read(file,'(a1024)',END=100) line
|
||||||
|
|
@ -304,148 +302,150 @@ do ! read thru sections of
|
||||||
section = section + 1_pInt ! advance section counter
|
section = section + 1_pInt ! advance section counter
|
||||||
cycle
|
cycle
|
||||||
endif
|
endif
|
||||||
if (section > 0_pInt .and. phase_plasticity(section) == constitutive_dislotwin_label) then ! one of my sections
|
if (section > 0_pInt ) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran
|
||||||
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
if (phase_plasticity(section) == constitutive_dislotwin_LABEL) then ! one of my sections
|
||||||
positions = IO_stringPos(line,maxNchunks)
|
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
||||||
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
positions = IO_stringPos(line,maxNchunks)
|
||||||
select case(tag)
|
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
||||||
case ('plasticity', 'elasticity')
|
select case(tag)
|
||||||
cycle
|
case ('plasticity', 'elasticity')
|
||||||
case ('(output)')
|
cycle
|
||||||
constitutive_dislotwin_Noutput(i) = constitutive_dislotwin_Noutput(i) + 1_pInt
|
case ('(output)')
|
||||||
constitutive_dislotwin_output(constitutive_dislotwin_Noutput(i),i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
constitutive_dislotwin_Noutput(i) = constitutive_dislotwin_Noutput(i) + 1_pInt
|
||||||
case ('lattice_structure')
|
constitutive_dislotwin_output(constitutive_dislotwin_Noutput(i),i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
||||||
constitutive_dislotwin_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
case ('lattice_structure')
|
||||||
configNchunks = lattice_configNchunks(constitutive_dislotwin_structureName(i))
|
constitutive_dislotwin_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
||||||
Nchunks_SlipFamilies = configNchunks(1)
|
configNchunks = lattice_configNchunks(constitutive_dislotwin_structureName(i))
|
||||||
Nchunks_TwinFamilies = configNchunks(2)
|
Nchunks_SlipFamilies = configNchunks(1)
|
||||||
Nchunks_SlipSlip = configNchunks(3)
|
Nchunks_TwinFamilies = configNchunks(2)
|
||||||
Nchunks_SlipTwin = configNchunks(4)
|
Nchunks_SlipSlip = configNchunks(3)
|
||||||
Nchunks_TwinSlip = configNchunks(5)
|
Nchunks_SlipTwin = configNchunks(4)
|
||||||
Nchunks_TwinTwin = configNchunks(6)
|
Nchunks_TwinSlip = configNchunks(5)
|
||||||
case ('covera_ratio')
|
Nchunks_TwinTwin = configNchunks(6)
|
||||||
constitutive_dislotwin_CoverA(i) = IO_floatValue(line,positions,2_pInt)
|
case ('covera_ratio')
|
||||||
case ('c11')
|
constitutive_dislotwin_CoverA(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Cslip_66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c11')
|
||||||
case ('c12')
|
constitutive_dislotwin_Cslip_66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Cslip_66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c12')
|
||||||
case ('c13')
|
constitutive_dislotwin_Cslip_66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c13')
|
||||||
case ('c22')
|
constitutive_dislotwin_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Cslip_66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c22')
|
||||||
case ('c23')
|
constitutive_dislotwin_Cslip_66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Cslip_66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c23')
|
||||||
case ('c33')
|
constitutive_dislotwin_Cslip_66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Cslip_66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c33')
|
||||||
case ('c44')
|
constitutive_dislotwin_Cslip_66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Cslip_66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c44')
|
||||||
case ('c55')
|
constitutive_dislotwin_Cslip_66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Cslip_66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c55')
|
||||||
case ('c66')
|
constitutive_dislotwin_Cslip_66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Cslip_66(6,6,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c66')
|
||||||
case ('nslip')
|
constitutive_dislotwin_Cslip_66(6,6,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('nslip')
|
||||||
constitutive_dislotwin_Nslip(j,i) = IO_intValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_dislotwin_Nslip(j,i) = IO_intValue(line,positions,1_pInt+j)
|
||||||
case ('ntwin')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('ntwin')
|
||||||
constitutive_dislotwin_Ntwin(j,i) = IO_intValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_dislotwin_Ntwin(j,i) = IO_intValue(line,positions,1_pInt+j)
|
||||||
case ('rhoedge0')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('rhoedge0')
|
||||||
constitutive_dislotwin_rhoEdge0(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_dislotwin_rhoEdge0(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('rhoedgedip0')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('rhoedgedip0')
|
||||||
constitutive_dislotwin_rhoEdgeDip0(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_dislotwin_rhoEdgeDip0(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('slipburgers')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('slipburgers')
|
||||||
constitutive_dislotwin_burgersPerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_dislotwin_burgersPerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('twinburgers')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('twinburgers')
|
||||||
constitutive_dislotwin_burgersPerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_dislotwin_burgersPerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('qedge')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('qedge')
|
||||||
constitutive_dislotwin_QedgePerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_dislotwin_QedgePerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('v0')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('v0')
|
||||||
constitutive_dislotwin_v0PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_dislotwin_v0PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('ndot0')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('ndot0')
|
||||||
constitutive_dislotwin_Ndot0PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_dislotwin_Ndot0PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('twinsize')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('twinsize')
|
||||||
constitutive_dislotwin_twinsizePerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_dislotwin_twinsizePerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('clambdaslip')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('clambdaslip')
|
||||||
constitutive_dislotwin_CLambdaSlipPerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_dislotwin_CLambdaSlipPerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('grainsize')
|
enddo
|
||||||
constitutive_dislotwin_GrainSize(i) = IO_floatValue(line,positions,2_pInt)
|
case ('grainsize')
|
||||||
case ('maxtwinfraction')
|
constitutive_dislotwin_GrainSize(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_MaxTwinFraction(i) = IO_floatValue(line,positions,2_pInt)
|
case ('maxtwinfraction')
|
||||||
case ('pexponent')
|
constitutive_dislotwin_MaxTwinFraction(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_p(i) = IO_floatValue(line,positions,2_pInt)
|
case ('pexponent')
|
||||||
case ('qexponent')
|
constitutive_dislotwin_p(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_q(i) = IO_floatValue(line,positions,2_pInt)
|
case ('qexponent')
|
||||||
case ('rexponent')
|
constitutive_dislotwin_q(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_r(i) = IO_floatValue(line,positions,2_pInt)
|
case ('rexponent')
|
||||||
case ('d0')
|
constitutive_dislotwin_r(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_D0(i) = IO_floatValue(line,positions,2_pInt)
|
case ('d0')
|
||||||
case ('qsd')
|
constitutive_dislotwin_D0(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Qsd(i) = IO_floatValue(line,positions,2_pInt)
|
case ('qsd')
|
||||||
case ('atol_rho')
|
constitutive_dislotwin_Qsd(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_aTolRho(i) = IO_floatValue(line,positions,2_pInt)
|
case ('atol_rho')
|
||||||
case ('atol_twinfrac')
|
constitutive_dislotwin_aTolRho(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_aTolTwinFrac(i) = IO_floatValue(line,positions,2_pInt)
|
case ('atol_twinfrac')
|
||||||
case ('cmfptwin')
|
constitutive_dislotwin_aTolTwinFrac(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Cmfptwin(i) = IO_floatValue(line,positions,2_pInt)
|
case ('cmfptwin')
|
||||||
case ('cthresholdtwin')
|
constitutive_dislotwin_Cmfptwin(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_Cthresholdtwin(i) = IO_floatValue(line,positions,2_pInt)
|
case ('cthresholdtwin')
|
||||||
case ('solidsolutionstrength')
|
constitutive_dislotwin_Cthresholdtwin(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_SolidSolutionStrength(i) = IO_floatValue(line,positions,2_pInt)
|
case ('solidsolutionstrength')
|
||||||
case ('l0')
|
constitutive_dislotwin_SolidSolutionStrength(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_L0(i) = IO_floatValue(line,positions,2_pInt)
|
case ('l0')
|
||||||
case ('cedgedipmindistance')
|
constitutive_dislotwin_L0(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_CEdgeDipMinDistance(i) = IO_floatValue(line,positions,2_pInt)
|
case ('cedgedipmindistance')
|
||||||
case ('catomicvolume')
|
constitutive_dislotwin_CEdgeDipMinDistance(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_CAtomicVolume(i) = IO_floatValue(line,positions,2_pInt)
|
case ('catomicvolume')
|
||||||
case ('interaction_slipslip','interactionslipslip')
|
constitutive_dislotwin_CAtomicVolume(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do j = 1_pInt, Nchunks_SlipSlip
|
case ('interaction_slipslip','interactionslipslip')
|
||||||
constitutive_dislotwin_interaction_SlipSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipSlip
|
||||||
enddo
|
constitutive_dislotwin_interaction_SlipSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interaction_sliptwin','interactionsliptwin')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipTwin
|
case ('interaction_sliptwin','interactionsliptwin')
|
||||||
constitutive_dislotwin_interaction_SlipTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipTwin
|
||||||
enddo
|
constitutive_dislotwin_interaction_SlipTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interaction_twinslip','interactiontwinslip')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinSlip
|
case ('interaction_twinslip','interactiontwinslip')
|
||||||
constitutive_dislotwin_interaction_TwinSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinSlip
|
||||||
enddo
|
constitutive_dislotwin_interaction_TwinSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interaction_twintwin','interactiontwintwin')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinTwin
|
case ('interaction_twintwin','interactiontwintwin')
|
||||||
constitutive_dislotwin_interaction_TwinTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinTwin
|
||||||
enddo
|
constitutive_dislotwin_interaction_TwinTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('sfe_0k')
|
enddo
|
||||||
constitutive_dislotwin_SFE_0K(i) = IO_floatValue(line,positions,2_pInt)
|
case ('sfe_0k')
|
||||||
case ('dsfe_dt')
|
constitutive_dislotwin_SFE_0K(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_dSFE_dT(i) = IO_floatValue(line,positions,2_pInt)
|
case ('dsfe_dt')
|
||||||
case ('shearbandresistance')
|
constitutive_dislotwin_dSFE_dT(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_sbResistance(i) = IO_floatValue(line,positions,2_pInt)
|
case ('shearbandresistance')
|
||||||
case ('shearbandvelocity')
|
constitutive_dislotwin_sbResistance(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_sbVelocity(i) = IO_floatValue(line,positions,2_pInt)
|
case ('shearbandvelocity')
|
||||||
case ('qedgepersbsystem')
|
constitutive_dislotwin_sbVelocity(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_dislotwin_sbQedge(i) = IO_floatValue(line,positions,2_pInt)
|
case ('qedgepersbsystem')
|
||||||
case default
|
constitutive_dislotwin_sbQedge(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_dislotwin_label//')')
|
case default
|
||||||
end select
|
call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_dislotwin_label//')')
|
||||||
|
end select
|
||||||
|
endif
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -204,65 +204,67 @@ subroutine constitutive_j2_init(myFile)
|
||||||
section = section + 1_pInt ! advance section counter
|
section = section + 1_pInt ! advance section counter
|
||||||
cycle
|
cycle
|
||||||
endif
|
endif
|
||||||
if (section > 0_pInt .and. phase_plasticity(section) == constitutive_j2_label) then ! one of my sections
|
if (section > 0_pInt ) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran
|
||||||
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
if (phase_plasticity(section) == constitutive_j2_LABEL) then ! one of my sections
|
||||||
positions = IO_stringPos(line,maxNchunks)
|
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
||||||
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
positions = IO_stringPos(line,maxNchunks)
|
||||||
select case(tag)
|
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
||||||
case ('plasticity','elasticity')
|
select case(tag)
|
||||||
cycle
|
case ('plasticity','elasticity')
|
||||||
case ('(output)')
|
cycle
|
||||||
constitutive_j2_Noutput(i) = constitutive_j2_Noutput(i) + 1_pInt
|
case ('(output)')
|
||||||
constitutive_j2_output(constitutive_j2_Noutput(i),i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
constitutive_j2_Noutput(i) = constitutive_j2_Noutput(i) + 1_pInt
|
||||||
case ('lattice_structure')
|
constitutive_j2_output(constitutive_j2_Noutput(i),i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
||||||
constitutive_j2_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
case ('lattice_structure')
|
||||||
case ('c11')
|
constitutive_j2_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
||||||
constitutive_j2_Cslip_66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c11')
|
||||||
case ('c12')
|
constitutive_j2_Cslip_66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_Cslip_66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c12')
|
||||||
case ('c13')
|
constitutive_j2_Cslip_66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c13')
|
||||||
case ('c22')
|
constitutive_j2_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_Cslip_66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c22')
|
||||||
case ('c23')
|
constitutive_j2_Cslip_66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_Cslip_66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c23')
|
||||||
case ('c33')
|
constitutive_j2_Cslip_66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_Cslip_66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c33')
|
||||||
case ('c44')
|
constitutive_j2_Cslip_66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_Cslip_66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c44')
|
||||||
case ('c55')
|
constitutive_j2_Cslip_66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_Cslip_66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c55')
|
||||||
case ('c66')
|
constitutive_j2_Cslip_66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_Cslip_66(6,6,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c66')
|
||||||
case ('tau0')
|
constitutive_j2_Cslip_66(6,6,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_tau0(i) = IO_floatValue(line,positions,2_pInt)
|
case ('tau0')
|
||||||
case ('gdot0')
|
constitutive_j2_tau0(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_gdot0(i) = IO_floatValue(line,positions,2_pInt)
|
case ('gdot0')
|
||||||
case ('n')
|
constitutive_j2_gdot0(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_n(i) = IO_floatValue(line,positions,2_pInt)
|
case ('n')
|
||||||
case ('h0')
|
constitutive_j2_n(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_h0(i) = IO_floatValue(line,positions,2_pInt)
|
case ('h0')
|
||||||
case ('h0_slope','slopelnrate')
|
constitutive_j2_h0(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_h0_slopeLnRate(i) = IO_floatValue(line,positions,2_pInt)
|
case ('h0_slope','slopelnrate')
|
||||||
case ('tausat')
|
constitutive_j2_h0_slopeLnRate(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_tausat(i) = IO_floatValue(line,positions,2_pInt)
|
case ('tausat')
|
||||||
case ('tausat_sinhfita')
|
constitutive_j2_tausat(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_tausat_SinhFitA(i) = IO_floatValue(line,positions,2_pInt)
|
case ('tausat_sinhfita')
|
||||||
case ('tausat_sinhfitb')
|
constitutive_j2_tausat_SinhFitA(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_tausat_SinhFitB(i) = IO_floatValue(line,positions,2_pInt)
|
case ('tausat_sinhfitb')
|
||||||
case ('tausat_sinhfitc')
|
constitutive_j2_tausat_SinhFitB(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_tausat_SinhFitC(i) = IO_floatValue(line,positions,2_pInt)
|
case ('tausat_sinhfitc')
|
||||||
case ('tausat_sinhfitd')
|
constitutive_j2_tausat_SinhFitC(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_tausat_SinhFitD(i) = IO_floatValue(line,positions,2_pInt)
|
case ('tausat_sinhfitd')
|
||||||
case ('a', 'w0')
|
constitutive_j2_tausat_SinhFitD(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_a(i) = IO_floatValue(line,positions,2_pInt)
|
case ('a', 'w0')
|
||||||
case ('taylorfactor')
|
constitutive_j2_a(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_fTaylor(i) = IO_floatValue(line,positions,2_pInt)
|
case ('taylorfactor')
|
||||||
case ('atol_resistance')
|
constitutive_j2_fTaylor(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_j2_aTolResistance(i) = IO_floatValue(line,positions,2_pInt)
|
case ('atol_resistance')
|
||||||
case default
|
constitutive_j2_aTolResistance(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_j2_label//')')
|
case default
|
||||||
end select
|
call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_j2_label//')')
|
||||||
|
end select
|
||||||
|
endif
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -130,36 +130,38 @@ subroutine constitutive_none_init(myFile)
|
||||||
section = section + 1_pInt ! advance section counter
|
section = section + 1_pInt ! advance section counter
|
||||||
cycle
|
cycle
|
||||||
endif
|
endif
|
||||||
if (section > 0_pInt .and. phase_plasticity(section) == constitutive_none_label) then ! one of my sections
|
if (section > 0_pInt ) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran
|
||||||
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
if ( phase_plasticity(section) == constitutive_none_LABEL) then ! one of my sections
|
||||||
positions = IO_stringPos(line,MAXNCHUNKS)
|
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
||||||
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
positions = IO_stringPos(line,MAXNCHUNKS)
|
||||||
select case(tag)
|
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
||||||
case ('plasticity','elasticity')
|
select case(tag)
|
||||||
cycle
|
case ('plasticity','elasticity')
|
||||||
case ('lattice_structure')
|
cycle
|
||||||
constitutive_none_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
case ('lattice_structure')
|
||||||
case ('c11')
|
constitutive_none_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
||||||
constitutive_none_Cslip_66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c11')
|
||||||
case ('c12')
|
constitutive_none_Cslip_66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_none_Cslip_66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c12')
|
||||||
case ('c13')
|
constitutive_none_Cslip_66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_none_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c13')
|
||||||
case ('c22')
|
constitutive_none_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_none_Cslip_66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c22')
|
||||||
case ('c23')
|
constitutive_none_Cslip_66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_none_Cslip_66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c23')
|
||||||
case ('c33')
|
constitutive_none_Cslip_66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_none_Cslip_66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c33')
|
||||||
case ('c44')
|
constitutive_none_Cslip_66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_none_Cslip_66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c44')
|
||||||
case ('c55')
|
constitutive_none_Cslip_66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_none_Cslip_66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c55')
|
||||||
case ('c66')
|
constitutive_none_Cslip_66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_none_Cslip_66(6,6,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c66')
|
||||||
case default
|
constitutive_none_Cslip_66(6,6,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_none_label//')')
|
case default
|
||||||
end select
|
call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_none_label//')')
|
||||||
|
end select
|
||||||
|
endif
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -258,7 +258,7 @@ integer(pInt), parameter :: maxNchunks = 21_pInt
|
||||||
integer(pInt), &
|
integer(pInt), &
|
||||||
dimension(1_pInt+2_pInt*maxNchunks) :: positions
|
dimension(1_pInt+2_pInt*maxNchunks) :: positions
|
||||||
integer(pInt), dimension(6) :: configNchunks
|
integer(pInt), dimension(6) :: configNchunks
|
||||||
integer(pInt) :: section, &
|
integer(pInt) :: section = 0_pInt, &
|
||||||
maxNinstance, &
|
maxNinstance, &
|
||||||
maxTotalNslip, &
|
maxTotalNslip, &
|
||||||
myStructure, &
|
myStructure, &
|
||||||
|
|
@ -420,9 +420,6 @@ nonSchmidCoeff = 0.0_pReal
|
||||||
!*** readout data from material.config file
|
!*** readout data from material.config file
|
||||||
|
|
||||||
rewind(myFile)
|
rewind(myFile)
|
||||||
line = ''
|
|
||||||
section = 0_pInt
|
|
||||||
|
|
||||||
do while (IO_lc(IO_getTag(line,'<','>')) /= 'phase') ! wind forward to <phase>
|
do while (IO_lc(IO_getTag(line,'<','>')) /= 'phase') ! wind forward to <phase>
|
||||||
read(myFile,'(a1024)',END=100) line
|
read(myFile,'(a1024)',END=100) line
|
||||||
enddo
|
enddo
|
||||||
|
|
@ -435,160 +432,162 @@ do
|
||||||
section = section + 1_pInt ! advance section counter
|
section = section + 1_pInt ! advance section counter
|
||||||
cycle
|
cycle
|
||||||
endif
|
endif
|
||||||
if (section > 0_pInt .and. phase_plasticity(section) == CONSTITUTIVE_NONLOCAL_LABEL) then ! one of my sections
|
if (section > 0_pInt ) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran
|
||||||
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
if (phase_plasticity(section) == CONSTITUTIVE_NONLOCAL_LABEL) then ! one of my sections
|
||||||
positions = IO_stringPos(line,maxNchunks)
|
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
||||||
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
positions = IO_stringPos(line,maxNchunks)
|
||||||
select case(tag)
|
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
||||||
case('plasticity','elasticity','/nonlocal/')
|
select case(tag)
|
||||||
cycle
|
case('plasticity','elasticity','/nonlocal/')
|
||||||
case ('(output)')
|
cycle
|
||||||
Noutput(i) = Noutput(i) + 1_pInt
|
case ('(output)')
|
||||||
constitutive_nonlocal_output(Noutput(i),i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
Noutput(i) = Noutput(i) + 1_pInt
|
||||||
case ('lattice_structure')
|
constitutive_nonlocal_output(Noutput(i),i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
||||||
constitutive_nonlocal_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
case ('lattice_structure')
|
||||||
configNchunks = lattice_configNchunks(constitutive_nonlocal_structureName(i))
|
constitutive_nonlocal_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
||||||
Nchunks_SlipFamilies = configNchunks(1)
|
configNchunks = lattice_configNchunks(constitutive_nonlocal_structureName(i))
|
||||||
Nchunks_SlipSlip = configNchunks(3)
|
Nchunks_SlipFamilies = configNchunks(1)
|
||||||
case ('c/a_ratio','covera_ratio')
|
Nchunks_SlipSlip = configNchunks(3)
|
||||||
CoverA(i) = IO_floatValue(line,positions,2_pInt)
|
case ('c/a_ratio','covera_ratio')
|
||||||
case ('c11')
|
CoverA(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
Cslip66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c11')
|
||||||
case ('c12')
|
Cslip66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
Cslip66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c12')
|
||||||
case ('c13')
|
Cslip66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
Cslip66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c13')
|
||||||
case ('c22')
|
Cslip66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
Cslip66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c22')
|
||||||
case ('c23')
|
Cslip66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
Cslip66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c23')
|
||||||
case ('c33')
|
Cslip66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
Cslip66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c33')
|
||||||
case ('c44')
|
Cslip66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
Cslip66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c44')
|
||||||
case ('c55')
|
Cslip66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
Cslip66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c55')
|
||||||
case ('c66')
|
Cslip66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
Cslip66(6,6,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c66')
|
||||||
case ('nslip')
|
Cslip66(6,6,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case ('nslip')
|
||||||
Nslip(f,i) = IO_intValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
Nslip(f,i) = IO_intValue(line,positions,1_pInt+f)
|
||||||
case ('rhosgledgepos0')
|
enddo
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case ('rhosgledgepos0')
|
||||||
rhoSglEdgePos0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
rhoSglEdgePos0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case ('rhosgledgeneg0')
|
enddo
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case ('rhosgledgeneg0')
|
||||||
rhoSglEdgeNeg0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
rhoSglEdgeNeg0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case ('rhosglscrewpos0')
|
enddo
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case ('rhosglscrewpos0')
|
||||||
rhoSglScrewPos0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
rhoSglScrewPos0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case ('rhosglscrewneg0')
|
enddo
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case ('rhosglscrewneg0')
|
||||||
rhoSglScrewNeg0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
rhoSglScrewNeg0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case ('rhodipedge0')
|
enddo
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case ('rhodipedge0')
|
||||||
rhoDipEdge0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
rhoDipEdge0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case ('rhodipscrew0')
|
enddo
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case ('rhodipscrew0')
|
||||||
rhoDipScrew0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
rhoDipScrew0(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case ('lambda0')
|
enddo
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case ('lambda0')
|
||||||
lambda0PerSlipFamily(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
lambda0PerSlipFamily(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case ('burgers')
|
enddo
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case ('burgers')
|
||||||
burgersPerSlipFamily(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
burgersPerSlipFamily(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case('cutoffradius','r')
|
enddo
|
||||||
cutoffRadius(i) = IO_floatValue(line,positions,2_pInt)
|
case('cutoffradius','r')
|
||||||
case('minimumdipoleheightedge','ddipminedge')
|
cutoffRadius(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case('minimumdipoleheightedge','ddipminedge')
|
||||||
minDipoleHeightPerSlipFamily(f,1_pInt,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
minDipoleHeightPerSlipFamily(f,1_pInt,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case('minimumdipoleheightscrew','ddipminscrew')
|
enddo
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case('minimumdipoleheightscrew','ddipminscrew')
|
||||||
minDipoleHeightPerSlipFamily(f,2_pInt,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
minDipoleHeightPerSlipFamily(f,2_pInt,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case('atomicvolume')
|
enddo
|
||||||
atomicVolume(i) = IO_floatValue(line,positions,2_pInt)
|
case('atomicvolume')
|
||||||
case('selfdiffusionprefactor','dsd0')
|
atomicVolume(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
Dsd0(i) = IO_floatValue(line,positions,2_pInt)
|
case('selfdiffusionprefactor','dsd0')
|
||||||
case('selfdiffusionenergy','qsd')
|
Dsd0(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
selfDiffusionEnergy(i) = IO_floatValue(line,positions,2_pInt)
|
case('selfdiffusionenergy','qsd')
|
||||||
case('atol_rho','atol_density','absolutetolerancedensity','absolutetolerance_density')
|
selfDiffusionEnergy(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
aTolRho(i) = IO_floatValue(line,positions,2_pInt)
|
case('atol_rho','atol_density','absolutetolerancedensity','absolutetolerance_density')
|
||||||
case('atol_shear','atol_plasticshear','atol_accumulatedshear','absolutetoleranceshear','absolutetolerance_shear')
|
aTolRho(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
aTolShear(i) = IO_floatValue(line,positions,2_pInt)
|
case('atol_shear','atol_plasticshear','atol_accumulatedshear','absolutetoleranceshear','absolutetolerance_shear')
|
||||||
case('significantrho','significant_rho','significantdensity','significant_density')
|
aTolShear(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
significantRho(i) = IO_floatValue(line,positions,2_pInt)
|
case('significantrho','significant_rho','significantdensity','significant_density')
|
||||||
case('significantn','significant_n','significantdislocations','significant_dislcations')
|
significantRho(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
significantN(i) = IO_floatValue(line,positions,2_pInt)
|
case('significantn','significant_n','significantdislocations','significant_dislcations')
|
||||||
case ('interaction_slipslip')
|
significantN(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do it = 1_pInt, Nchunks_SlipSlip
|
case ('interaction_slipslip')
|
||||||
interactionSlipSlip(it,i) = IO_floatValue(line,positions,1_pInt+it)
|
do it = 1_pInt, Nchunks_SlipSlip
|
||||||
enddo
|
interactionSlipSlip(it,i) = IO_floatValue(line,positions,1_pInt+it)
|
||||||
case('linetension','linetensioneffect','linetension_effect')
|
enddo
|
||||||
linetensionEffect(i) = IO_floatValue(line,positions,2_pInt)
|
case('linetension','linetensioneffect','linetension_effect')
|
||||||
case('edgejog','edgejogs','edgejogeffect','edgejog_effect')
|
linetensionEffect(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
edgeJogFactor(i) = IO_floatValue(line,positions,2_pInt)
|
case('edgejog','edgejogs','edgejogeffect','edgejog_effect')
|
||||||
case('peierlsstressedge','peierlsstress_edge')
|
edgeJogFactor(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case('peierlsstressedge','peierlsstress_edge')
|
||||||
peierlsStressPerSlipFamily(f,1_pInt,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
peierlsStressPerSlipFamily(f,1_pInt,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case('peierlsstressscrew','peierlsstress_screw')
|
enddo
|
||||||
do f = 1_pInt, Nchunks_SlipFamilies
|
case('peierlsstressscrew','peierlsstress_screw')
|
||||||
peierlsStressPerSlipFamily(f,2_pInt,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
peierlsStressPerSlipFamily(f,2_pInt,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case('doublekinkwidth')
|
enddo
|
||||||
doublekinkwidth(i) = IO_floatValue(line,positions,2_pInt)
|
case('doublekinkwidth')
|
||||||
case('solidsolutionenergy')
|
doublekinkwidth(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
solidSolutionEnergy(i) = IO_floatValue(line,positions,2_pInt)
|
case('solidsolutionenergy')
|
||||||
case('solidsolutionsize')
|
solidSolutionEnergy(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
solidSolutionSize(i) = IO_floatValue(line,positions,2_pInt)
|
case('solidsolutionsize')
|
||||||
case('solidsolutionconcentration')
|
solidSolutionSize(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
solidSolutionConcentration(i) = IO_floatValue(line,positions,2_pInt)
|
case('solidsolutionconcentration')
|
||||||
case('p')
|
solidSolutionConcentration(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
pParam(i) = IO_floatValue(line,positions,2_pInt)
|
case('p')
|
||||||
case('q')
|
pParam(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
qParam(i) = IO_floatValue(line,positions,2_pInt)
|
case('q')
|
||||||
case('viscosity','glideviscosity')
|
qParam(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
viscosity(i) = IO_floatValue(line,positions,2_pInt)
|
case('viscosity','glideviscosity')
|
||||||
case('attackfrequency','fattack')
|
viscosity(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
fattack(i) = IO_floatValue(line,positions,2_pInt)
|
case('attackfrequency','fattack')
|
||||||
case('rhosglscatter')
|
fattack(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
rhoSglScatter(i) = IO_floatValue(line,positions,2_pInt)
|
case('rhosglscatter')
|
||||||
case('rhosglrandom')
|
rhoSglScatter(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
rhoSglRandom(i) = IO_floatValue(line,positions,2_pInt)
|
case('rhosglrandom')
|
||||||
case('rhosglrandombinning')
|
rhoSglRandom(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
rhoSglRandomBinning(i) = IO_floatValue(line,positions,2_pInt)
|
case('rhosglrandombinning')
|
||||||
case('surfacetransmissivity')
|
rhoSglRandomBinning(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
surfaceTransmissivity(i) = IO_floatValue(line,positions,2_pInt)
|
case('surfacetransmissivity')
|
||||||
case('grainboundarytransmissivity')
|
surfaceTransmissivity(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
grainboundaryTransmissivity(i) = IO_floatValue(line,positions,2_pInt)
|
case('grainboundarytransmissivity')
|
||||||
case('cflfactor')
|
grainboundaryTransmissivity(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
CFLfactor(i) = IO_floatValue(line,positions,2_pInt)
|
case('cflfactor')
|
||||||
case('fedgemultiplication','edgemultiplicationfactor','edgemultiplication')
|
CFLfactor(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
fEdgeMultiplication(i) = IO_floatValue(line,positions,2_pInt)
|
case('fedgemultiplication','edgemultiplicationfactor','edgemultiplication')
|
||||||
case('shortrangestresscorrection')
|
fEdgeMultiplication(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
shortRangeStressCorrection(i) = IO_floatValue(line,positions,2_pInt) > 0.0_pReal
|
case('shortrangestresscorrection')
|
||||||
case ('nonschmid_coefficients')
|
shortRangeStressCorrection(i) = IO_floatValue(line,positions,2_pInt) > 0.0_pReal
|
||||||
do f = 1_pInt, lattice_maxNonSchmid
|
case ('nonschmid_coefficients')
|
||||||
nonSchmidCoeff(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
do f = 1_pInt, lattice_maxNonSchmid
|
||||||
enddo
|
nonSchmidCoeff(f,i) = IO_floatValue(line,positions,1_pInt+f)
|
||||||
case('deadzonescaling','deadzone','deadscaling')
|
enddo
|
||||||
deadZoneScaling(i) = IO_floatValue(line,positions,2_pInt) > 0.0_pReal
|
case('deadzonescaling','deadzone','deadscaling')
|
||||||
case('probabilisticmultiplication','randomsources','randommultiplication','discretesources')
|
deadZoneScaling(i) = IO_floatValue(line,positions,2_pInt) > 0.0_pReal
|
||||||
probabilisticMultiplication(i) = IO_floatValue(line,positions,2_pInt) > 0.0_pReal
|
case('probabilisticmultiplication','randomsources','randommultiplication','discretesources')
|
||||||
case default
|
probabilisticMultiplication(i) = IO_floatValue(line,positions,2_pInt) > 0.0_pReal
|
||||||
call IO_error(210_pInt,ext_msg=tag//' ('//CONSTITUTIVE_NONLOCAL_LABEL//')')
|
case default
|
||||||
end select
|
call IO_error(210_pInt,ext_msg=tag//' ('//CONSTITUTIVE_NONLOCAL_LABEL//')')
|
||||||
|
end select
|
||||||
|
endif
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -132,7 +132,7 @@ subroutine constitutive_phenopowerlaw_init(myFile)
|
||||||
integer(pInt), parameter :: MAXNCHUNKS = lattice_maxNinteraction + 1_pInt
|
integer(pInt), parameter :: MAXNCHUNKS = lattice_maxNinteraction + 1_pInt
|
||||||
integer(pInt), dimension(1+2*MAXNCHUNKS) :: positions
|
integer(pInt), dimension(1+2*MAXNCHUNKS) :: positions
|
||||||
integer(pInt), dimension(6) :: configNchunks
|
integer(pInt), dimension(6) :: configNchunks
|
||||||
integer(pInt) :: section, maxNinstance, i,j,k, f,o, &
|
integer(pInt) :: section = 0_pInt, maxNinstance, i,j,k, f,o, &
|
||||||
Nchunks_SlipSlip, Nchunks_SlipTwin, Nchunks_TwinSlip, Nchunks_TwinTwin, &
|
Nchunks_SlipSlip, Nchunks_SlipTwin, Nchunks_TwinSlip, Nchunks_TwinTwin, &
|
||||||
Nchunks_SlipFamilies, Nchunks_TwinFamilies, &
|
Nchunks_SlipFamilies, Nchunks_TwinFamilies, &
|
||||||
mySize=0_pInt, myStructure, index_myFamily, index_otherFamily
|
mySize=0_pInt, myStructure, index_myFamily, index_otherFamily
|
||||||
|
|
@ -239,7 +239,6 @@ subroutine constitutive_phenopowerlaw_init(myFile)
|
||||||
constitutive_phenopowerlaw_nonSchmidCoeff = 0.0_pReal
|
constitutive_phenopowerlaw_nonSchmidCoeff = 0.0_pReal
|
||||||
|
|
||||||
rewind(myFile)
|
rewind(myFile)
|
||||||
section = 0_pInt
|
|
||||||
|
|
||||||
do while (IO_lc(IO_getTag(line,'<','>')) /= 'phase') ! wind forward to <phase>
|
do while (IO_lc(IO_getTag(line,'<','>')) /= 'phase') ! wind forward to <phase>
|
||||||
read(myFile,'(a1024)',END=100) line
|
read(myFile,'(a1024)',END=100) line
|
||||||
|
|
@ -253,124 +252,126 @@ subroutine constitutive_phenopowerlaw_init(myFile)
|
||||||
section = section + 1_pInt ! advance section counter
|
section = section + 1_pInt ! advance section counter
|
||||||
cycle ! skip to next line
|
cycle ! skip to next line
|
||||||
endif
|
endif
|
||||||
if (section > 0_pInt .and. phase_plasticity(section) == constitutive_phenopowerlaw_label) then ! one of my sections
|
if (section > 0_pInt ) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran
|
||||||
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
if (phase_plasticity(section) == constitutive_phenopowerlaw_LABEL) then ! one of my sections
|
||||||
positions = IO_stringPos(line,MAXNCHUNKS)
|
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
||||||
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
positions = IO_stringPos(line,MAXNCHUNKS)
|
||||||
select case(tag)
|
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
||||||
case ('plasticity','elasticity')
|
select case(tag)
|
||||||
cycle
|
case ('plasticity','elasticity')
|
||||||
case ('(output)')
|
cycle
|
||||||
constitutive_phenopowerlaw_Noutput(i) = constitutive_phenopowerlaw_Noutput(i) + 1_pInt
|
case ('(output)')
|
||||||
constitutive_phenopowerlaw_output(constitutive_phenopowerlaw_Noutput(i),i) = &
|
constitutive_phenopowerlaw_Noutput(i) = constitutive_phenopowerlaw_Noutput(i) + 1_pInt
|
||||||
IO_lc(IO_stringValue(line,positions,2_pInt))
|
constitutive_phenopowerlaw_output(constitutive_phenopowerlaw_Noutput(i),i) = &
|
||||||
case ('lattice_structure')
|
IO_lc(IO_stringValue(line,positions,2_pInt))
|
||||||
constitutive_phenopowerlaw_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
case ('lattice_structure')
|
||||||
configNchunks = lattice_configNchunks(constitutive_phenopowerlaw_structureName(i))
|
constitutive_phenopowerlaw_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
||||||
Nchunks_SlipFamilies = configNchunks(1)
|
configNchunks = lattice_configNchunks(constitutive_phenopowerlaw_structureName(i))
|
||||||
Nchunks_TwinFamilies = configNchunks(2)
|
Nchunks_SlipFamilies = configNchunks(1)
|
||||||
Nchunks_SlipSlip = configNchunks(3)
|
Nchunks_TwinFamilies = configNchunks(2)
|
||||||
Nchunks_SlipTwin = configNchunks(4)
|
Nchunks_SlipSlip = configNchunks(3)
|
||||||
Nchunks_TwinSlip = configNchunks(5)
|
Nchunks_SlipTwin = configNchunks(4)
|
||||||
Nchunks_TwinTwin = configNchunks(6)
|
Nchunks_TwinSlip = configNchunks(5)
|
||||||
case ('covera_ratio')
|
Nchunks_TwinTwin = configNchunks(6)
|
||||||
constitutive_phenopowerlaw_CoverA(i) = IO_floatValue(line,positions,2_pInt)
|
case ('covera_ratio')
|
||||||
case ('c11')
|
constitutive_phenopowerlaw_CoverA(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_Cslip_66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c11')
|
||||||
case ('c12')
|
constitutive_phenopowerlaw_Cslip_66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_Cslip_66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c12')
|
||||||
case ('c13')
|
constitutive_phenopowerlaw_Cslip_66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c13')
|
||||||
case ('c22')
|
constitutive_phenopowerlaw_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_Cslip_66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c22')
|
||||||
case ('c23')
|
constitutive_phenopowerlaw_Cslip_66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_Cslip_66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c23')
|
||||||
case ('c33')
|
constitutive_phenopowerlaw_Cslip_66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_Cslip_66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c33')
|
||||||
case ('c44')
|
constitutive_phenopowerlaw_Cslip_66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_Cslip_66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c44')
|
||||||
case ('c55')
|
constitutive_phenopowerlaw_Cslip_66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_Cslip_66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c55')
|
||||||
case ('c66')
|
constitutive_phenopowerlaw_Cslip_66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_Cslip_66(6,6,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c66')
|
||||||
case ('nslip')
|
constitutive_phenopowerlaw_Cslip_66(6,6,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('nslip')
|
||||||
constitutive_phenopowerlaw_Nslip(j,i) = IO_intValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_phenopowerlaw_Nslip(j,i) = IO_intValue(line,positions,1_pInt+j)
|
||||||
case ('gdot0_slip')
|
enddo
|
||||||
constitutive_phenopowerlaw_gdot0_slip(i) = IO_floatValue(line,positions,2_pInt)
|
case ('gdot0_slip')
|
||||||
case ('n_slip')
|
constitutive_phenopowerlaw_gdot0_slip(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_n_slip(i) = IO_floatValue(line,positions,2_pInt)
|
case ('n_slip')
|
||||||
case ('tau0_slip')
|
constitutive_phenopowerlaw_n_slip(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('tau0_slip')
|
||||||
constitutive_phenopowerlaw_tau0_slip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_phenopowerlaw_tau0_slip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('tausat_slip')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('tausat_slip')
|
||||||
constitutive_phenopowerlaw_tausat_slip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_phenopowerlaw_tausat_slip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('a_slip', 'w0_slip')
|
enddo
|
||||||
constitutive_phenopowerlaw_a_slip(i) = IO_floatValue(line,positions,2_pInt)
|
case ('a_slip', 'w0_slip')
|
||||||
case ('ntwin')
|
constitutive_phenopowerlaw_a_slip(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('ntwin')
|
||||||
constitutive_phenopowerlaw_Ntwin(j,i) = IO_intValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_phenopowerlaw_Ntwin(j,i) = IO_intValue(line,positions,1_pInt+j)
|
||||||
case ('gdot0_twin')
|
enddo
|
||||||
constitutive_phenopowerlaw_gdot0_twin(i) = IO_floatValue(line,positions,2_pInt)
|
case ('gdot0_twin')
|
||||||
case ('n_twin')
|
constitutive_phenopowerlaw_gdot0_twin(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_n_twin(i) = IO_floatValue(line,positions,2_pInt)
|
case ('n_twin')
|
||||||
case ('tau0_twin')
|
constitutive_phenopowerlaw_n_twin(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('tau0_twin')
|
||||||
constitutive_phenopowerlaw_tau0_twin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_phenopowerlaw_tau0_twin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('s_pr')
|
enddo
|
||||||
constitutive_phenopowerlaw_spr(i) = IO_floatValue(line,positions,2_pInt)
|
case ('s_pr')
|
||||||
case ('twin_b')
|
constitutive_phenopowerlaw_spr(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_twinB(i) = IO_floatValue(line,positions,2_pInt)
|
case ('twin_b')
|
||||||
case ('twin_c')
|
constitutive_phenopowerlaw_twinB(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_twinC(i) = IO_floatValue(line,positions,2_pInt)
|
case ('twin_c')
|
||||||
case ('twin_d')
|
constitutive_phenopowerlaw_twinC(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_twinD(i) = IO_floatValue(line,positions,2_pInt)
|
case ('twin_d')
|
||||||
case ('twin_e')
|
constitutive_phenopowerlaw_twinD(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_twinE(i) = IO_floatValue(line,positions,2_pInt)
|
case ('twin_e')
|
||||||
case ('h0_slipslip')
|
constitutive_phenopowerlaw_twinE(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_h0_SlipSlip(i) = IO_floatValue(line,positions,2_pInt)
|
case ('h0_slipslip')
|
||||||
case ('h0_sliptwin')
|
constitutive_phenopowerlaw_h0_SlipSlip(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_h0_SlipTwin(i) = IO_floatValue(line,positions,2_pInt)
|
case ('h0_sliptwin')
|
||||||
call IO_warning(42_pInt,ext_msg=trim(tag)//' ('//constitutive_phenopowerlaw_label//')')
|
constitutive_phenopowerlaw_h0_SlipTwin(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
case ('h0_twinslip')
|
call IO_warning(42_pInt,ext_msg=trim(tag)//' ('//constitutive_phenopowerlaw_label//')')
|
||||||
constitutive_phenopowerlaw_h0_TwinSlip(i) = IO_floatValue(line,positions,2_pInt)
|
case ('h0_twinslip')
|
||||||
case ('h0_twintwin')
|
constitutive_phenopowerlaw_h0_TwinSlip(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_h0_TwinTwin(i) = IO_floatValue(line,positions,2_pInt)
|
case ('h0_twintwin')
|
||||||
case ('atol_resistance')
|
constitutive_phenopowerlaw_h0_TwinTwin(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_aTolResistance(i) = IO_floatValue(line,positions,2_pInt)
|
case ('atol_resistance')
|
||||||
case ('atol_shear')
|
constitutive_phenopowerlaw_aTolResistance(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_aTolShear(i) = IO_floatValue(line,positions,2_pInt)
|
case ('atol_shear')
|
||||||
case ('atol_twinfrac')
|
constitutive_phenopowerlaw_aTolShear(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_phenopowerlaw_aTolTwinfrac(i) = IO_floatValue(line,positions,2_pInt)
|
case ('atol_twinfrac')
|
||||||
case ('interaction_slipslip')
|
constitutive_phenopowerlaw_aTolTwinfrac(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do j = 1_pInt, Nchunks_SlipSlip
|
case ('interaction_slipslip')
|
||||||
constitutive_phenopowerlaw_interaction_SlipSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipSlip
|
||||||
enddo
|
constitutive_phenopowerlaw_interaction_SlipSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interaction_sliptwin')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipTwin
|
case ('interaction_sliptwin')
|
||||||
constitutive_phenopowerlaw_interaction_SlipTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipTwin
|
||||||
enddo
|
constitutive_phenopowerlaw_interaction_SlipTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interaction_twinslip')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinSlip
|
case ('interaction_twinslip')
|
||||||
constitutive_phenopowerlaw_interaction_TwinSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinSlip
|
||||||
enddo
|
constitutive_phenopowerlaw_interaction_TwinSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interaction_twintwin')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinTwin
|
case ('interaction_twintwin')
|
||||||
constitutive_phenopowerlaw_interaction_TwinTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinTwin
|
||||||
enddo
|
constitutive_phenopowerlaw_interaction_TwinTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('nonschmid_coefficients')
|
enddo
|
||||||
do j = 1_pInt, lattice_maxNonSchmid
|
case ('nonschmid_coefficients')
|
||||||
constitutive_phenopowerlaw_nonSchmidCoeff(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, lattice_maxNonSchmid
|
||||||
enddo
|
constitutive_phenopowerlaw_nonSchmidCoeff(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case default
|
enddo
|
||||||
call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_phenopowerlaw_label//')')
|
case default
|
||||||
end select
|
call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_phenopowerlaw_label//')')
|
||||||
|
end select
|
||||||
|
endif
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -247,7 +247,7 @@ integer(pInt), intent(in) :: file
|
||||||
integer(pInt), parameter :: maxNchunks = 21_pInt
|
integer(pInt), parameter :: maxNchunks = 21_pInt
|
||||||
integer(pInt), dimension(1_pInt+2_pInt*maxNchunks) :: positions
|
integer(pInt), dimension(1_pInt+2_pInt*maxNchunks) :: positions
|
||||||
integer(pInt), dimension(6) :: configNchunks
|
integer(pInt), dimension(6) :: configNchunks
|
||||||
integer(pInt) :: section,f,i,j,k,l,m,n,o,p,q,r,s,s1,s2,t,t1,t2,ns,nt,&
|
integer(pInt) :: section = 0_pInt,f,i,j,k,l,m,n,o,p,q,r,s,s1,s2,t,t1,t2,ns,nt,&
|
||||||
Nchunks_SlipSlip, Nchunks_SlipTwin, Nchunks_TwinSlip, Nchunks_TwinTwin, &
|
Nchunks_SlipSlip, Nchunks_SlipTwin, Nchunks_TwinSlip, Nchunks_TwinTwin, &
|
||||||
Nchunks_SlipFamilies, Nchunks_TwinFamilies, &
|
Nchunks_SlipFamilies, Nchunks_TwinFamilies, &
|
||||||
mySize,myStructure,maxTotalNslip,maxTotalNtwin
|
mySize,myStructure,maxTotalNslip,maxTotalNtwin
|
||||||
|
|
@ -414,8 +414,6 @@ allocate(constitutive_titanmod_interactionTwinTwin(lattice_maxNinteraction,maxNi
|
||||||
|
|
||||||
!* Read data from material.config file
|
!* Read data from material.config file
|
||||||
rewind(file)
|
rewind(file)
|
||||||
line = ''
|
|
||||||
section = 0_pInt
|
|
||||||
|
|
||||||
do while (IO_lc(IO_getTag(line,'<','>')) /= 'phase') ! wind forward to <phase>
|
do while (IO_lc(IO_getTag(line,'<','>')) /= 'phase') ! wind forward to <phase>
|
||||||
read(file,'(a1024)',END=100) line
|
read(file,'(a1024)',END=100) line
|
||||||
|
|
@ -429,202 +427,204 @@ enddo
|
||||||
section = section + 1_pInt ! advance section counter
|
section = section + 1_pInt ! advance section counter
|
||||||
cycle ! skip to next line
|
cycle ! skip to next line
|
||||||
endif
|
endif
|
||||||
if (section > 0_pInt .and. phase_plasticity(section) == constitutive_titanmod_label) then ! one of my sections
|
if (section > 0_pInt ) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran
|
||||||
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
if (phase_plasticity(section) == constitutive_titanmod_LABEL) then ! one of my sections
|
||||||
positions = IO_stringPos(line,maxNchunks)
|
i = phase_plasticityInstance(section) ! which instance of my plasticity is present phase
|
||||||
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
positions = IO_stringPos(line,maxNchunks)
|
||||||
select case(tag)
|
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
||||||
case ('plasticity','elasticity')
|
select case(tag)
|
||||||
cycle
|
case ('plasticity','elasticity')
|
||||||
case ('(output)')
|
cycle
|
||||||
constitutive_titanmod_Noutput(i) = constitutive_titanmod_Noutput(i) + 1_pInt
|
case ('(output)')
|
||||||
constitutive_titanmod_output(constitutive_titanmod_Noutput(i),i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
constitutive_titanmod_Noutput(i) = constitutive_titanmod_Noutput(i) + 1_pInt
|
||||||
case ('lattice_structure')
|
constitutive_titanmod_output(constitutive_titanmod_Noutput(i),i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
||||||
constitutive_titanmod_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
case ('lattice_structure')
|
||||||
configNchunks = lattice_configNchunks(constitutive_titanmod_structureName(i))
|
constitutive_titanmod_structureName(i) = IO_lc(IO_stringValue(line,positions,2_pInt))
|
||||||
Nchunks_SlipFamilies = configNchunks(1)
|
configNchunks = lattice_configNchunks(constitutive_titanmod_structureName(i))
|
||||||
Nchunks_TwinFamilies = configNchunks(2)
|
Nchunks_SlipFamilies = configNchunks(1)
|
||||||
Nchunks_SlipSlip = configNchunks(3)
|
Nchunks_TwinFamilies = configNchunks(2)
|
||||||
Nchunks_SlipTwin = configNchunks(4)
|
Nchunks_SlipSlip = configNchunks(3)
|
||||||
Nchunks_TwinSlip = configNchunks(5)
|
Nchunks_SlipTwin = configNchunks(4)
|
||||||
Nchunks_TwinTwin = configNchunks(6)
|
Nchunks_TwinSlip = configNchunks(5)
|
||||||
case ('covera_ratio')
|
Nchunks_TwinTwin = configNchunks(6)
|
||||||
constitutive_titanmod_CoverA(i) = IO_floatValue(line,positions,2_pInt)
|
case ('covera_ratio')
|
||||||
case ('c11')
|
constitutive_titanmod_CoverA(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_Cslip_66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c11')
|
||||||
case ('c12')
|
constitutive_titanmod_Cslip_66(1,1,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_Cslip_66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c12')
|
||||||
case ('c13')
|
constitutive_titanmod_Cslip_66(1,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c13')
|
||||||
case ('c22')
|
constitutive_titanmod_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_Cslip_66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c22')
|
||||||
case ('c23')
|
constitutive_titanmod_Cslip_66(2,2,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_Cslip_66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c23')
|
||||||
case ('c33')
|
constitutive_titanmod_Cslip_66(2,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_Cslip_66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c33')
|
||||||
case ('c44')
|
constitutive_titanmod_Cslip_66(3,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_Cslip_66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c44')
|
||||||
case ('c55')
|
constitutive_titanmod_Cslip_66(4,4,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_Cslip_66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c55')
|
||||||
case ('c66')
|
constitutive_titanmod_Cslip_66(5,5,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
case ('c66')
|
||||||
case ('debyefrequency')
|
constitutive_titanmod_Cslip_66(1,3,i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_debyefrequency(i) = IO_floatValue(line,positions,2_pInt)
|
case ('debyefrequency')
|
||||||
case ('kinkf0')
|
constitutive_titanmod_debyefrequency(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_kinkf0(i) = IO_floatValue(line,positions,2_pInt)
|
case ('kinkf0')
|
||||||
case ('nslip')
|
constitutive_titanmod_kinkf0(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('nslip')
|
||||||
constitutive_titanmod_Nslip(j,i) = IO_intValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_Nslip(j,i) = IO_intValue(line,positions,1_pInt+j)
|
||||||
case ('ntwin')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('ntwin')
|
||||||
constitutive_titanmod_Ntwin(j,i) = IO_intValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_titanmod_Ntwin(j,i) = IO_intValue(line,positions,1_pInt+j)
|
||||||
case ('rho_edge0')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('rho_edge0')
|
||||||
constitutive_titanmod_rho_edge0(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_rho_edge0(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('rho_screw0')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('rho_screw0')
|
||||||
constitutive_titanmod_rho_screw0(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_rho_screw0(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('slipburgers')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('slipburgers')
|
||||||
constitutive_titanmod_burgersPerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_burgersPerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('twinburgers')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('twinburgers')
|
||||||
constitutive_titanmod_burgersPerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_titanmod_burgersPerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('f0')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('f0')
|
||||||
constitutive_titanmod_f0_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_f0_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('twinf0')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('twinf0')
|
||||||
constitutive_titanmod_twinf0_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_titanmod_twinf0_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('tau0e')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('tau0e')
|
||||||
constitutive_titanmod_tau0e_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_tau0e_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('twintau0')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('twintau0')
|
||||||
constitutive_titanmod_twintau0_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_titanmod_twintau0_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('tau0s')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('tau0s')
|
||||||
constitutive_titanmod_tau0s_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_tau0s_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('capre')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('capre')
|
||||||
constitutive_titanmod_capre_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_capre_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('caprs')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('caprs')
|
||||||
constitutive_titanmod_caprs_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_caprs_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('v0e')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('v0e')
|
||||||
constitutive_titanmod_v0e_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_v0e_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('twingamma0')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('twingamma0')
|
||||||
constitutive_titanmod_twingamma0_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_titanmod_twingamma0_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('v0s')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('v0s')
|
||||||
constitutive_titanmod_v0s_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_v0s_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('kinkcriticallength')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('kinkcriticallength')
|
||||||
constitutive_titanmod_kinkcriticallength_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_kinkcriticallength_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('twinsize')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('twinsize')
|
||||||
constitutive_titanmod_twinsizePerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_titanmod_twinsizePerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('celambdaslip')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('celambdaslip')
|
||||||
constitutive_titanmod_CeLambdaSlipPerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_CeLambdaSlipPerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('twinlambdaslip')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('twinlambdaslip')
|
||||||
constitutive_titanmod_twinlambdaslipPerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_titanmod_twinlambdaslipPerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('cslambdaslip')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('cslambdaslip')
|
||||||
constitutive_titanmod_CsLambdaSlipPerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_CsLambdaSlipPerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('grainsize')
|
enddo
|
||||||
constitutive_titanmod_GrainSize(i) = IO_floatValue(line,positions,2_pInt)
|
case ('grainsize')
|
||||||
case ('maxtwinfraction')
|
constitutive_titanmod_GrainSize(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_MaxTwinFraction(i) = IO_floatValue(line,positions,2_pInt)
|
case ('maxtwinfraction')
|
||||||
case ('pe')
|
constitutive_titanmod_MaxTwinFraction(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('pe')
|
||||||
constitutive_titanmod_pe_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_pe_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('twinp')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('twinp')
|
||||||
constitutive_titanmod_twinp_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_titanmod_twinp_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('ps')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('ps')
|
||||||
constitutive_titanmod_ps_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_ps_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('qe')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('qe')
|
||||||
constitutive_titanmod_qe_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_qe_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('twinq')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('twinq')
|
||||||
constitutive_titanmod_twinq_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_titanmod_twinq_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('qs')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipFamilies
|
case ('qs')
|
||||||
constitutive_titanmod_qs_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipFamilies
|
||||||
enddo
|
constitutive_titanmod_qs_PerSlipFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('twinshearconstant')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinFamilies
|
case ('twinshearconstant')
|
||||||
constitutive_titanmod_twinshearconstant_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinFamilies
|
||||||
enddo
|
constitutive_titanmod_twinshearconstant_PerTwinFamily(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('dc')
|
enddo
|
||||||
constitutive_titanmod_dc(i) = IO_floatValue(line,positions,2_pInt)
|
case ('dc')
|
||||||
case ('twinhpconstant')
|
constitutive_titanmod_dc(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_twinhpconstant(i) = IO_floatValue(line,positions,2_pInt)
|
case ('twinhpconstant')
|
||||||
case ('atol_rho')
|
constitutive_titanmod_twinhpconstant(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
constitutive_titanmod_aTolRho(i) = IO_floatValue(line,positions,2_pInt)
|
case ('atol_rho')
|
||||||
case ('interactionslipslip')
|
constitutive_titanmod_aTolRho(i) = IO_floatValue(line,positions,2_pInt)
|
||||||
do j = 1_pInt, Nchunks_SlipSlip
|
case ('interactionslipslip')
|
||||||
constitutive_titanmod_interactionSlipSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipSlip
|
||||||
enddo
|
constitutive_titanmod_interactionSlipSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interactionee')
|
enddo
|
||||||
do j = 1_pInt, lattice_maxNinteraction
|
case ('interactionee')
|
||||||
constitutive_titanmod_interaction_ee(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, lattice_maxNinteraction
|
||||||
enddo
|
constitutive_titanmod_interaction_ee(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interactionss')
|
enddo
|
||||||
do j = 1_pInt, lattice_maxNinteraction
|
case ('interactionss')
|
||||||
constitutive_titanmod_interaction_ss(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, lattice_maxNinteraction
|
||||||
enddo
|
constitutive_titanmod_interaction_ss(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interactiones')
|
enddo
|
||||||
do j = 1_pInt, lattice_maxNinteraction
|
case ('interactiones')
|
||||||
constitutive_titanmod_interaction_es(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, lattice_maxNinteraction
|
||||||
enddo
|
constitutive_titanmod_interaction_es(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interactionsliptwin')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_SlipTwin
|
case ('interactionsliptwin')
|
||||||
constitutive_titanmod_interactionSlipTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_SlipTwin
|
||||||
enddo
|
constitutive_titanmod_interactionSlipTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interactiontwinslip')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinSlip
|
case ('interactiontwinslip')
|
||||||
constitutive_titanmod_interactionTwinSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinSlip
|
||||||
enddo
|
constitutive_titanmod_interactionTwinSlip(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case ('interactiontwintwin')
|
enddo
|
||||||
do j = 1_pInt, Nchunks_TwinTwin
|
case ('interactiontwintwin')
|
||||||
constitutive_titanmod_interactionTwinTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
do j = 1_pInt, Nchunks_TwinTwin
|
||||||
enddo
|
constitutive_titanmod_interactionTwinTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
|
||||||
case default
|
enddo
|
||||||
call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_titanmod_label//')')
|
case default
|
||||||
end select
|
call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_titanmod_label//')')
|
||||||
|
end select
|
||||||
|
endif
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue