wrapped lines in order to ensure maximum number of allowed characters per line = 132
This commit is contained in:
parent
360fb069ba
commit
1a7eb3158b
|
@ -194,14 +194,14 @@ subroutine constitutive_phenopowerlaw_init(file)
|
|||
allocate(constitutive_phenopowerlaw_h0_twinslip(maxNinstance)) ; constitutive_phenopowerlaw_h0_twinslip = 0.0_pReal
|
||||
allocate(constitutive_phenopowerlaw_h0_twintwin(maxNinstance)) ; constitutive_phenopowerlaw_h0_twintwin = 0.0_pReal
|
||||
|
||||
allocate(constitutive_phenopowerlaw_interaction_slipslip(lattice_maxNinteraction,&
|
||||
maxNinstance)) ; constitutive_phenopowerlaw_interaction_slipslip = 0.0_pReal
|
||||
allocate(constitutive_phenopowerlaw_interaction_sliptwin(lattice_maxNinteraction,&
|
||||
maxNinstance)) ; constitutive_phenopowerlaw_interaction_sliptwin = 0.0_pReal
|
||||
allocate(constitutive_phenopowerlaw_interaction_twinslip(lattice_maxNinteraction,&
|
||||
maxNinstance)) ; constitutive_phenopowerlaw_interaction_twinslip = 0.0_pReal
|
||||
allocate(constitutive_phenopowerlaw_interaction_twintwin(lattice_maxNinteraction,&
|
||||
maxNinstance)) ; constitutive_phenopowerlaw_interaction_twintwin = 0.0_pReal
|
||||
allocate(constitutive_phenopowerlaw_interaction_slipslip(lattice_maxNinteraction,maxNinstance))
|
||||
allocate(constitutive_phenopowerlaw_interaction_sliptwin(lattice_maxNinteraction,maxNinstance))
|
||||
allocate(constitutive_phenopowerlaw_interaction_twinslip(lattice_maxNinteraction,maxNinstance))
|
||||
allocate(constitutive_phenopowerlaw_interaction_twintwin(lattice_maxNinteraction,maxNinstance))
|
||||
constitutive_phenopowerlaw_interaction_slipslip = 0.0_pReal
|
||||
constitutive_phenopowerlaw_interaction_sliptwin = 0.0_pReal
|
||||
constitutive_phenopowerlaw_interaction_twinslip = 0.0_pReal
|
||||
constitutive_phenopowerlaw_interaction_twintwin = 0.0_pReal
|
||||
|
||||
rewind(file)
|
||||
line = ''
|
||||
|
|
Loading…
Reference in New Issue