From ae7adcaa2bd0957b2fd2311a838e695ccead58da Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Thu, 15 May 2014 13:08:02 +0000 Subject: [PATCH] error 100 now reports iostat return value (as "element") --- code/IO.f90 | 36 +++++++++++++++++++----------------- 1 file changed, 19 insertions(+), 17 deletions(-) diff --git a/code/IO.f90 b/code/IO.f90 index 414c75464..34465cbb9 100644 --- a/code/IO.f90 +++ b/code/IO.f90 @@ -167,7 +167,7 @@ recursive function IO_read(fileUnit,reset) result(line) endif open(newunit=unitOn(stack),iostat=myStat,file=pathOn(stack)) ! open included file - if (myStat /= 0_pInt) call IO_error(100_pInt,ext_msg=pathOn(stack)) + if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=pathOn(stack)) line = IO_read(fileUnit) @@ -223,7 +223,7 @@ subroutine IO_open_file(fileUnit,relPath) path = trim(getSolverWorkingDirectoryName())//relPath open(fileUnit,status='old',iostat=myStat,file=path) - if (myStat /= 0_pInt) call IO_error(100_pInt,ext_msg=path) + if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path) end subroutine IO_open_file @@ -271,7 +271,7 @@ subroutine IO_open_jobFile(fileUnit,ext) path = trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//'.'//ext open(fileUnit,status='old',iostat=myStat,file=path) - if (myStat /= 0_pInt) call IO_error(100_pInt,ext_msg=path) + if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path) end subroutine IO_open_jobFile @@ -328,18 +328,18 @@ subroutine IO_open_inputFile(fileUnit,modelName) path = trim(getSolverWorkingDirectoryName())//trim(modelName)//inputFileExtension(fileType) open(fileUnit+1,status='old',iostat=myStat,file=path) endif - if (myStat /= 0_pInt) call IO_error(100_pInt,ext_msg=path) ! ensure that any file opened works + if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path) path = trim(getSolverWorkingDirectoryName())//trim(modelName)//inputFileExtension(fileType)//'_assembly' open(fileUnit,iostat=myStat,file=path) - if (myStat /= 0_pInt) call IO_error(100_pInt,ext_msg=path) + if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path) if (.not.abaqus_assembleInputFile(fileUnit,fileUnit+1_pInt)) call IO_error(103_pInt) ! strip comments and concatenate any "include"s close(fileUnit+1_pInt) #endif #ifdef Marc4DAMASK path = trim(getSolverWorkingDirectoryName())//trim(modelName)//inputFileExtension open(fileUnit,status='old',iostat=myStat,file=path) - if (myStat /= 0_pInt) call IO_error(100_pInt,ext_msg=path) + if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path) #endif end subroutine IO_open_inputFile @@ -363,7 +363,7 @@ subroutine IO_open_logFile(fileUnit) path = trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//LogFileExtension open(fileUnit,status='old',iostat=myStat,file=path) - if (myStat /= 0) call IO_error(100_pInt,ext_msg=path) + if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path) end subroutine IO_open_logFile #endif @@ -387,7 +387,7 @@ subroutine IO_write_jobFile(fileUnit,ext) path = trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//'.'//ext open(fileUnit,status='replace',iostat=myStat,file=path) - if (myStat /= 0_pInt) call IO_error(100_pInt,ext_msg=path) + if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path) end subroutine IO_write_jobFile @@ -418,7 +418,7 @@ subroutine IO_write_jobRealFile(fileUnit,ext,recMultiplier) recl=pReal,iostat=myStat,file=path) endif - if (myStat /= 0_pInt) call IO_error(100_pInt,ext_msg=path) + if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path) end subroutine IO_write_jobRealFile @@ -443,13 +443,13 @@ subroutine IO_write_jobIntFile(fileUnit,ext,recMultiplier) path = trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//'.'//ext if (present(recMultiplier)) then open(fileUnit,status='replace',form='unformatted',access='direct', & - recl=pInt*recMultiplier,iostat=myStat,file=path) + recl=pInt*recMultiplier,iostat=myStat,file=path) else open(fileUnit,status='replace',form='unformatted',access='direct', & - recl=pInt,iostat=myStat,file=path) + recl=pInt,iostat=myStat,file=path) endif - if (myStat /= 0_pInt) call IO_error(100_pInt,ext_msg=path) + if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path) end subroutine IO_write_jobIntFile @@ -474,12 +474,12 @@ subroutine IO_read_realFile(fileUnit,ext,modelName,recMultiplier) path = trim(getSolverWorkingDirectoryName())//trim(modelName)//'.'//ext if (present(recMultiplier)) then open(fileUnit,status='old',form='unformatted',access='direct', & - recl=pReal*recMultiplier,iostat=myStat,file=path) + recl=pReal*recMultiplier,iostat=myStat,file=path) else open(fileUnit,status='old',form='unformatted',access='direct', & - recl=pReal,iostat=myStat,file=path) + recl=pReal,iostat=myStat,file=path) endif - if (myStat /= 0) call IO_error(100_pInt,ext_msg=path) + if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path) end subroutine IO_read_realFile @@ -504,10 +504,10 @@ subroutine IO_read_intFile(fileUnit,ext,modelName,recMultiplier) path = trim(getSolverWorkingDirectoryName())//trim(modelName)//'.'//ext if (present(recMultiplier)) then open(fileUnit,status='old',form='unformatted',access='direct', & - recl=pInt*recMultiplier,iostat=myStat,file=path) + recl=pInt*recMultiplier,iostat=myStat,file=path) else open(fileUnit,status='old',form='unformatted',access='direct', & - recl=pInt,iostat=myStat,file=path) + recl=pInt,iostat=myStat,file=path) endif if (myStat /= 0) call IO_error(100_pInt,ext_msg=path) @@ -1485,6 +1485,8 @@ subroutine IO_error(error_ID,el,ip,g,ext_msg) msg = 'illegal texture transformation specified' case (160_pInt) msg = 'no entries in config part' + case (165_pInt) + msg = 'homogenization configuration' case (170_pInt) msg = 'no homogenization specified via State Variable 2' case (180_pInt)