diff --git a/code/IO.f90 b/code/IO.f90 index a5cbcedb3..7f3bfce95 100644 --- a/code/IO.f90 +++ b/code/IO.f90 @@ -202,7 +202,7 @@ subroutine IO_open_inputFile(myUnit,model) path = trim(getSolverWorkingDirectoryName())//trim(model)//InputFileExtension//'_assembly' open(myUnit,iostat=myStat,file=path) if (myStat /= 0_pInt) call IO_error(100_pInt,ext_msg=path) - if (abaqus_assembleInputFile(myUnit,myUnit+1_pInt)) call IO_error(103_pInt) ! strip comments and concatenate any "include"s + if (.not.abaqus_assembleInputFile(myUnit,myUnit+1_pInt)) call IO_error(103_pInt) ! strip comments and concatenate any "include"s close(myUnit+1_pInt) else