Thanks for the kindly reply.
By saying petscdef files, do you mean petscXXXdef, where XXX is the
corresponding component of PETSc, such as vec, mat, et. al.?
I tried the following approach, but it still doesn't work. The errors come out
since there are some PETSc variables defined in Module MyParameter. The
compiler cannot find PETSc datatype. The conflict is that some PESTs variables
have to defined in Module MyParameter, and other PETSc variables and PETSc
subroutines are defined and called in another Module MySub. Any hints and
suggestions would be appreciated very much. Thanks.
!--------------the way I declared the PETSc files
Module MyParameter
Implicit none
#include "finclude/petscsysdef.h" ! Put all petscXXXdef,h in the module
#include "finclude/petscvecdef.h"
#include "finclude/petscmatdef.h"
#include "finclude/petscpcdef.h"
#include "finclude/petsckspdef.h"
Integer:: ... ...
Real:: ... ... ! There are some PETSc variables defined in this Module
End Module MyParameter
Module MySub
Use Myparameter
Contains
... ...
Subroutine MyPETSc_APP()
#include "finclude/petscsys.h"
#include "finclude/petscvec.h"
#include "finclude/petscmat.h"
#include "finclude/petscpc.h"
#include "finclude/petscksp.h"
#include "finclude/petscsys.h90"
#include "finclude/petscmat.h90"
#include "finclude/petscvec.h90"
Implicit none
... ...
Call MatSetType(A_Mat, MATAIJ, ierr)
... ...
End Subroutine MyPETSc_APP
... ...
EndModule MySub
Main Program
Use MyParameter
Use MySub
... ...
... ...
End
Date: Tue, 28 Aug 2012 16:00:58 -0500
From: [email protected]
To: petsc-users at mcs.anl.gov
Subject: Re: [petsc-users] variable declaration in Fortran90
>From what i understand, you should #include the corresponding petscdef files
>in the module and the petsc headers in the subroutine.
petsc version installed on machine is petsc-3.2-p5
I use a single include file: #include "finclude/petscdef.h" in the module
and in the subroutines (including the ones that are defined after contains in
the module) and program.
#include "finclude/petsc.h"
you can use #include "finclude/petsc.h90" if you are using the things such as
vecgetArrayF90
On Tue, Aug 28, 2012 at 3:45 PM, Roc Wang <pengxwang at hotmail.com> wrote:
Hello,
I am developing Fortran90 code with PETSc. Several Modules are defined in
the code. Such as
Module MyParameter
Implicit none
#include "finclude/petscsys.h"
#include "finclude/petscvec.h"
#include "finclude/petscmat.h"
#include "finclude/petscpc.h"
#include "finclude/petscksp.h"
#include "finclude/petscvec.h90"
#include "finclude/petscmat.h90"
Integer:: ... ...
Real:: ... ...
End Module MyParameter
Module MySub
Use Myparameter
Contains
... ...
Call MatSetType(A_Mat, MATAIJ, ierr)
... ...
EndModule MySub
Main Program
Use MyParameter
Use MySub
... ...
... ...
End
If I put all the modules in a single .F90 file, the compilation can be done
successfully. However, If I put the modules in separated files, the following
error information comes out:
Error: Symbol 'mataij' at (1) has no IMPLICIT type.
In addition, if I use PetscInt, PetscErrorCode to declare variables in
Module MySub, the similar errors come out. How declare the variable with PETSc
type in separate files? Thanks.
--
-----------------------------------------------------
Dharmendar Reddy Palle
Graduate Student
Microelectronics Research center,
University of Texas at Austin,
10100 Burnet Road, Bldg. 160
MER 2.608F, TX 78758-4445
e-mail: dharmareddy84 at gmail.com
Phone: +1-512-350-9082
United States of America.
-------------- next part --------------
An HTML attachment was scrubbed...
URL:
<http://lists.mcs.anl.gov/pipermail/petsc-users/attachments/20120829/c40e478b/attachment.html>
