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

fixed error check for CoverA ratio

This commit is contained in:
Pratheek Shanthraj 2014-06-18 13:26:16 +00:00
parent eaa3e32f21
commit bf24bd83f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/lattice.f90
View File

@ -946,7 +946,7 @@ subroutine lattice_init
enddo enddo
do i = 1_pInt,Nphases do i = 1_pInt,Nphases
if (CoverA(i) < 1.0_pReal .or. CoverA(i) > 2.0_pReal & if ((CoverA(i) < 1.0_pReal .or. CoverA(i) > 2.0_pReal) &
.and. lattice_structure(i) == LATTICE_hex_ID) call IO_error(206_pInt) ! checking physical significance of c/a .and. lattice_structure(i) == LATTICE_hex_ID) call IO_error(206_pInt) ! checking physical significance of c/a
call lattice_initializeStructure(i, CoverA(i)) call lattice_initializeStructure(i, CoverA(i))
enddo enddo