Added OpenBLAS

Author: krystophny

src/fpm/manifest/meta.f90

@@ -56,6 +56,9 @@ module fpm_manifest_metapackages
         !> NetCDF
         type(metapackage_request_t) :: netcdf
 
+        !> BLAS
+        type(metapackage_request_t) :: blas
+
     end type metapackage_config_t
 
 
@@ -210,6 +213,9 @@ subroutine new_meta_config(self, table, meta_allowed, error)
         call new_meta_request(self%netcdf, "netcdf", table, meta_allowed, error)
         if (allocated(error)) return
 
+        call new_meta_request(self%blas, "blas", table, meta_allowed, error)
+        if (allocated(error)) return
+
     end subroutine new_meta_config
 
     !> Check local schema for allowed entries
@@ -221,7 +227,7 @@ logical function is_meta_package(key)
         select case (key)
 
             !> Supported metapackages
-            case ("openmp","stdlib","mpi","minpack","hdf5","netcdf")
+            case ("openmp","stdlib","mpi","minpack","hdf5","netcdf","blas")
                 is_meta_package = .true.
 
             case default

src/fpm_meta.f90

@@ -31,6 +31,7 @@ module fpm_meta
     use fpm_meta_mpi, only: init_mpi
     use fpm_meta_hdf5, only: init_hdf5
     use fpm_meta_netcdf, only: init_netcdf
+    use fpm_meta_blas, only: init_blas
 
     use shlex_module, only: shlex_split => split
     use regex_module, only: regex
@@ -63,6 +64,7 @@ subroutine init_from_name(this,name,compiler,error)
             case("mpi");     call init_mpi    (this,compiler,error)
             case("hdf5");    call init_hdf5   (this,compiler,error)
             case("netcdf");  call init_netcdf (this,compiler,error)
+            case("blas");    call init_blas   (this,compiler,error)
             case default
                 call syntax_error(error, "Package "//name//" is not supported in [metapackages]")
                 return
@@ -161,6 +163,12 @@ subroutine resolve_metapackage_model(model,package,settings,error)
             if (allocated(error)) return
         endif
 
+        ! blas
+        if (package%meta%blas%on) then
+            call add_metapackage_model(model,package,settings,"blas",error)
+            if (allocated(error)) return
+        endif
+
     end subroutine resolve_metapackage_model
 
 end module fpm_meta

src/metapackage/fpm_meta_blas.f90

@@ -0,0 +1,46 @@
+module fpm_meta_blas
+    use fpm_compiler, only: compiler_t, get_include_flag
+    use fpm_meta_base, only: metapackage_t, destroy
+    use fpm_meta_util, only: add_pkg_config_compile_options
+    use fpm_pkg_config, only: assert_pkg_config, pkgcfg_has_package
+    use fpm_strings, only: string_t
+    use fpm_error, only: error_t, fatal_error
+
+    implicit none
+
+    private
+
+    public :: init_blas
+
+contains
+
+    !> Initialize blas metapackage for the current system
+    subroutine init_blas(this, compiler, error)
+        class(metapackage_t), intent(inout) :: this
+        type(compiler_t), intent(in) :: compiler
+        type(error_t), allocatable, intent(out) :: error
+
+        logical :: s
+        character(len=:), allocatable :: include_flag, libdir
+
+        include_flag = get_include_flag(compiler, "")
+
+        !> Cleanup
+        call destroy(this)
+        allocate (this % link_libs(0), this % incl_dirs(0), this % external_modules(0))
+        this % link_flags = string_t("")
+        this % flags = string_t("")
+        this % has_external_modules = .false.
+
+        !> Assert pkg-config is installed
+        if (.not. assert_pkg_config()) then
+            call fatal_error(error, 'blas metapackage requires pkg-config')
+            return
+        end if
+
+        if (pkgcfg_has_package('openblas')) then
+            call add_pkg_config_compile_options(this, 'openblas', include_flag, libdir, error)
+            return
+        end if
+    end subroutine init_blas
+end module fpm_meta_blas