Merge branch 'IntelAdvisor'

MintonGroup · Nov 5, 2021 · 80818a1 · 80818a1
2 parents 8c1e307 + 79a42f3
commit 80818a1
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/src/io/io.f90 b/src/io/io.f90
@@ -2151,7 +2151,6 @@ module subroutine io_write_frame_system(self, param)
                   errmsg = param%outfile // " not found! You must specify OUT_STAT = NEW, REPLACE, or UNKNOWN"
                   goto 667
                end if
-               call param%nciu%open(param)
             case('NEW')
                if (fileExists) then
                   errmsg = param%outfile // " Alread Exists! You must specify OUT_STAT = APPEND, REPLACE, or UNKNOWN"