From 00de182873bb0cf8435473a55341ee47530d6f68 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Thu, 22 Mar 2012 07:44:46 +0000 Subject: [PATCH] corrected if statement to check assembly of input files --- code/IO.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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