<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class=""><div style="margin: 0px; font-stretch: normal; line-height: normal; font-family: "Helvetica Neue";" class="">Hello,</div><div style="margin: 0px; font-stretch: normal; line-height: normal; font-family: "Helvetica Neue"; min-height: 14px;" class=""><br class=""></div><div style="margin: 0px; font-stretch: normal; line-height: normal; font-family: "Helvetica Neue";" class="">As shown in <a href="https://petsc.org/release/docs/changes/317/?highlight=petsccudainitialize" class=""><span style="color: rgb(220, 161, 13);" class="">https://petsc.org/release/docs/changes/317/?highlight=petsccudainitialize</span></a>, PetscCUDAInitialize(MPI_Comm comm, PetscInt device) is replaced by PetscDeviceInitialize(PetscDeviceType type) in petsc-3.17. My Fortran-90 code gives a compile error as there is no header file “petscdevicetypes.h” in include/petsc/finclude. How can I use PetscDeviceInitialize() in Fortran 90?</div><div style="margin: 0px; font-stretch: normal; line-height: normal; font-family: "Helvetica Neue"; min-height: 14px;" class=""><br class=""></div><div style="margin: 0px; font-stretch: normal; line-height: normal; font-family: "Helvetica Neue";" class="">Thank you,</div><div style="margin: 0px; font-stretch: normal; line-height: normal; font-family: "Helvetica Neue";" class="">-Han</div></body></html>