istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Improve compatibility with some compilers

Browse Source
This commit is contained in:
Lorenzo Figini 2024-05-30 16:26:23 +02:00
parent 624fbe3ec1
commit 2b8ec53d70
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gray_errors.f90
View File

@ -24,7 +24,7 @@ module gray_errors
! macros used for defining errors ! macros used for defining errors
# define _ , # define _ ,
# define list(x) reshape([character(64) :: x], [10], ['']) # define list(x) reshape([character(64) :: x], [10], [character(64) :: ''])
# define after(x) x%offset + x%subcases # define after(x) x%offset + x%subcases
! All GRAY errors ! All GRAY errors

10
src/splines.f90
View File

@ -34,6 +34,11 @@ module splines
procedure :: deriv => spline_1d_deriv procedure :: deriv => spline_1d_deriv
end type end type
! Wrapper to store pointers in an array
type pointer
real(wp_), pointer :: ptr(:) => null()
end type
! A 2D smoothing/interpolating cubic spline s(x, y) ! A 2D smoothing/interpolating cubic spline s(x, y)
type spline_2d type spline_2d
integer :: nknots_x ! Number of x knots integer :: nknots_x ! Number of x knots
@ -54,11 +59,6 @@ module splines
procedure :: transform => spline_2d_transform procedure :: transform => spline_2d_transform
end type end type
! Wrapper to store pointers in an array
type pointer
real(wp_), pointer :: ptr(:) => null()
end type
! A simple 1D linear interpolation ! A simple 1D linear interpolation
type linear_1d type linear_1d
integer :: ndata ! Number of data points integer :: ndata ! Number of data points