From 02fef16b38a8f1d9ff2f357a640275622360bd0b Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 23 Sep 2019 06:28:10 -0700 Subject: [PATCH] used only by MARC/Abaqus --- src/IO.f90 | 31 ++++++++++++++++--------------- 1 file changed, 16 insertions(+), 15 deletions(-) diff --git a/src/IO.f90 b/src/IO.f90 index 22406fd23..066ebbe8c 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -69,21 +69,6 @@ subroutine IO_init end subroutine IO_init -!-------------------------------------------------------------------------------------------------- -!> @brief reads a line from a text file. -!-------------------------------------------------------------------------------------------------- -function IO_read(fileUnit) result(line) - - integer, intent(in) :: fileUnit !< file unit - - character(len=pStringLen) :: line - - - read(fileUnit,'(a256)',END=100) line - -100 end function IO_read - - !-------------------------------------------------------------------------------------------------- !> @brief reads an entire ASCII file into an array !-------------------------------------------------------------------------------------------------- @@ -941,6 +926,22 @@ end subroutine IO_warning #if defined(Abaqus) || defined(Marc4DAMASK) + +!-------------------------------------------------------------------------------------------------- +!> @brief reads a line from a text file. +!-------------------------------------------------------------------------------------------------- +function IO_read(fileUnit) result(line) + + integer, intent(in) :: fileUnit !< file unit + + character(len=pStringLen) :: line + + + read(fileUnit,'(a256)',END=100) line + +100 end function IO_read + + #ifdef Abaqus !-------------------------------------------------------------------------------------------------- !> @brief extracts string value from key=value pair and check whether key matches