[petsc-users] petsc-users Digest, Vol 205, Issue 2
Michael Whitten
mwhitte6 at jhu.edu
Fri Jan 16 08:40:48 CST 2026
I hope that I am replying in the correct manner to respond to the "Having trouble with basic Fortran-PETSc interoperability" thread I previously started. If not, please correct me.
Thank you everyone for your replies, they were very helpful.
I have what appears to be a working example code using the suggested updates, specifically the VecGetArray() and VecRestoreArray() and getting the sequential vector back from PETSc using the information from the FAQ. <<Example code attached>>
I have a question about this example code to make sure I am writing reasonably efficient code. It seems like I have to create an additional PETSc vector 'out_seq' which will essentially be a copy of the PETSc vector 'v1p' which is not the most efficient use of memory. It also seems to me like there isn't a way around this additional 'out_seq' vector because there needs a place to aggregate the data from the various processes. Is this a reasonable use of PETSc or is there a more efficient way? Note, I am trying to interface my existing code base with PETSc to use the solvers and this may be the performance trade-off for not developing my program fully within the PETSc ecosystem.
I have another question only tangentially related to this topic. Should I ask it as part of this thread or create a new topic?
Michael
________________________________
From: petsc-users <petsc-users-bounces at mcs.anl.gov> on behalf of petsc-users-request at mcs.anl.gov <petsc-users-request at mcs.anl.gov>
Sent: Saturday, January 3, 2026 1:00 PM
To: petsc-users at mcs.anl.gov <petsc-users at mcs.anl.gov>
Subject: petsc-users Digest, Vol 205, Issue 2
External Email - Use Caution
Send petsc-users mailing list submissions to
petsc-users at mcs.anl.gov
To subscribe or unsubscribe via the World Wide Web, visit
https://urldefense.us/v3/__https://nam02.safelinks.protection.outlook.com/?url=https*3A*2F*2Flists.mcs.anl.gov*2Fmailman*2Flistinfo*2Fpetsc-users&data=05*7C02*7Cmwhitte6*40jhu.edu*7C094639f3b5f5405cfc4e08de4af1fa67*7C9fa4f438b1e6473b803f86f8aedf0dec*7C0*7C0*7C639030600339697177*7CUnknown*7CTWFpbGZsb3d8eyJFbXB0eU1hcGkiOnRydWUsIlYiOiIwLjAuMDAwMCIsIlAiOiJXaW4zMiIsIkFOIjoiTWFpbCIsIldUIjoyfQ*3D*3D*7C0*7C*7C*7C&sdata=Jh2MHiTm*2Fj3*2Ft6gyDoGp295Ex3SzJAW0iyV7GN*2FDN0o*3D&reserved=0__;JSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSU!!G_uCfscf7eWS!e5Z4bqpGanLUgkl1LVgQhM9FRHLRN-xFXCFpnkMtJ-l38HzJqQ3xHhR2i-mB0G6XbKMBZWzNnqZO2LHglX1FXiiB$ <https://lists.mcs.anl.gov/mailman/listinfo/petsc-users >
or, via email, send a message with subject or body 'help' to
petsc-users-request at mcs.anl.gov
You can reach the person managing the list at
petsc-users-owner at mcs.anl.gov
When replying, please edit your Subject line so it is more specific
than "Re: Contents of petsc-users digest..."
Today's Topics:
1. Re: Having trouble with basic Fortran-PETSc interoperability
(Barry Smith)
2. Re: Having trouble with basic Fortran-PETSc interoperability
(Matthew Knepley)
----------------------------------------------------------------------
Message: 1
Date: Fri, 2 Jan 2026 16:33:27 -0500
From: Barry Smith <bsmith at petsc.dev>
To: Michael Whitten <mwhitte6 at jhu.edu>
Cc: "petsc-users at mcs.anl.gov" <petsc-users at mcs.anl.gov>
Subject: Re: [petsc-users] Having trouble with basic Fortran-PETSc
interoperability
Message-ID: <3B11AFD2-F767-4D6A-9CB6-D8D153BEA27E at petsc.dev>
Content-Type: text/plain; charset="utf-8"
VecGetValues() uses 0 based indexing in both Fortran and C.
You don't want to use VecGetValues() and VecSetValues() usually since they result in two copies of the arrays and copying entire arrays back and forth.
You can avoid copying between PETSc vectors and your arrays by using VecGetArray(), VecGetArrayWrite(), and VecGetArrayRead(). You can also use VecCreateMPIWithArray() to create a PETSc vector using your array; for example for input to the right hand side of a KSP. These arrays start their indexing with the Fortran default of 1.
Barry
> On Jan 2, 2026, at 2:42?PM, Michael Whitten via petsc-users <petsc-users at mcs.anl.gov> wrote:
>
> Hi PETSc mailing list users,
>
> I have managed to install PETSc and run some PETSc examples and little test codes of my own in Fortran. I am now trying to make PETSc work with my existing Fortran code. I have tried to build little test examples of the functionality that I can then incorporate into my larger code base. However, I am having trouble just passing vectors back and forth between PETSc and Fortran.
>
> I have attached a minimum semi-working example that can be compiled with the standard 'Makefile.user'. It throws an error when I try to copy the PETSc vector back to a Fortran vector using VecGetValues(). I get that it can only access values of the array on the local process but how do I fix this? Is this even the right approach?
>
> In the final implementation I want to be able to assemble my matrix and vector, convert them to PETSc data structures, use PETSc to solve, and then convert the solution vector back to Fortran and return. I want to be able to do this with both the linear and nonlinear solvers. It seems like this is what PETSc is, in part, built to do. Is this a reasonable expectation to achieve? Is this a reasonable use case for PETSc?
>
> Thanks in advance for any help you can offer.
>
> best,
> Michael
> <test.F90>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://urldefense.us/v3/__https://nam02.safelinks.protection.outlook.com/?url=http*3A*2F*2Flists.mcs.anl.gov*2Fpipermail*2Fpetsc-users*2Fattachments*2F20260102*2Fedfefca2*2Fattachment-0001.html&data=05*7C02*7Cmwhitte6*40jhu.edu*7C094639f3b5f5405cfc4e08de4af1fa67*7C9fa4f438b1e6473b803f86f8aedf0dec*7C0*7C0*7C639030600350658200*7CUnknown*7CTWFpbGZsb3d8eyJFbXB0eU1hcGkiOnRydWUsIlYiOiIwLjAuMDAwMCIsIlAiOiJXaW4zMiIsIkFOIjoiTWFpbCIsIldUIjoyfQ*3D*3D*7C0*7C*7C*7C&sdata=rgN4n0umo9J7Jj50HJVWtGub3AKBXQljLjTM5c4u19I*3D&reserved=0__;JSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSU!!G_uCfscf7eWS!e5Z4bqpGanLUgkl1LVgQhM9FRHLRN-xFXCFpnkMtJ-l38HzJqQ3xHhR2i-mB0G6XbKMBZWzNnqZO2LHglcNG3CPE$ <http://lists.mcs.anl.gov/pipermail/petsc-users/attachments/20260102/edfefca2/attachment-0001.html >>
------------------------------
Message: 2
Date: Fri, 2 Jan 2026 17:49:30 -0500
From: Matthew Knepley <knepley at gmail.com>
To: Michael Whitten <mwhitte6 at jhu.edu>
Cc: "petsc-users at mcs.anl.gov" <petsc-users at mcs.anl.gov>
Subject: Re: [petsc-users] Having trouble with basic Fortran-PETSc
interoperability
Message-ID:
<CAMYG4GmKRM1=CoK6JWbo6iTWVPKksepEOH1q1CLLKgr2QhKKDw at mail.gmail.com>
Content-Type: text/plain; charset="utf-8"
On Fri, Jan 2, 2026 at 2:48?PM Michael Whitten via petsc-users <
petsc-users at mcs.anl.gov> wrote:
> Hi PETSc mailing list users,
>
> I have managed to install PETSc and run some PETSc examples and little
> test codes of my own in Fortran. I am now trying to make PETSc work with my
> existing Fortran code. I have tried to build little test examples of the
> functionality that I can then incorporate into my larger code base.
> However, I am having trouble just passing vectors back and forth between
> PETSc and Fortran.
>
> I have attached a minimum semi-working example that can be compiled with
> the standard 'Makefile.user'. It throws an error when I try to copy the
> PETSc vector back to a Fortran vector using VecGetValues(). I get that it
> can only access values of the array on the local process but how do I fix
> this? Is this even the right approach?
>
No. You should just call VecGetArray(), to get back an F90 pointer to the
values. This is much more convenient.
> In the final implementation I want to be able to assemble my matrix and
> vector, convert them to PETSc data structures, use PETSc to solve, and then
> convert the solution vector back to Fortran and return. I want to be able
> to do this with both the linear and nonlinear solvers. It seems like this
> is what PETSc is, in part, built to do. Is this a reasonable expectation to
> achieve? Is this a reasonable use case for PETSc?
>
Yes, that should work getting the array directly.
Thanks,
Matt
> Thanks in advance for any help you can offer.
>
> best,
> Michael
>
--
What most experimenters take for granted before they begin their
experiments is infinitely more interesting than any results to which their
experiments lead.
-- Norbert Wiener
https://urldefense.us/v3/__https://nam02.safelinks.protection.outlook.com/?url=https*3A*2F*2Furldefense.us*2Fv3*2F__https*3A*2F*2Fwww.cse.buffalo.edu*2F*knepley*2F__*3Bfg!!G_uCfscf7eWS!dmDhrQx1yGPd8y7YN9DUoj7jpohDJracq1zV5hiJ4GBq5ELNqsZZY7ymYloqOdThUhLu3seGNM2xrh36ooFV*24&data=05*7C02*7Cmwhitte6*40jhu.edu*7C094639f3b5f5405cfc4e08de4af1fa67*7C9fa4f438b1e6473b803f86f8aedf0dec*7C0*7C0*7C639030600350676162*7CUnknown*7CTWFpbGZsb3d8eyJFbXB0eU1hcGkiOnRydWUsIlYiOiIwLjAuMDAwMCIsIlAiOiJXaW4zMiIsIkFOIjoiTWFpbCIsIldUIjoyfQ*3D*3D*7C0*7C*7C*7C&sdata=8Uw0xpICKrArvT*2FWBDWc*2B*2FNJ6X9VgHWbSXFPKtK0R7g*3D&reserved=0__;JSUlJSUlJSUlKiUlJSUlJSUlJSUlJSUlJSUlJSUlJSUl!!G_uCfscf7eWS!e5Z4bqpGanLUgkl1LVgQhM9FRHLRN-xFXCFpnkMtJ-l38HzJqQ3xHhR2i-mB0G6XbKMBZWzNnqZO2LHglfXUsZnR$ <https://urldefense.us/v3/__https://www.cse.buffalo.edu/*knepley/__;fg!!G_uCfscf7eWS!dmDhrQx1yGPd8y7YN9DUoj7jpohDJracq1zV5hiJ4GBq5ELNqsZZY7ymYloqOdThUhLu3seGNM2xrh36ooFV$> <https://urldefense.us/v3/__https://nam02.safelinks.protection.outlook.com/?url=https*3A*2F*2Furldefense.us*2Fv3*2F__http*3A*2F*2Fwww.cse.buffalo.edu*2F*knepley*2F__*3Bfg!!G_uCfscf7eWS!dmDhrQx1yGPd8y7YN9DUoj7jpohDJracq1zV5hiJ4GBq5ELNqsZZY7ymYloqOdThUhLu3seGNM2xrgy-5x4Z*24&data=05*7C02*7Cmwhitte6*40jhu.edu*7C094639f3b5f5405cfc4e08de4af1fa67*7C9fa4f438b1e6473b803f86f8aedf0dec*7C0*7C0*7C639030600350692343*7CUnknown*7CTWFpbGZsb3d8eyJFbXB0eU1hcGkiOnRydWUsIlYiOiIwLjAuMDAwMCIsIlAiOiJXaW4zMiIsIkFOIjoiTWFpbCIsIldUIjoyfQ*3D*3D*7C0*7C*7C*7C&sdata=DbQtrUptuDX88vl*2FuO2cXRuwy4JMHfKDnFDj5mAMF6s*3D&reserved=0__;JSUlJSUlJSUlKiUlJSUlJSUlJSUlJSUlJSUlJSUlJQ!!G_uCfscf7eWS!e5Z4bqpGanLUgkl1LVgQhM9FRHLRN-xFXCFpnkMtJ-l38HzJqQ3xHhR2i-mB0G6XbKMBZWzNnqZO2LHglZ2lM1HK$ >
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://urldefense.us/v3/__https://nam02.safelinks.protection.outlook.com/?url=http*3A*2F*2Flists.mcs.anl.gov*2Fpipermail*2Fpetsc-users*2Fattachments*2F20260102*2Fe60566c6*2Fattachment-0001.html&data=05*7C02*7Cmwhitte6*40jhu.edu*7C094639f3b5f5405cfc4e08de4af1fa67*7C9fa4f438b1e6473b803f86f8aedf0dec*7C0*7C0*7C639030600350708618*7CUnknown*7CTWFpbGZsb3d8eyJFbXB0eU1hcGkiOnRydWUsIlYiOiIwLjAuMDAwMCIsIlAiOiJXaW4zMiIsIkFOIjoiTWFpbCIsIldUIjoyfQ*3D*3D*7C0*7C*7C*7C&sdata=ePJIVOq1D6x6W2Lt7tvgtIXIL71CpCJaZpel*2BvG0r1I*3D&reserved=0__;JSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUl!!G_uCfscf7eWS!e5Z4bqpGanLUgkl1LVgQhM9FRHLRN-xFXCFpnkMtJ-l38HzJqQ3xHhR2i-mB0G6XbKMBZWzNnqZO2LHglWVEY9ul$ <http://lists.mcs.anl.gov/pipermail/petsc-users/attachments/20260102/e60566c6/attachment-0001.html >>
------------------------------
Subject: Digest Footer
_______________________________________________
petsc-users mailing list
petsc-users at mcs.anl.gov
https://urldefense.us/v3/__https://nam02.safelinks.protection.outlook.com/?url=https*3A*2F*2Flists.mcs.anl.gov*2Fmailman*2Flistinfo*2Fpetsc-users&data=05*7C02*7Cmwhitte6*40jhu.edu*7C094639f3b5f5405cfc4e08de4af1fa67*7C9fa4f438b1e6473b803f86f8aedf0dec*7C0*7C0*7C639030600350725058*7CUnknown*7CTWFpbGZsb3d8eyJFbXB0eU1hcGkiOnRydWUsIlYiOiIwLjAuMDAwMCIsIlAiOiJXaW4zMiIsIkFOIjoiTWFpbCIsIldUIjoyfQ*3D*3D*7C0*7C*7C*7C&sdata=Ueb*2F8ra8XpzYQzLTm4qwWVo9lyMGs2P5*2FMD0nA3xsdg*3D&reserved=0__;JSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJQ!!G_uCfscf7eWS!e5Z4bqpGanLUgkl1LVgQhM9FRHLRN-xFXCFpnkMtJ-l38HzJqQ3xHhR2i-mB0G6XbKMBZWzNnqZO2LHglU9yvHkS$ <https://lists.mcs.anl.gov/mailman/listinfo/petsc-users >
------------------------------
End of petsc-users Digest, Vol 205, Issue 2
*******************************************
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.mcs.anl.gov/pipermail/petsc-users/attachments/20260116/8ce7aeae/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: test2.F90
Type: text/x-fortran
Size: 1917 bytes
Desc: test2.F90
URL: <http://lists.mcs.anl.gov/pipermail/petsc-users/attachments/20260116/8ce7aeae/attachment-0001.bin>
More information about the petsc-users
mailing list