feat(fortran): Fortran interface can now use multi-zone

Fortran interface uses the new C api ability to call the naieve
multi-zone solver. This allows fortran calling code to make use of in
build parellaism for solving multiple zones
This commit is contained in:
2025-12-19 09:58:47 -05:00
parent 2a9649a72e
commit d65c237b26
17 changed files with 738 additions and 69 deletions

View File

@@ -55,9 +55,11 @@ int main() {
double Rhos[ZONES];
for (size_t zone = 0; zone < ZONES; zone++) {
Temps[zone] = 1.0e7;
Temps[zone] = 1.0e7 + (double)zone * 1.0e5; // From 10 million K to 20 million K
Rhos[zone] = 1.5e2;
printf("Zone %zu - Temp: %e K, Rho: %e g/cm^3\n", zone, Temps[zone], Rhos[zone]);
}
return 0;
printf(" Registering species...");
int ret = gf_register_species(ctx, NUM_SPECIES, species_names);