From f8c5dbea71990ca95d42aa45e6c6653cb92d8b10 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sun, 26 Jan 2020 21:02:32 +0100
Subject: [PATCH] typo (MSC.Marc did not compile)

---
 src/mesh_marc.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90
index 9de6968b9..7542e976e 100644
--- a/src/mesh_marc.f90
+++ b/src/mesh_marc.f90
@@ -294,7 +294,7 @@ subroutine inputRead_matNumber(matNumber, &
   do l = 1, size(fileContent)
     chunkPos = IO_stringPos(fileContent(l))
     if ( IO_lc(IO_stringValue(fileContent(l),chunkPos,1)) == 'hypoelastic') then
-      if (len)trim(fileContent(l+1))/=0) then
+      if (len_trim(fileContent(l+1))/=0) then
         chunkPos = IO_stringPos(fileContent(l+1))
         data_blocks = IO_intValue(fileContent(l+1),chunkPos,1)
       else