<?xml version="1.0" encoding="ISO-8859-1"?> <root text=""crystallite_stressAndItsTangent (Crystallite Loop)"" comment="" color="ffffff" type="sub" style="nice"> <children> <instruction text=""NiterationCrystallite = NiterationCrystallite + 1"" comment="" color="ffffff" rotated="0"></instruction> <alternative text=""any: .not. crystallite_converged .and. .not. crystallite_localConstitution"" comment="" color="ffffff"> <qTrue> <instruction text=""all: crystallite_converged = crystallite_converged .and. crystallite_localConstitution"" comment="" color="ffffff" rotated="0"></instruction> </qTrue> <qFalse> </qFalse> </alternative> <alternative text=""crystallite_converged"" comment="" color="ffffff"> <qTrue> <instruction text=""WINDING FORWARD: ","crystallite_subFrac = crystallite_subFrac + crystallite_subStep","crystallite_subStep = min(1.0 - _crystallite_subFrac, 2.0 * crystallite_subStep)"" comment="" color="ffffff" rotated="0"></instruction> <alternative text=""crystallite_subStep > subStepMin"" comment="" color="ffffff"> <qTrue> <instruction text=""crystallite_subF0 = crystallite_subF","crystallite_subFp0 = crystallite_Fp","crystallite_subLp0 = crystallite_Lp","constitutive_subState0 = crystallite_state"" comment="" color="ffffff" rotated="0"></instruction> </qTrue> <qFalse> </qFalse> </alternative> </qTrue> <qFalse> <instruction text=""CUTBACK:","crystallite_subStep = 0.5 * crystallite_subStep","crystallite_Fp = crystallite_subFp0","crystallite_Lp = crystallite_subLp0","constitutive_state = crystallite_subState0"" comment="" color="ffffff" rotated="0"></instruction> </qFalse> </alternative> <instruction text=""crystallite_onTrack = crystallite_subStep > subStepMin"" comment="" color="ffffff" rotated="0"></instruction> <alternative text=""crystallite_onTrack"" comment="" color="ffffff"> <qTrue> <instruction text=""crystallite_subF = crystallite_subF0 + crystallite_subStep * ( crystallite_partionedF - crystallite_partionedF0)","crystallite_subdt = crystallite_subStep * crystallite_dt","crystallite_converged = .false."" comment="" color="ffffff" rotated="0"></instruction> </qTrue> <qFalse> </qFalse> </alternative> <call text=""crystallite_updateState"" comment="""" color="ffffff"></call> <instruction text=""NiterationState = 0"" comment="" color="ffffff" rotated="0"></instruction> <for text=""STATE LOOP: any: crystallite_requested .and. crystallite_onTrack .and. .not. crystallite_converged"," .and. NiterationState < ncryst"" comment="" color="ffffff"> <qFor> <instruction text=""NiterationState = NiterationState + 1"" comment="" color="ffffff" rotated="0"></instruction> <alternative text=""crystallite_requested .and. crystallite_onTrack .and. .not. crystallite_converged"" comment="" color="ffffff"> <qTrue> <call text=""crystallite_onTrack = crystallite_integrateStress"" comment="""" color="ffffff"></call> </qTrue> <qFalse> </qFalse> </alternative> <alternative text=""crystallite_requested .and. crystallite_onTrack .and. .not. crystallite_converged"" comment="" color="ffffff"> <qTrue> <call text=""crystallite_converged = crystallite_updateState"" comment="""" color="ffffff"></call> </qTrue> <qFalse> </qFalse> </alternative> </qFor> </for> </children> </root>