Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Fixed inconsistent interface definitions
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Jul 9, 2021
1 parent e186156 commit ee55741
Show file tree
Hide file tree
Showing 2 changed files with 9 additions and 7 deletions.
8 changes: 4 additions & 4 deletions Makefile.Defines
Original file line number Diff line number Diff line change
Expand Up @@ -65,13 +65,13 @@ GPAR = -fopenmp -ftree-parallelize-loops=4
GMEM = -fsanitize=undefined -fsanitize=address -fsanitize=leak
GWARNINGS = -Wall -Warray-bounds -Wimplicit-interface -Wextra -Warray-temporaries

#FFLAGS = $(IDEBUG) $(HEAPARR)
FFLAGS = $(IDEBUG) $(HEAPARR)
#FFLAGS = -init=snan,arrays -no-wrap-margin -O3 $(STRICTREAL) $(SIMDVEC) $(PAR)
#FORTRAN = ifort
FORTRAN = ifort
#AR = xiar

FORTRAN = gfortran
FFLAGS = -ffree-line-length-none $(GDEBUG) #$(GMEM)
#FORTRAN = gfortran
#FFLAGS = -ffree-line-length-none $(GDEBUG) #$(GMEM)
AR = ar

# DO NOT include in CFLAGS the "-c" option to compile object only
Expand Down
8 changes: 5 additions & 3 deletions src/symba/symba_io.f90
Original file line number Diff line number Diff line change
Expand Up @@ -272,7 +272,7 @@ module subroutine symba_io_read_frame_pl(self, iu, param, form, ierr)
return
end subroutine symba_io_read_frame_pl

subroutine symba_io_read_frame_info(self, iu, param, form, ierr)
module subroutine symba_io_read_frame_info(self, iu, param, form, ierr)
!! author: David A. Minton
!!
!! Reads a single frame of a particle info data from a file.
Expand All @@ -282,6 +282,8 @@ subroutine symba_io_read_frame_info(self, iu, param, form, ierr)
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
character(*), intent(in) :: form !! Input format code ("XV" or "EL")
integer(I4B), intent(out) :: ierr !! Error code

ierr = 0
end subroutine symba_io_read_frame_info

module subroutine symba_io_read_cb_in(self, param)
Expand Down Expand Up @@ -410,7 +412,7 @@ module subroutine symba_io_read_pl_in(self, param)
return
end subroutine symba_io_read_pl_in

subroutine symba_io_write_frame_cb(self, iu, param)
module subroutine symba_io_write_frame_cb(self, iu, param)
!! author: David A. Minton
!!
!! Writes a single frame of a SyMBA pl file
Expand All @@ -437,7 +439,7 @@ subroutine symba_io_write_frame_cb(self, iu, param)
end select
end subroutine symba_io_write_frame_cb

subroutine symba_io_write_frame_pl(self, iu, param)
module subroutine symba_io_write_frame_pl(self, iu, param)
!! author: David A. Minton
!!
!! Writes a single frame of a SyMBA pl file
Expand Down

0 comments on commit ee55741

Please sign in to comment.