[petsc-users] Error during compiling my own code

Thu Apr 15 22:27:29 CDT 2010

Hi,

I have successfully built the PETSc libraries no my linux system.

make ex1f also works.

However, when compiling my own code, I got the error:

[atlas5-c01]$ /app1/mvapich2/current/bin/mpif90 -c  -O3
-I/home/svu/g0306332/codes/petsc-3.1-p0/atlas5-mpi-nodebug/include
-I/home/svu/g0306332/codes/petsc-3.1-p0/include
-I/home/svu/g0306332/lib/hypre-2.6.0b_atlas5/include
-I/app1/mvapich2/1.4/include -I/app1/mvapich2/current/include
-I/home/svu/g0306332/codes/petsc-3.1-p0/atlas5-mpi-nodebug/include
-I/home/svu/g0306332/lib/hypre-2.6.0b_atlas5/include
-I/app1/mvapich2/1.4/include -I/app1/mvapich2/current/include    -o global.o
global.F -132
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(10): error
#6418: This name has already been assigned a data type.   [NORM_1]
      integer(kind=selected_int_kind(5)) NORM_1
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(11): error
#6418: This name has already been assigned a data type.   [NORM_2]
      integer(kind=selected_int_kind(5)) NORM_2
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(12): error
#6418: This name has already been assigned a data type.   [NORM_FROBENIUS]
      integer(kind=selected_int_kind(5)) NORM_FROBENIUS
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(13): error
#6418: This name has already been assigned a data type.   [NORM_INFINITY]
      integer(kind=selected_int_kind(5)) NORM_INFINITY
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(14): error
#6418: This name has already been assigned a data type.   [NORM_MAX]
      integer(kind=selected_int_kind(5)) NORM_MAX
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(15): error
#6418: This name has already been assigned a data type.   [NORM_1_AND_2]
      integer(kind=selected_int_kind(5)) NORM_1_AND_2
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(22): error
#6418: This name has already been assigned a data type.   [NOT_SET_VALUES]
      integer(kind=selected_int_kind(5)) NOT_SET_VALUES
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(23): error
#6418: This name has already been assigned a data type.   [INSERT_VALUES]
      integer(kind=selected_int_kind(5)) INSERT_VALUES
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(24): error
#6418: This name has already been assigned a data type.   [ADD_VALUES]
      integer(kind=selected_int_kind(5)) ADD_VALUES
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(25): error
#6418: This name has already been assigned a data type.   [MAX_VALUES]
      integer(kind=selected_int_kind(5)) MAX_VALUES
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(32): error
#6418: This name has already been assigned a data type.   [SCATTER_FORWARD]
      integer(kind=selected_int_kind(5)) SCATTER_FORWARD
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(33): error
#6418: This name has already been assigned a data type.   [SCATTER_REVERSE]
      integer(kind=selected_int_kind(5)) SCATTER_REVERSE
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(34): error
#6418: This name has already been assigned a data type.
[SCATTER_FORWARD_LOCAL]
      integer(kind=selected_int_kind(5)) SCATTER_FORWARD_LOCAL
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(35): error
#6418: This name has already been assigned a data type.
[SCATTER_REVERSE_LOCAL]
      integer(kind=selected_int_kind(5)) SCATTER_REVERSE_LOCAL
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(36): error
#6418: This name has already been assigned a data type.   [SCATTER_LOCAL]
      integer(kind=selected_int_kind(5)) SCATTER_LOCAL
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(44): error
#6418: This name has already been assigned a data type.
[VEC_IGNORE_OFF_PROC_ENTRIES]
      integer(kind=selected_int_kind(5)) VEC_IGNORE_OFF_PROC_ENTRIES
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(45): error
#6418: This name has already been assigned a data type.
[VEC_IGNORE_NEGATIVE_INDICES]
      integer(kind=selected_int_kind(5)) VEC_IGNORE_NEGATIVE_INDICES
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(53): error
#6418: This name has already been assigned a data type.   [VECOP_VIEW]
      integer(kind=selected_int_kind(5)) VECOP_VIEW
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscvec.h(54): error
#6418: This name has already been assigned a data type.
[VECOP_LOADINTOVECTOR]
      integer(kind=selected_int_kind(5)) VECOP_LOADINTOVECTOR
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscmat.h(10): error
#6418: This name has already been assigned a data type.
[MAT_FLUSH_ASSEMBLY]
      integer(kind=selected_int_kind(5)) MAT_FLUSH_ASSEMBLY
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscmat.h(11): error
#6418: This name has already been assigned a data type.
[MAT_FINAL_ASSEMBLY]
      integer(kind=selected_int_kind(5)) MAT_FINAL_ASSEMBLY
-----------------------------------------^
/home/svu/g0306332/codes/petsc-3.1-p0/include/finclude/petscmat.h(17): error
#6418: This name has already been assigned a data type.   [MAT_FACTO

I don't remember having this error in prev version of PETSc. May I know what
went wrong?

The 1st few lines of my code are:

    module global_data

    implicit none

    save

#include "finclude/petsc.h"
#include "finclude/petscvec.h"
#include "finclude/petscmat.h"
#include "finclude/petscksp.h"
#include "finclude/petscpc.h"
#include "finclude/petscsys.h"

    integer ::
size_x,size_y,Total_time_step,new_start,interval,gridgen,safe_int,OS,airfoil_no

    integer ::
steady,quasi_steady,Total_k,time,mom_solver,poisson_solver,start_time,motion

    !size_x must be in multiples of 37/32/36/40/55/41, !size_y must be in
multiples of 26/16/36

    !gridgen1 - 32x20, gridgen4 - 30x22, gridgen5 - 30x24

    real(8) :: CFL, Re, scheme, B, AA, BB,AB,
ld,air_centy,Pi,hy0,k0,freq,phase_ang,theta0,loc_rot

    real(8) :: time_sta,act_time,vel_h,vel_hn,inv_Re

Thanks alot!
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.mcs.anl.gov/pipermail/petsc-users/attachments/20100416/0d493190/attachment-0001.htm>