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

wrapped lines in order to ensure maximum number of allowed characters per line = 132

This commit is contained in:
Christoph Kords 2009-08-03 06:37:37 +00:00
parent 360fb069ba
commit 1a7eb3158b
1 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
code/constitutive_phenopowerlaw.f90
View File

@ -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_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_h0_twintwin(maxNinstance)) ; constitutive_phenopowerlaw_h0_twintwin = 0.0_pReal
allocate(constitutive_phenopowerlaw_interaction_slipslip(lattice_maxNinteraction,& allocate(constitutive_phenopowerlaw_interaction_slipslip(lattice_maxNinteraction,maxNinstance))
maxNinstance)) ; constitutive_phenopowerlaw_interaction_slipslip = 0.0_pReal allocate(constitutive_phenopowerlaw_interaction_sliptwin(lattice_maxNinteraction,maxNinstance))
allocate(constitutive_phenopowerlaw_interaction_sliptwin(lattice_maxNinteraction,& allocate(constitutive_phenopowerlaw_interaction_twinslip(lattice_maxNinteraction,maxNinstance))
maxNinstance)) ; constitutive_phenopowerlaw_interaction_sliptwin = 0.0_pReal allocate(constitutive_phenopowerlaw_interaction_twintwin(lattice_maxNinteraction,maxNinstance))
allocate(constitutive_phenopowerlaw_interaction_twinslip(lattice_maxNinteraction,& constitutive_phenopowerlaw_interaction_slipslip = 0.0_pReal
maxNinstance)) ; constitutive_phenopowerlaw_interaction_twinslip = 0.0_pReal constitutive_phenopowerlaw_interaction_sliptwin = 0.0_pReal
allocate(constitutive_phenopowerlaw_interaction_twintwin(lattice_maxNinteraction,& constitutive_phenopowerlaw_interaction_twinslip = 0.0_pReal
maxNinstance)) ; constitutive_phenopowerlaw_interaction_twintwin = 0.0_pReal constitutive_phenopowerlaw_interaction_twintwin = 0.0_pReal
rewind(file) rewind(file)
line = '' line = ''