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 -} 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