diff --git a/benchmarks/pu-met-fast-001/settings.xml b/benchmarks/pu-met-fast-001/settings.xml index d4a1f66577..aa5b251cac 100644 --- a/benchmarks/pu-met-fast-001/settings.xml +++ b/benchmarks/pu-met-fast-001/settings.xml @@ -10,7 +10,7 @@ ========================================== --> - + 3000 diff --git a/benchmarks/pu-met-fast-002/settings.xml b/benchmarks/pu-met-fast-002/settings.xml index abc537feca..74e4e2b8e1 100644 --- a/benchmarks/pu-met-fast-002/settings.xml +++ b/benchmarks/pu-met-fast-002/settings.xml @@ -10,7 +10,7 @@ ========================================== --> - + 3000 diff --git a/benchmarks/pu-met-fast-005/settings.xml b/benchmarks/pu-met-fast-005/settings.xml index 366b0f5422..831fbafbe7 100644 --- a/benchmarks/pu-met-fast-005/settings.xml +++ b/benchmarks/pu-met-fast-005/settings.xml @@ -10,7 +10,7 @@ =============================================================== --> - + 3000 diff --git a/examples/basic/settings.xml b/examples/basic/settings.xml index 0f839a026a..b59a0de03e 100644 --- a/examples/basic/settings.xml +++ b/examples/basic/settings.xml @@ -2,7 +2,7 @@ - + diff --git a/examples/lattice/settings.xml b/examples/lattice/settings.xml index d48b88498b..beb7193fad 100644 --- a/examples/lattice/settings.xml +++ b/examples/lattice/settings.xml @@ -2,7 +2,7 @@ - + diff --git a/src/cross_section.f90 b/src/cross_section.f90 index af793bf46a..7273e95d5d 100644 --- a/src/cross_section.f90 +++ b/src/cross_section.f90 @@ -1253,12 +1253,7 @@ contains call message(msg, 5) ! Construct filename - n = len(path) - if (path(n:n) == '/') then - filename = trim(path) // 'xsdata' - else - filename = trim(path) // '/xsdata' - end if + filename = trim(path) ! Check if xsdata exists and is readable inquire(FILE=filename, EXIST=file_exists, READ=readable)