From e6495c7b78f2513aa82be48c2a0dd73a21900afa Mon Sep 17 00:00:00 2001 From: Rocco Meli Date: Tue, 14 May 2024 15:55:00 +0000 Subject: [PATCH] fix github actions --- .github/workflows/check_license_header.yaml | 2 +- src/dlaf_fortran.f90 | 88 ++++++++++----------- 2 files changed, 45 insertions(+), 45 deletions(-) diff --git a/.github/workflows/check_license_header.yaml b/.github/workflows/check_license_header.yaml index 498cb9b..dbe7ee8 100644 --- a/.github/workflows/check_license_header.yaml +++ b/.github/workflows/check_license_header.yaml @@ -34,7 +34,7 @@ jobs: find src test -type f \ ! '(' \ -name '*.f90' \ - -o -name '*.fpp' \ + -o -name '*.fypp' \ -o -name 'CMakeLists.txt' \ -o -name '.*' \ ')' \ diff --git a/src/dlaf_fortran.f90 b/src/dlaf_fortran.f90 index 0527b9e..b8756f0 100644 --- a/src/dlaf_fortran.f90 +++ b/src/dlaf_fortran.f90 @@ -230,11 +230,11 @@ end subroutine dlaf_pssyevd_c info = -1 call dlaf_pssyevd_c(iachar(uplo, c_signed_char), n, & - c_loc(a(1, 1)), ia, ja, desca, & - c_loc(w(1)), & - c_loc(z(1, 1)), iz, jz, descz, & - c_loc(info) & - ) + c_loc(a(1, 1)), ia, ja, desca, & + c_loc(w(1)), & + c_loc(z(1, 1)), iz, jz, descz, & + c_loc(info) & + ) end subroutine dlaf_pssyevd @@ -263,11 +263,11 @@ end subroutine dlaf_pdsyevd_c info = -1 call dlaf_pdsyevd_c(iachar(uplo, c_signed_char), n, & - c_loc(a(1, 1)), ia, ja, desca, & - c_loc(w(1)), & - c_loc(z(1, 1)), iz, jz, descz, & - c_loc(info) & - ) + c_loc(a(1, 1)), ia, ja, desca, & + c_loc(w(1)), & + c_loc(z(1, 1)), iz, jz, descz, & + c_loc(info) & + ) end subroutine dlaf_pdsyevd @@ -296,11 +296,11 @@ end subroutine dlaf_pcheevd_c info = -1 call dlaf_pcheevd_c(iachar(uplo, c_signed_char), n, & - c_loc(a(1, 1)), ia, ja, desca, & - c_loc(w(1)), & - c_loc(z(1, 1)), iz, jz, descz, & - c_loc(info) & - ) + c_loc(a(1, 1)), ia, ja, desca, & + c_loc(w(1)), & + c_loc(z(1, 1)), iz, jz, descz, & + c_loc(info) & + ) end subroutine dlaf_pcheevd @@ -329,11 +329,11 @@ end subroutine dlaf_pzheevd_c info = -1 call dlaf_pzheevd_c(iachar(uplo, c_signed_char), n, & - c_loc(a(1, 1)), ia, ja, desca, & - c_loc(w(1)), & - c_loc(z(1, 1)), iz, jz, descz, & - c_loc(info) & - ) + c_loc(a(1, 1)), ia, ja, desca, & + c_loc(w(1)), & + c_loc(z(1, 1)), iz, jz, descz, & + c_loc(info) & + ) end subroutine dlaf_pzheevd @@ -362,12 +362,12 @@ end subroutine dlaf_pssygvx_c info = -1 call dlaf_pssygvx_c(iachar(uplo, c_signed_char), n, & - c_loc(a(1, 1)), ia, ja, desca, & - c_loc(b(1, 1)), ib, jb, descb, & - c_loc(w(1)), & - c_loc(z(1, 1)), iz, jz, descz, & - c_loc(info) & - ) + c_loc(a(1, 1)), ia, ja, desca, & + c_loc(b(1, 1)), ib, jb, descb, & + c_loc(w(1)), & + c_loc(z(1, 1)), iz, jz, descz, & + c_loc(info) & + ) end subroutine dlaf_pssygvx @@ -396,12 +396,12 @@ end subroutine dlaf_pdsygvx_c info = -1 call dlaf_pdsygvx_c(iachar(uplo, c_signed_char), n, & - c_loc(a(1, 1)), ia, ja, desca, & - c_loc(b(1, 1)), ib, jb, descb, & - c_loc(w(1)), & - c_loc(z(1, 1)), iz, jz, descz, & - c_loc(info) & - ) + c_loc(a(1, 1)), ia, ja, desca, & + c_loc(b(1, 1)), ib, jb, descb, & + c_loc(w(1)), & + c_loc(z(1, 1)), iz, jz, descz, & + c_loc(info) & + ) end subroutine dlaf_pdsygvx @@ -430,12 +430,12 @@ end subroutine dlaf_pchegvx_c info = -1 call dlaf_pchegvx_c(iachar(uplo, c_signed_char), n, & - c_loc(a(1, 1)), ia, ja, desca, & - c_loc(b(1, 1)), ib, jb, descb, & - c_loc(w(1)), & - c_loc(z(1, 1)), iz, jz, descz, & - c_loc(info) & - ) + c_loc(a(1, 1)), ia, ja, desca, & + c_loc(b(1, 1)), ib, jb, descb, & + c_loc(w(1)), & + c_loc(z(1, 1)), iz, jz, descz, & + c_loc(info) & + ) end subroutine dlaf_pchegvx @@ -464,12 +464,12 @@ end subroutine dlaf_pzhegvx_c info = -1 call dlaf_pzhegvx_c(iachar(uplo, c_signed_char), n, & - c_loc(a(1, 1)), ia, ja, desca, & - c_loc(b(1, 1)), ib, jb, descb, & - c_loc(w(1)), & - c_loc(z(1, 1)), iz, jz, descz, & - c_loc(info) & - ) + c_loc(a(1, 1)), ia, ja, desca, & + c_loc(b(1, 1)), ib, jb, descb, & + c_loc(w(1)), & + c_loc(z(1, 1)), iz, jz, descz, & + c_loc(info) & + ) end subroutine dlaf_pzhegvx