From e86c978032e7591a5f2222faa3b46533ddc7e150 Mon Sep 17 00:00:00 2001 From: easifem Date: Wed, 14 May 2025 00:05:21 +0900 Subject: [PATCH 1/2] deleting fortls --- .fortls | 28 ---------------------------- 1 file changed, 28 deletions(-) delete mode 100644 .fortls diff --git a/.fortls b/.fortls deleted file mode 100644 index 20162a203..000000000 --- a/.fortls +++ /dev/null @@ -1,28 +0,0 @@ -{ - "source_dirs": [ - "src/**" - ], - "excl_suffixes": [ - "_skip.F90", - ".bk", - ".ignore" - ], - "pp_suffixes": [ - ".F90", - ".inc", - ".part", - ".f90" - ], - "pp_defs": {}, - "include_dirs": [], - "ext_source_dirs": [], - "lowercase_intrinsics": false, - "debug_log": false, - "disable_diagnostics": false, - "sort_keywords": false, - "use_signature_help": true, - "hover_signature": true, - "hover_language": "fortran", - "enable_code_actions": false, - "symbol_skip_mem": false -} From 5422dcb5154c002a0b6e57ea0faf6103e80db2de Mon Sep 17 00:00:00 2001 From: easifem Date: Wed, 14 May 2025 14:29:06 +0900 Subject: [PATCH 2/2] Updating LineInterpolationUtility@Methods - In LineInterpolationPoint_Line1_() routine now using layout(1:1) instead of layout(1:2).. This will improve the robustness of the code. --- .../Polynomial/src/LineInterpolationUtility@Methods.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/submodules/Polynomial/src/LineInterpolationUtility@Methods.F90 b/src/submodules/Polynomial/src/LineInterpolationUtility@Methods.F90 index 32f34c324..4c309f30c 100644 --- a/src/submodules/Polynomial/src/LineInterpolationUtility@Methods.F90 +++ b/src/submodules/Polynomial/src/LineInterpolationUtility@Methods.F90 @@ -478,7 +478,8 @@ SUBROUTINE handle_vefc REAL(DFP) :: t1 - IF (layout(1:2) .EQ. "VE") THEN + !! layout VEFC + IF (layout(1:1) .EQ. "V") THEN t1 = temp(order + 1) IF (order .GE. 2) THEN temp(3:order + 1) = temp(2:order) @@ -491,7 +492,8 @@ END SUBROUTINE handle_vefc SUBROUTINE handle_increasing INTEGER(I4B) :: ii - IF (layout(1:2) .EQ. "IN") THEN + !! layout INCREASING + IF (layout(1:1) .EQ. "I") THEN DO ii = 1, nrow CALL HeapSort(ans(ii, :)) END DO