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

segmentation fault, tried LHS with scalar 

Nxx per system is stored in LATTICE_yyy_NxxxSYSTEM
Using CAPITALS for parameters improves readbility
This commit is contained in:
Martin Diehl 2018-10-03 06:45:42 +02:00
parent 384a785805
commit 67c55965e9
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/lattice.f90
View File

@ -2264,17 +2264,17 @@ function lattice_interactionSlipSlip2(Nslip,interactionValues,structure)
select case(structure) select case(structure)
case('fcc') case('fcc')
interactionSlipSlip = lattice_fcc_interactionSlipSlip interactionSlipSlip = LATTICE_FCC_INTERACTIONSLIPSLIP
NslipMax = lattice_fcc_Nslip NslipMax = LATTICE_FCC_NSLIPSYSTEM
case('bcc') case('bcc')
interactionSlipSlip = lattice_bcc_interactionSlipSlip interactionSlipSlip = LATTICE_BCC_INTERACTIONSLIPSLIP
NslipMax = lattice_bcc_Nslip NslipMax = LATTICE_BCC_NSLIPSYSTEM
case('hex','hexagonal') !ToDo: "No alias policy": long or short? case('hex','hexagonal') !ToDo: "No alias policy": long or short?
interactionSlipSlip = lattice_hex_interactionTwinTwin interactionSlipSlip = LATTICE_HEX_INTERACTIONSLIPSLIP
NslipMax = lattice_hex_Nslip NslipMax = LATTICE_HEX_NSLIPSYSTEM
case('bct') case('bct')
interactionSlipSlip = lattice_bct_interactionSlipSlip interactionSlipSlip = LATTICE_BCT_INTERACTIONSLIPSLIP
NslipMax = lattice_bct_Nslip NslipMax = LATTICE_BCT_NSLIPSYSTEM
case default case default
call IO_error(132_pInt,ext_msg=trim(structure)//' (slip slip interaction)') call IO_error(132_pInt,ext_msg=trim(structure)//' (slip slip interaction)')
end select end select
@ -2307,14 +2307,14 @@ function lattice_interactionTwinTwin2(Ntwin,interactionValues,structure)
select case(structure) select case(structure)
case('fcc') case('fcc')
interactionTwinTwin = lattice_fcc_interactionTwinTwin interactionTwinTwin = LATTICE_FCC_INTERACTIONTWINTWIN
NtwinMax = lattice_fcc_Ntwin NtwinMax = LATTICE_FCC_NTWINSYSTEM
case('bcc') case('bcc')
interactionTwinTwin = lattice_bcc_interactionTwinTwin interactionTwinTwin = LATTICE_BCC_INTERACTIONTWINTWIN
NtwinMax = lattice_bcc_Ntwin NtwinMax = LATTICE_BCC_NTWINSYSTEM
case('hex','hexagonal') !ToDo: "No alias policy": long or short? case('hex','hexagonal') !ToDo: "No alias policy": long or short?
interactionTwinTwin = lattice_hex_interactionTwinTwin interactionTwinTwin = LATTICE_HEX_INTERACTIONTWINTWIN
NtwinMax = lattice_hex_Ntwin NtwinMax = LATTICE_HEX_NTWINSYSTEM
case default case default
call IO_error(132_pInt,ext_msg=trim(structure)//' (twin twin interaction)') call IO_error(132_pInt,ext_msg=trim(structure)//' (twin twin interaction)')
end select end select