From 796db449091054cd463f769632d0ec1036246f21 Mon Sep 17 00:00:00 2001 From: Greg Sjaardema Date: Wed, 29 May 2024 16:30:05 -0600 Subject: [PATCH] GJOIN: Fix mcdel call --- packages/seacas/applications/gjoin/gjoin.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/seacas/applications/gjoin/gjoin.f b/packages/seacas/applications/gjoin/gjoin.f index 5be91707b7..e55890da6c 100644 --- a/packages/seacas/applications/gjoin/gjoin.f +++ b/packages/seacas/applications/gjoin/gjoin.f @@ -567,7 +567,7 @@ PROGRAM GJOIN2 CALL MDDEL ('NNNPO') CALL MDDEL ('ISCR') call mddel ('nodscr') - call mddel ('NAMSCR') + call mcdel ('NAMSCR') C --Squeeze the nodal point sets