From a57aa7985a9d9847b6fa84d61651b492e80a397b Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 3 Feb 2019 18:11:16 +0100 Subject: [PATCH] wrong name --- src/mesh_abaqus.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mesh_abaqus.f90 b/src/mesh_abaqus.f90 index 89f0eed06..60b1484c1 100644 --- a/src/mesh_abaqus.f90 +++ b/src/mesh_abaqus.f90 @@ -490,7 +490,7 @@ subroutine mesh_init(ip,el) if (myDebug) write(6,'(a)') ' Counted CP sizes'; flush(6) call mesh_abaqus_build_elements(FILEUNIT) if (myDebug) write(6,'(a)') ' Built elements'; flush(6) - call mesh_get_damaskOptions(mesh_periodic_surface,FILEUNIT) + call mesh_get_damaskOptions(mesh_periodicSurface,FILEUNIT) if (myDebug) write(6,'(a)') ' Got DAMASK options'; flush(6) close (FILEUNIT)