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

more systematic names

This commit is contained in:
Martin Diehl 2019-03-16 08:55:25 +01:00
parent b426145f0d
commit 510c0da02c
1 changed files with 86 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

172
src/plastic_nonlocal.f90
View File

@ -37,16 +37,16 @@ module plastic_nonlocal
enum, bind(c) enum, bind(c)
enumerator :: undefined_ID, & enumerator :: undefined_ID, &
rho_sgl_edge_pos_mobile_ID, & rho_sgl_mob_edg_pos_ID, &
rho_sgl_edge_neg_mobile_ID, & rho_sgl_mob_edg_neg_ID, &
rho_sgl_screw_pos_mobile_ID, & rho_sgl_mob_scr_pos_ID, &
rho_sgl_screw_neg_mobile_ID, & rho_sgl_mob_scr_neg_ID, &
rho_sgl_edge_pos_immobile_ID, & rho_sgl_imm_edg_pos_ID, &
rho_sgl_edge_neg_immobile_ID, & rho_sgl_imm_edg_neg_ID, &
rho_sgl_screw_pos_immobile_ID, & rho_sgl_imm_scr_pos_ID, &
rho_sgl_screw_neg_immobile_ID, & rho_sgl_imm_scr_neg_ID, &
rho_dip_edge_ID, & rho_dip_edg_ID, &
rho_dip_screw_ID, & rho_dip_scr_ID, &
rho_forest_ID, & rho_forest_ID, &
shearrate_ID, & shearrate_ID, &
resolvedstress_ID, & resolvedstress_ID, &
@ -177,18 +177,18 @@ module plastic_nonlocal
rhoSgl, & rhoSgl, &
rhoSglMobile, & ! iRhoU rhoSglMobile, & ! iRhoU
rhoSglEdgeMobile, & rhoSglEdgeMobile, &
rhoSglEdgeMobilePos, & rho_sgl_mob_edg_pos, &
rhoSglEdgeMobileNeg, & rho_sgl_mob_edg_neg, &
rhoSglScrewMobile, & rhoSglScrewMobile, &
rhoSglScrewMobilePos, & rho_sgl_mob_scr_pos, &
rhoSglScrewMobileNeg, & rho_sgl_mob_scr_neg, &
rhoSglImmobile, & ! iRhoB rhoSglImmobile, & ! iRhoB
rhoSglEdgeImmobile, & rhoSglEdgeImmobile, &
rhoSglEdgeImmobilePos, & rho_sgl_imm_edg_pos, &
rhoSglEdgeImmobileNeg, & rho_sgl_imm_edg_neg, &
rhoSglScrewImmobile, & rhoSglScrewImmobile, &
rhoSglScrewImmobilePos, & rho_sgl_imm_scr_pos, &
rhoSglScrewImmobileNeg, & rho_sgl_imm_scr_neg, &
rhoSglPos, & rhoSglPos, &
rhoSglMobilePos, & rhoSglMobilePos, &
rhoSglImmobilePos, & rhoSglImmobilePos, &
@ -196,8 +196,8 @@ module plastic_nonlocal
rhoSglMobileNeg, & rhoSglMobileNeg, &
rhoSglImmobileNeg, & rhoSglImmobileNeg, &
rhoDip, & ! iRhoD rhoDip, & ! iRhoD
rhoDipEdge, & rho_dip_edg, &
rhoDipScrew, & rho_dip_scr, &
rhoSglScrew, & rhoSglScrew, &
rhoSglEdge, & rhoSglEdge, &
accumulatedshear accumulatedshear
@ -490,25 +490,25 @@ extmsg = trim(extmsg)//' fEdgeMultiplication'
outputID = undefined_ID outputID = undefined_ID
select case(trim(outputs(i))) select case(trim(outputs(i)))
case ('rho_sgl_edge_pos_mobile') case ('rho_sgl_edge_pos_mobile')
outputID = merge(rho_sgl_edge_pos_mobile_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_sgl_mob_edg_pos_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_sgl_edge_neg_mobile') case ('rho_sgl_edge_neg_mobile')
outputID = merge(rho_sgl_edge_neg_mobile_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_sgl_mob_edg_neg_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_sgl_screw_pos_mobile') case ('rho_sgl_screw_pos_mobile')
outputID = merge(rho_sgl_screw_pos_mobile_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_sgl_mob_scr_pos_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_sgl_screw_neg_mobile') case ('rho_sgl_screw_neg_mobile')
outputID = merge(rho_sgl_screw_neg_mobile_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_sgl_mob_scr_neg_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_sgl_edge_pos_immobile') case ('rho_sgl_edge_pos_immobile')
outputID = merge(rho_sgl_edge_pos_immobile_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_sgl_imm_edg_pos_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_sgl_edge_neg_immobile') case ('rho_sgl_edge_neg_immobile')
outputID = merge(rho_sgl_edge_neg_immobile_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_sgl_imm_edg_neg_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_sgl_screw_pos_immobile') case ('rho_sgl_screw_pos_immobile')
outputID = merge(rho_sgl_screw_pos_immobile_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_sgl_imm_scr_pos_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_sgl_screw_neg_immobile') case ('rho_sgl_screw_neg_immobile')
outputID = merge(rho_sgl_screw_neg_immobile_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_sgl_imm_scr_neg_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_dip_edge') case ('rho_dip_edge')
outputID = merge(rho_dip_edge_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_dip_edg_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_dip_screw') case ('rho_dip_screw')
outputID = merge(rho_dip_screw_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_dip_scr_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_forest') case ('rho_forest')
outputID = merge(rho_forest_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_forest_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('shearrate') case ('shearrate')
@ -620,25 +620,25 @@ extmsg = trim(extmsg)//' fEdgeMultiplication'
dot%rhoSglEdgeMobile => plasticState(p)%dotState (0_pInt*prm%totalNslip+1_pInt: 2_pInt*prm%totalNslip,:) dot%rhoSglEdgeMobile => plasticState(p)%dotState (0_pInt*prm%totalNslip+1_pInt: 2_pInt*prm%totalNslip,:)
del%rhoSglEdgeMobile => plasticState(p)%deltaState (0_pInt*prm%totalNslip+1_pInt: 2_pInt*prm%totalNslip,:) del%rhoSglEdgeMobile => plasticState(p)%deltaState (0_pInt*prm%totalNslip+1_pInt: 2_pInt*prm%totalNslip,:)
stt%rhoSglEdgeMobilePos => plasticState(p)%state (0_pInt*prm%totalNslip+1_pInt: 1_pInt*prm%totalNslip,:) stt%rho_sgl_mob_edg_pos => plasticState(p)%state (0_pInt*prm%totalNslip+1_pInt: 1_pInt*prm%totalNslip,:)
dot%rhoSglEdgeMobilePos => plasticState(p)%dotState (0_pInt*prm%totalNslip+1_pInt: 1_pInt*prm%totalNslip,:) dot%rho_sgl_mob_edg_pos => plasticState(p)%dotState (0_pInt*prm%totalNslip+1_pInt: 1_pInt*prm%totalNslip,:)
del%rhoSglEdgeMobilePos => plasticState(p)%deltaState (0_pInt*prm%totalNslip+1_pInt: 1_pInt*prm%totalNslip,:) del%rho_sgl_mob_edg_pos => plasticState(p)%deltaState (0_pInt*prm%totalNslip+1_pInt: 1_pInt*prm%totalNslip,:)
stt%rhoSglEdgeMobileNeg => plasticState(p)%state (1_pInt*prm%totalNslip+1_pInt: 2_pInt*prm%totalNslip,:) stt%rho_sgl_mob_edg_neg => plasticState(p)%state (1_pInt*prm%totalNslip+1_pInt: 2_pInt*prm%totalNslip,:)
dot%rhoSglEdgeMobileNeg => plasticState(p)%dotState (1_pInt*prm%totalNslip+1_pInt: 2_pInt*prm%totalNslip,:) dot%rho_sgl_mob_edg_neg => plasticState(p)%dotState (1_pInt*prm%totalNslip+1_pInt: 2_pInt*prm%totalNslip,:)
del%rhoSglEdgeMobileNeg => plasticState(p)%deltaState (1_pInt*prm%totalNslip+1_pInt: 2_pInt*prm%totalNslip,:) del%rho_sgl_mob_edg_neg => plasticState(p)%deltaState (1_pInt*prm%totalNslip+1_pInt: 2_pInt*prm%totalNslip,:)
stt%rhoSglScrewMobile => plasticState(p)%state (2_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:) stt%rhoSglScrewMobile => plasticState(p)%state (2_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:)
dot%rhoSglScrewMobile => plasticState(p)%dotState (2_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:) dot%rhoSglScrewMobile => plasticState(p)%dotState (2_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:)
del%rhoSglScrewMobile => plasticState(p)%deltaState (2_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:) del%rhoSglScrewMobile => plasticState(p)%deltaState (2_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:)
stt%rhoSglScrewMobilePos => plasticState(p)%state (2_pInt*prm%totalNslip+1_pInt: 3_pInt*prm%totalNslip,:) stt%rho_sgl_mob_scr_pos => plasticState(p)%state (2_pInt*prm%totalNslip+1_pInt: 3_pInt*prm%totalNslip,:)
dot%rhoSglScrewMobilePos => plasticState(p)%dotState (2_pInt*prm%totalNslip+1_pInt: 3_pInt*prm%totalNslip,:) dot%rho_sgl_mob_scr_pos => plasticState(p)%dotState (2_pInt*prm%totalNslip+1_pInt: 3_pInt*prm%totalNslip,:)
del%rhoSglScrewMobilePos => plasticState(p)%deltaState (2_pInt*prm%totalNslip+1_pInt: 3_pInt*prm%totalNslip,:) del%rho_sgl_mob_scr_pos => plasticState(p)%deltaState (2_pInt*prm%totalNslip+1_pInt: 3_pInt*prm%totalNslip,:)
stt%rhoSglScrewMobileNeg => plasticState(p)%state (3_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:) stt%rho_sgl_mob_scr_neg => plasticState(p)%state (3_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:)
dot%rhoSglScrewMobileNeg => plasticState(p)%dotState (3_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:) dot%rho_sgl_mob_scr_neg => plasticState(p)%dotState (3_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:)
del%rhoSglScrewMobileNeg => plasticState(p)%deltaState (3_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:) del%rho_sgl_mob_scr_neg => plasticState(p)%deltaState (3_pInt*prm%totalNslip+1_pInt: 4_pInt*prm%totalNslip,:)
stt%rhoSglImmobile => plasticState(p)%state (4_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:) stt%rhoSglImmobile => plasticState(p)%state (4_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:)
dot%rhoSglImmobile => plasticState(p)%dotState (4_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:) dot%rhoSglImmobile => plasticState(p)%dotState (4_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:)
@ -648,37 +648,37 @@ extmsg = trim(extmsg)//' fEdgeMultiplication'
dot%rhoSglEdgeImmobile => plasticState(p)%dotState (4_pInt*prm%totalNslip+1_pInt: 6_pInt*prm%totalNslip,:) dot%rhoSglEdgeImmobile => plasticState(p)%dotState (4_pInt*prm%totalNslip+1_pInt: 6_pInt*prm%totalNslip,:)
del%rhoSglEdgeImmobile => plasticState(p)%deltaState (4_pInt*prm%totalNslip+1_pInt: 6_pInt*prm%totalNslip,:) del%rhoSglEdgeImmobile => plasticState(p)%deltaState (4_pInt*prm%totalNslip+1_pInt: 6_pInt*prm%totalNslip,:)
stt%rhoSglEdgeImmobilePos => plasticState(p)%state (4_pInt*prm%totalNslip+1_pInt: 5_pInt*prm%totalNslip,:) stt%rho_sgl_imm_edg_pos => plasticState(p)%state (4_pInt*prm%totalNslip+1_pInt: 5_pInt*prm%totalNslip,:)
dot%rhoSglEdgeImmobilePos => plasticState(p)%dotState (4_pInt*prm%totalNslip+1_pInt: 5_pInt*prm%totalNslip,:) dot%rho_sgl_imm_edg_pos => plasticState(p)%dotState (4_pInt*prm%totalNslip+1_pInt: 5_pInt*prm%totalNslip,:)
del%rhoSglEdgeImmobilePos => plasticState(p)%deltaState (4_pInt*prm%totalNslip+1_pInt: 5_pInt*prm%totalNslip,:) del%rho_sgl_imm_edg_pos => plasticState(p)%deltaState (4_pInt*prm%totalNslip+1_pInt: 5_pInt*prm%totalNslip,:)
stt%rhoSglEdgeImmobileNeg => plasticState(p)%state (5_pInt*prm%totalNslip+1_pInt: 6_pInt*prm%totalNslip,:) stt%rho_sgl_imm_edg_neg => plasticState(p)%state (5_pInt*prm%totalNslip+1_pInt: 6_pInt*prm%totalNslip,:)
dot%rhoSglEdgeImmobileNeg => plasticState(p)%dotState (5_pInt*prm%totalNslip+1_pInt: 6_pInt*prm%totalNslip,:) dot%rho_sgl_imm_edg_neg => plasticState(p)%dotState (5_pInt*prm%totalNslip+1_pInt: 6_pInt*prm%totalNslip,:)
del%rhoSglEdgeImmobileNeg => plasticState(p)%deltaState (5_pInt*prm%totalNslip+1_pInt: 6_pInt*prm%totalNslip,:) del%rho_sgl_imm_edg_neg => plasticState(p)%deltaState (5_pInt*prm%totalNslip+1_pInt: 6_pInt*prm%totalNslip,:)
stt%rhoSglScrewImmobile => plasticState(p)%state (6_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:) stt%rhoSglScrewImmobile => plasticState(p)%state (6_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:)
dot%rhoSglScrewImmobile => plasticState(p)%dotState (6_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:) dot%rhoSglScrewImmobile => plasticState(p)%dotState (6_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:)
del%rhoSglScrewImmobile => plasticState(p)%deltaState (6_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:) del%rhoSglScrewImmobile => plasticState(p)%deltaState (6_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:)
stt%rhoSglScrewImmobilePos => plasticState(p)%state (6_pInt*prm%totalNslip+1_pInt: 7_pInt*prm%totalNslip,:) stt%rho_sgl_imm_scr_pos => plasticState(p)%state (6_pInt*prm%totalNslip+1_pInt: 7_pInt*prm%totalNslip,:)
dot%rhoSglScrewImmobilePos => plasticState(p)%dotState(6_pInt*prm%totalNslip+1_pInt: 7_pInt*prm%totalNslip,:) dot%rho_sgl_imm_scr_pos => plasticState(p)%dotState(6_pInt*prm%totalNslip+1_pInt: 7_pInt*prm%totalNslip,:)
del%rhoSglScrewImmobilePos => plasticState(p)%deltaState(6_pInt*prm%totalNslip+1_pInt: 7_pInt*prm%totalNslip,:) del%rho_sgl_imm_scr_pos => plasticState(p)%deltaState(6_pInt*prm%totalNslip+1_pInt: 7_pInt*prm%totalNslip,:)
stt%rhoSglScrewImmobileNeg => plasticState(p)%state (7_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:) stt%rho_sgl_imm_scr_neg => plasticState(p)%state (7_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:)
dot%rhoSglScrewImmobileNeg => plasticState(p)%dotState(7_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:) dot%rho_sgl_imm_scr_neg => plasticState(p)%dotState(7_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:)
del%rhoSglScrewImmobileNeg => plasticState(p)%deltaState(7_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:) del%rho_sgl_imm_scr_neg => plasticState(p)%deltaState(7_pInt*prm%totalNslip+1_pInt: 8_pInt*prm%totalNslip,:)
stt%rhoDip => plasticState(p)%state (8_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:) stt%rhoDip => plasticState(p)%state (8_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:)
dot%rhoDip => plasticState(p)%dotState (8_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:) dot%rhoDip => plasticState(p)%dotState (8_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:)
del%rhoDip => plasticState(p)%deltaState (8_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:) del%rhoDip => plasticState(p)%deltaState (8_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:)
stt%rhoDipEdge => plasticState(p)%state (8_pInt*prm%totalNslip+1_pInt: 9_pInt*prm%totalNslip,:) stt%rho_dip_edg => plasticState(p)%state (8_pInt*prm%totalNslip+1_pInt: 9_pInt*prm%totalNslip,:)
dot%rhoDipEdge => plasticState(p)%dotState (8_pInt*prm%totalNslip+1_pInt: 9_pInt*prm%totalNslip,:) dot%rho_dip_edg => plasticState(p)%dotState (8_pInt*prm%totalNslip+1_pInt: 9_pInt*prm%totalNslip,:)
del%rhoDipEdge => plasticState(p)%deltaState (8_pInt*prm%totalNslip+1_pInt: 9_pInt*prm%totalNslip,:) del%rho_dip_edg => plasticState(p)%deltaState (8_pInt*prm%totalNslip+1_pInt: 9_pInt*prm%totalNslip,:)
stt%rhoDipScrew => plasticState(p)%state (9_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:) stt%rho_dip_scr => plasticState(p)%state (9_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:)
dot%rhoDipScrew => plasticState(p)%dotState (9_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:) dot%rho_dip_scr => plasticState(p)%dotState (9_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:)
del%rhoDipScrew => plasticState(p)%deltaState (9_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:) del%rho_dip_scr => plasticState(p)%deltaState (9_pInt*prm%totalNslip+1_pInt:10_pInt*prm%totalNslip,:)
stt%accumulatedshear => plasticState(p)%state (10_pInt*prm%totalNslip + 1_pInt:11_pInt*prm%totalNslip ,1:NofMyPhase) stt%accumulatedshear => plasticState(p)%state (10_pInt*prm%totalNslip + 1_pInt:11_pInt*prm%totalNslip ,1:NofMyPhase)
dot%accumulatedshear => plasticState(p)%dotState (10_pInt*prm%totalNslip + 1_pInt:11_pInt*prm%totalNslip ,1:NofMyPhase) dot%accumulatedshear => plasticState(p)%dotState (10_pInt*prm%totalNslip + 1_pInt:11_pInt*prm%totalNslip ,1:NofMyPhase)
@ -840,13 +840,13 @@ subroutine stateInit(phase,NofMyPhase)
do s = from,upto do s = from,upto
noise = [math_sampleGaussVar(0.0_pReal, prm%rhoSglScatter), & noise = [math_sampleGaussVar(0.0_pReal, prm%rhoSglScatter), &
math_sampleGaussVar(0.0_pReal, prm%rhoSglScatter)] math_sampleGaussVar(0.0_pReal, prm%rhoSglScatter)]
stt%rhoSglEdgeMobilePos(s,e) = prm%rhoSglEdgePos0(f) + noise(1) stt%rho_sgl_mob_edg_pos(s,e) = prm%rhoSglEdgePos0(f) + noise(1)
stt%rhoSglEdgeMobileNeg(s,e) = prm%rhoSglEdgeNeg0(f) + noise(1) stt%rho_sgl_mob_edg_neg(s,e) = prm%rhoSglEdgeNeg0(f) + noise(1)
stt%rhoSglScrewMobilePos(s,e) = prm%rhoSglScrewPos0(f) + noise(2) stt%rho_sgl_mob_scr_pos(s,e) = prm%rhoSglScrewPos0(f) + noise(2)
stt%rhoSglScrewMobileNeg(s,e) = prm%rhoSglScrewNeg0(f) + noise(2) stt%rho_sgl_mob_scr_neg(s,e) = prm%rhoSglScrewNeg0(f) + noise(2)
enddo enddo
stt%rhoDipEdge(from:upto,e) = prm%rhoDipEdge0(f) stt%rho_dip_edg(from:upto,e) = prm%rhoDipEdge0(f)
stt%rhoDipScrew(from:upto,e) = prm%rhoDipScrew0(f) stt%rho_dip_scr(from:upto,e) = prm%rhoDipScrew0(f)
enddo enddo
enddo enddo
endif endif
@ -2399,44 +2399,44 @@ dUpper = max(dUpper,dLower)
outputsLoop: do o = 1_pInt,size(param(instance)%outputID) outputsLoop: do o = 1_pInt,size(param(instance)%outputID)
select case(param(instance)%outputID(o)) select case(param(instance)%outputID(o))
case (rho_sgl_edge_pos_mobile_ID) case (rho_sgl_mob_edg_pos_ID)
postResults(cs+1_pInt:cs+ns) = rhoSgl(1:ns,1) postResults(cs+1_pInt:cs+ns) = stt%rho_sgl_mob_edg_pos(:,of)
cs = cs + ns cs = cs + ns
case (rho_sgl_edge_pos_immobile_ID) case (rho_sgl_imm_edg_pos_ID)
postResults(cs+1_pInt:cs+ns) = rhoSgl(1:ns,5) postResults(cs+1_pInt:cs+ns) = stt%rho_sgl_imm_edg_pos(:,of)
cs = cs + ns cs = cs + ns
case (rho_sgl_edge_neg_mobile_ID) case (rho_sgl_mob_edg_neg_ID)
postResults(cs+1_pInt:cs+ns) = rhoSgl(1:ns,2) postResults(cs+1_pInt:cs+ns) = stt%rho_sgl_mob_edg_neg(:,of)
cs = cs + ns cs = cs + ns
case (rho_sgl_edge_neg_immobile_ID) case (rho_sgl_imm_edg_neg_ID)
postResults(cs+1_pInt:cs+ns) = rhoSgl(1:ns,6) postResults(cs+1_pInt:cs+ns) = stt%rho_sgl_imm_edg_neg(:,of)
cs = cs + ns cs = cs + ns
case (rho_dip_edge_ID) case (rho_dip_edg_ID)
postResults(cs+1_pInt:cs+ns) = rhoDip(1:ns,1) postResults(cs+1_pInt:cs+ns) = stt%rho_dip_edg(:,of)
cs = cs + ns cs = cs + ns
case (rho_sgl_screw_pos_mobile_ID) case (rho_sgl_mob_scr_pos_ID)
postResults(cs+1_pInt:cs+ns) = rhoSgl(1:ns,3) postResults(cs+1_pInt:cs+ns) = stt%rho_sgl_mob_scr_pos(:,of)
cs = cs + ns cs = cs + ns
case (rho_sgl_screw_pos_immobile_ID) case (rho_sgl_imm_scr_pos_ID)
postResults(cs+1_pInt:cs+ns) = rhoSgl(1:ns,7) postResults(cs+1_pInt:cs+ns) = stt%rho_sgl_imm_scr_pos(:,of)
cs = cs + ns cs = cs + ns
case (rho_sgl_screw_neg_mobile_ID) case (rho_sgl_mob_scr_neg_ID)
postResults(cs+1_pInt:cs+ns) = rhoSgl(1:ns,4) postResults(cs+1_pInt:cs+ns) = stt%rho_sgl_mob_scr_neg(:,of)
cs = cs + ns cs = cs + ns
case (rho_sgl_screw_neg_immobile_ID) case (rho_sgl_imm_scr_neg_ID)
postResults(cs+1_pInt:cs+ns) = rhoSgl(1:ns,8) postResults(cs+1_pInt:cs+ns) = stt%rho_sgl_imm_scr_neg(:,of)
cs = cs + ns cs = cs + ns
case (rho_dip_screw_ID) case (rho_dip_scr_ID)
postResults(cs+1_pInt:cs+ns) = rhoDip(1:ns,2) postResults(cs+1_pInt:cs+ns) = stt%rho_dip_scr(:,of)
cs = cs + ns cs = cs + ns
case (rho_forest_ID) case (rho_forest_ID)