Sorry for the delay in responding.
The easiest way is to simply skip the #include "petsc/finclude/petscksp.h"
and use type(tIS) instead of IS.
Explanation: the #include "petsc/finclude/petscksp.h" defines a few macros
to make the current PETSc Fortran API look like the old PETSc API. For example
#define IS type(tIS)
Barry
> On Jan 23, 2025, at 3:16 AM, Klaij, Christiaan via petsc-users
> <petsc-users@mcs.anl.gov> wrote:
>
> In fortran I'm using the following structure to check the type of
> an incoming variable:
>
> SELECT TYPE (myvar)
> TYPE IS (mytype)
> ...
> END SELECT
>
> Here IS is a fortan intrinsic, so far so good. However, when I
> add a petsc index set as follows
>
> #include "petsc/finclude/petscksp.h"
>
> use petscksp, only: tIS
>
> IS :: myIS
>
> the compiler gets confused and thinks that the intrinsic fortran
> IS is the petsc index set IS, and errors-out on the SELECT
> TYPE:
>
> error #8245: SELECT TYPE statement must be immediately followed by CLASS IS,
> TYPE IS, CLASS DEFAULT or END SELECT statement.
> SELECT TYPE (myvar)
> ----^
> error #6410: This name has not been declared as an array or a function. [TYPE]
> TYPE type(tIS) (mytype)
> ---------^
> compilation aborted
>
> What would be the right way to deal with this problem?
> <image870949.png>
> dr. ir.
> Christiaan
> Klaij
> |
> Senior Researcher
> |
> Research & Development
> T +31 317 49 33 44 <tel:+31%20317%2049%2033%2044>
> |
> c.kl...@marin.nl <mailto:c.kl...@marin.nl>
> |
> https://urldefense.us/v3/__http://www.marin.nl__;!!G_uCfscf7eWS!YHMEsXfJ-XNk5b6HgivxkchNuwt2FjCj_pmjkzHYlkXw1xWEKDDXrJx9_kU4X76OwINhpeSRGozWLg-nNI4YirE$
>
> <https://urldefense.us/v3/__https://www.marin.nl/__;!!G_uCfscf7eWS!ci7RiI8WEqh81becsu6CMRqmK1It91JWMStWzWcFLARdy0n8d2WiqmINXWd-0992Ex6wcTfqupvy9nnMVdrITEk$>
> <image753651.png>
> <https://urldefense.us/v3/__https://www.facebook.com/marin.wageningen__;!!G_uCfscf7eWS!ci7RiI8WEqh81becsu6CMRqmK1It91JWMStWzWcFLARdy0n8d2WiqmINXWd-0992Ex6wcTfqupvy9nnMJEayozg$>
>
> <image316694.png>
> <https://urldefense.us/v3/__https://www.linkedin.com/company/marin__;!!G_uCfscf7eWS!ci7RiI8WEqh81becsu6CMRqmK1It91JWMStWzWcFLARdy0n8d2WiqmINXWd-0992Ex6wcTfqupvy9nnMHWYJziY$>
>
> <image966725.png>
> <https://urldefense.us/v3/__https://www.youtube.com/marinmultimedia__;!!G_uCfscf7eWS!ci7RiI8WEqh81becsu6CMRqmK1It91JWMStWzWcFLARdy0n8d2WiqmINXWd-0992Ex6wcTfqupvy9nnMGp7QgsM$>
