> >> /app1/mvapich2/current/include/mpif.h(9): error #6401: The attributes of > >> this name conflict with those made accessible by a USE statement. > >> [MPI_SOURCE] > >> INTEGER MPI_SOURCE, MPI_TAG, MPI_ERROR
You are using some module - based on the 'use' statement refered by the error above. And this module must be including mpif.h [or using mpi.mod] directly or indirectly - so you'll have to debug this fortran code issue. Or - send us a sample code we can use to reporduces this problem - Without that we are just shooting in the dark.. Satish On Fri, 16 Apr 2010, Wee-Beng Tay wrote: > Hi Matt, > > Nope, not in the file I'm trying to compile. Everything seems fine before. > > On Fri, Apr 16, 2010 at 12:09 PM, Matthew Knepley <knepley at gmail.com> > wrote: > > > It looks like you have conflicting definitions. Did you include "use mpi"? > > > > Matt > > > > > > On Thu, Apr 15, 2010 at 10:53 PM, Wee-Beng Tay <zonexo at gmail.com> wrote: > > > >> Hi Matt, > >> > >> I'm using petsc-3.1-p0. But it's now working. I only use 1 #include > >> "finclude/petsc.h" now. > >> > >> However when another of my f90 file has mpi command inside, I got the > >> error: > >> > >> /app1/mvapich2/current/include/mpif.h(9): error #6401: The attributes of > >> this name conflict with those made accessible by a USE statement. > >> [MPI_SOURCE] > >> INTEGER MPI_SOURCE, MPI_TAG, MPI_ERROR > >> ---------------^ > >> /app1/mvapich2/current/include/mpif.h(9): error #6401: The attributes of > >> this name conflict with those made accessible by a USE statement. > >> [MPI_TAG] > >> INTEGER MPI_SOURCE, MPI_TAG, MPI_ERROR > >> ---------------------------^ > >> /app1/mvapich2/current/include/mpif.h(9): error #6401: The attributes of > >> this name conflict with those made accessible by a USE statement. > >> [MPI_ERROR] > >> INTEGER MPI_SOURCE, MPI_TAG, MPI_ERROR > >> ------------------------------------^ > >> > >> What's happening now again? > >> > >> Thanks! > >> > >> > >> > >> On Fri, Apr 16, 2010 at 11:38 AM, Matthew Knepley <knepley at > >> gmail.com>wrote: > >> > >>> If you are using petsc-dev, you only need petsc.h > >>> > >>> Matt > >>> > >>> > >>> On Thu, Apr 15, 2010 at 10:27 PM, Wee-Beng Tay <zonexo at gmail.com> > >>> wrote: > >>> > >>>> 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! > >>>> > >>> > >>> > >>> > >>> -- > >>> 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 > >>> > >> > >> > > > > > > -- > > 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 > > >