use ./ if path is not defined

Nek5000 · Dec 11, 2023 · 360c1cb · 360c1cb
1 parent 59cf3a2
commit 360c1cb
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/code/mpar.f b/code/mpar.f
@@ -643,6 +643,11 @@ subroutine set_morfle(morfle)
       data mor4  /'.mor'/
 
       len = ltrunc(path,132)
+
+      if(len.lt.1) then
+         call chcopy(path1(1),'./',2)
+      endif
+
       if (indx1(path1(len),'/',1).lt.1) then
          call chcopy(path1(len+1),'/',1)
       endif