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

polishing

This commit is contained in:
Daniel Otto de Mentock 2022-12-07 14:33:33 +01:00
parent 7c6c46c2db
commit e8aeb4435d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/prec.f90
View File

@ -255,7 +255,7 @@ subroutine selfTest()
real(pReal), dimension(2) :: r real(pReal), dimension(2) :: r
#ifdef PETSC #ifdef PETSC
if (pReal /= pPETSCSCALAR) error stop 'PetSC and Fortran scalar datatypes do not match' if (pReal /= pPETSCSCALAR) error stop 'PetSc and Fortran scalar datatypes do not match'
#endif #endif
realloc_lhs_test = [1,2] realloc_lhs_test = [1,2]
if (any(realloc_lhs_test/=[1,2])) error stop 'LHS allocation' if (any(realloc_lhs_test/=[1,2])) error stop 'LHS allocation'