check for correct PETSc version

This commit is contained in:
Martin Diehl 2017-04-10 18:27:07 +02:00
parent 23ecffa2e5
commit 81d0752c43
1 changed files with 5 additions and 1 deletions

View File

@ -95,7 +95,11 @@ subroutine DAMASK_interface_init()
call quit(1_pInt) call quit(1_pInt)
endif endif
if (error_unit /= 0) then if (error_unit /= 0) then
write(output_unit,'(a)') ' STERR != 0' write(output_unit,'(a)') ' STDERR != 0'
call quit(1_pInt)
endif
if (PETSC_VERSION_MAJOR /= 3 .or. PETSC_VERSION_MINOR /= 7) then
write(6,'(a,2(i1.1,a))') 'PETSc ',PETSC_VERSION_MAJOR,'.',PETSC_VERSION_MINOR,'.x not supported'
call quit(1_pInt) call quit(1_pInt)
endif endif
else mainProcess else mainProcess