[petsc-users] SNESSetConvergenceTest

[Jed Brown]

Dharmendar Reddy <dharmareddy84 at gmail.com> writes:
> Hello Jed,
>                 Sorry for the compilation issues, I do not have access
> to a machine with petsc and gfortran > 4.7 to fix the compile issues.
> Can you make the follwing changes to the code in precision_m module.
> REAL64 and REAL32 should be available via  iso_fortran_env module, I
> do not know why it is complaining.
>
> module precision_m
>   implicit none
>   integer,parameter :: DP = kind(1.0D0)
>   integer,parameter :: SP = kind(1.0E0)
>   integer,parameter :: WP=DP
>   integer,parameter :: MSL=100 ! MAX_STR_LENGTH
> end module precision_m

The f2003 dialect is not supported by mpif.h in my build of mpich-3.1.
I'll try spinning up a new build of MPICH with -std=f2003 (hopefully its
configure can sort this out).  Did I mention Fortran is not my favorite
language?


/opt/mpich/include/mpif.h:16.18:
    Included at /home/jed/petsc/include/finclude/petscsys.h:11:
    Included at /home/jed/petsc/include/finclude/petsc.h:7:
    Included at /home/jed/petsc/include/finclude/petsc.h90:5:
    Included at Solver.F90:160:

       CHARACTER*1 MPI_ARGVS_NULL(1,1)
                  1
Warning: Obsolescent feature: Old-style character length at (1)
/opt/mpich/include/mpif.h:17.18:
    Included at /home/jed/petsc/include/finclude/petscsys.h:11:
    Included at /home/jed/petsc/include/finclude/petsc.h:7:
    Included at /home/jed/petsc/include/finclude/petsc.h90:5:
    Included at Solver.F90:160:

       CHARACTER*1 MPI_ARGV_NULL(1)
                  1
Warning: Obsolescent feature: Old-style character length at (1)
/opt/mpich/include/mpif.h:528.16:
    Included at /home/jed/petsc/include/finclude/petscsys.h:11:
    Included at /home/jed/petsc/include/finclude/petsc.h:7:
    Included at /home/jed/petsc/include/finclude/petsc.h90:5:
    Included at Solver.F90:160:

       integer*8 MPI_DISPLACEMENT_CURRENT
                1
Error: GNU Extension: Nonstandard type declaration INTEGER*8 at (1)
/opt/mpich/include/mpif.h:546.13:
    Included at /home/jed/petsc/include/finclude/petscsys.h:11:
    Included at /home/jed/petsc/include/finclude/petsc.h:7:
    Included at /home/jed/petsc/include/finclude/petsc.h90:5:
    Included at Solver.F90:160:

       REAL*8 MPI_WTIME, MPI_WTICK
             1
Error: GNU Extension: Nonstandard type declaration REAL*8 at (1)
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 835 bytes
Desc: not available
URL: <http://lists.mcs.anl.gov/pipermail/petsc-users/attachments/20140225/73cead9d/attachment.pgp>