Может есть решение проще - подскажите. Я же использовал LibreOfficeCalc, Notepad++ и чуточку PuntoSwitcher.
Для начала создадим в VS проект-заготовку dll:
using System;
using System.Runtime.InteropServices;
namespace Linalg
{
public static class LAPACK
{
}
}
Затем откроем lapack.h в Notepad++ и заменим все пробелы на табуляции. Удаляем всё, вплоть до первого define'а функции и пустой строки перед ним.

Копируем всё в LibreOfficeCalc, выбрав в качестве разделителя знак табуляции. Именуем каждый столбец каким-либо образом - я пронумеровал 1, 2, 3 и протянул на 64 колонки (с запасом). Затем включил Данные-Быстрый фильтр. Но фильтр закончит работать там, где в первой колонке есть пустая ячейка. Поэтому заменяем пустые ячейки на уникальную последовательность, у меня это - "**************".

Выделяем столбец B и комбинацией Alt+Pause (при запущенном PuntoSwitcher'е) инвертируем регистр текста. Было "LAPACK_cbbcsd(", стало "lapack_CBBCSD(". Сразу же делаем замену в столбце B всех "lapack_" на "". Соглашение об именовании функций как-бы намекает, что их имена должны начинаться с заглавных сиречь прописных. Теперь вместо "LAPACK_cbbcsd(" имеем "CBBCSD(". Далее фильтруем define'ы и очищаем все столбцы, кроме первого. Снимаем фильтр - смотрим результат.

Опять включаем фильтр по define'ам. И вместо первого define'а (в ячейку A2) вводим формулу
="[DllImport(""openblas.dll"", CharSet = CharSet.Ansi, EntryPoint = """&СТРОЧН(B3)&"_"")]"
Получаем
[DllImport("openblas.dll", CharSet = CharSet.Ansi, EntryPoint = "cbbcsd(_")]
Протягиваем формулу до 13 586-ой строки. Отключаем фильтр.
Имена функций пока некорректные - "cbbcsd(_", а должно быть просто "cbbcsd_". Символ подчеркивания обязателен - именно так экспортированы функции в OpenBLAS.dll - в этом можно убедиться при помощи Dependency Walker'а (https://www.dependencywalker.com/). Но всё это легко правится в дальнейшем заменой (_")] на _")]. Осталось сделать обратную замену в столбце А строк "**************" на "".
Теперь можно выделить всё и скопировать обратно в Notepad++. Делаем замену табуляций обратно на пробелы.

Почти готово. Делаем замену
void
на
public static extern void
Есть соблазн сразу заменить
float*
double*
на
ref float
ref double
но тут спешить не нужно. Сначала меняем
complex_float*
complex_double*
на
ref complex_float
ref complex_double
иначе получим всякие
complex_ref float
complex_ref double
Ну зачем усложнять себе жизнь?

В общем - довольно быстро удалось сделать проект библиотеки Linalg c LAPACK'ом и BLAS'ом с их внутренними пространствами имен. Результат - на https://github.com/SergioTortilliani/Linalg (я туда хотел залить рабочие x64 версии flang.dll, flangrti.dll, libomp.dll, openblas.dll - но github.com отказался загружать openblas.dll из-за размера). Библиотека Linalg вполне рабочая, но есть несколько моментов, которые хотелось бы обсудить.
Например, конструкцию вида
typedef lapack_logical (*LAPACK_S_SELECT2) ( const float*, const float* );
я интерпретировал как
public delegate LOGICAL S_SELECT2 (ref float a, ref float b);
чтобы можно было потом
public static int Select2(ref float a, ref float b)
{
if (a > b)
{
return 1;
}
else
{
return 0;
}
}
передавать в качестве аргумента, например, в SGEES. Будет ли работать ссылка на делегат как указатель на cdecl-функцию для callback-вызова? Мне это пока неизвестно...
Тем не менее, слегка изменённый тест из (Как при помощи x64 версии OpenBLAS/LAPACK решать стационарные уравнения теплопроводности?) вполне работоспособен:
using System;
using Linalg;
namespace Parabolic
{
class Program
{
static void Main(string[] args)
{
// уравнение имеет вид d2u/dx2 = 0, u(0) = u0, u(1) = u1
int size = 10 + 1; //количество точек
...
LAPACK.DGTSV(ref size, ref nrhs, ref c[0, 1], ref c[1, 0], ref c[2, 0], ref v[0], ref size, ref info);
for (i = 0; i < size; i++)
{
Console.Write("{0:F} ", v[i]); //ожидаем увидеть 0.00, 0.10, 0.20, ... 0.90, 1.00
}
Console.WriteLine();
Console.WriteLine ("v[0] = {0} ", v[0]);
}
}
}
И, кстати, - да... Это работает в Unity. Пруф:
