diff --git a/Makefile b/Makefile index 1d94873..4eb8947 100644 --- a/Makefile +++ b/Makefile @@ -67,7 +67,7 @@ GIT_DIRTY ?= $(shell test -n "$$(git status --porcelain)" && echo "-dirty") # Note: can't use ?= for FC because GNU Make defaults to f77 FC = gfortran LD = gfortran -FFLAGS += -J$(OBJDIR) -I$(INCDIR) -ffree-line-length-none -fPIC +FFLAGS += -J$(OBJDIR) -I$(INCDIR) -ffree-line-length-none -fPIC -frecursive LDFLAGS += -L$(LIBDIR) CPPFLAGS += -DREVISION=\"$(GIT_REV)$(GIT_DIRTY)\" -DPREFIX=\"$(PREFIX)\" diff --git a/src/equilibrium.f90 b/src/equilibrium.f90 index d5cc50e..a97d574 100644 --- a/src/equilibrium.f90 +++ b/src/equilibrium.f90 @@ -911,7 +911,7 @@ contains ! Note: all output arguments are optional. use gray_params, only : iequil use reflections, only : inside - use const_and_precisions, only : one, pi + use const_and_precisions, only : pi implicit none @@ -1217,7 +1217,6 @@ contains ! (R, z) in cylindrical coordinates ! ! Note: all output arguments are optional. - use gray_params, only : iequil implicit none diff --git a/src/magsurf_data.f90 b/src/magsurf_data.f90 index f4584db..a841d20 100644 --- a/src/magsurf_data.f90 +++ b/src/magsurf_data.f90 @@ -458,7 +458,7 @@ contains ! local variables integer :: npoints,np,info,ic,ier,iopt,m - real(wp_) :: ra,rb,za,zb,th,zc,val + real(wp_) :: ra,rb,za,zb,th,zc real(wp_), dimension(mest) :: zeroc real(wp_), dimension(psi_spline%nknots_x) :: czc