Skip to content

Commit 83ccab1

Browse files
jacobwilliamsjacobwilliams
committed
removed some gremlin characters.
1 parent fa53671 commit 83ccab1

File tree

1 file changed

+19
-19
lines changed

1 file changed

+19
-19
lines changed

‎src/bspline_module.f90‎

Lines changed: 19 additions & 19 deletions
Original file line numberDiff line numberDiff line change
@@ -838,14 +838,14 @@ end subroutine db5ink
838838

839839
!*****************************************************************************************
840840
!# Evaluates the tensor product piecewise polynomial
841-
!# interpolant constructed by the routine **db5ink** or one of its
842-
!# derivatives at the point (xval,yval,zval,qval,rval).
841+
!# interpolant constructed by the routine **db5ink** or one of its
842+
!# derivatives at the point (xval,yval,zval,qval,rval).
843843
!#
844844
!# To evaluate the
845-
!# interpolant itself, set idx=idy=idz=idq=idr=0, to evaluate the first
846-
!# partial with respect to x, set idx=1,idy=idz=idq=idr=0, and so on.
847-
!# 
848-
!# See db3val header for more information.
845+
!# interpolant itself, set idx=idy=idz=idq=idr=0, to evaluate the first
846+
!# partial with respect to x, set idx=1,idy=idz=idq=idr=0, and so on.
847+
!#
848+
!# See db3val header for more information.
849849
!#
850850
!# History
851851
!#---------
@@ -867,9 +867,9 @@ real(wp) function db5val(xval,yval,zval,qval,rval,&
867867
integer,intent(in) :: idr !! r derivative of piecewise polynomial to evaluate.
868868
integer,intent(in) :: nx !! the number of interpolation points in x. (same as in last call to db5ink)
869869
integer,intent(in) :: ny !! the number of interpolation points in y. (same as in last call to db5ink)
870-
integer,intent(in) :: nz !! the number of interpolation points in z. (same as in last call to db5ink)
871-
integer,intent(in) :: nq !! the number of interpolation points in q. (same as in last call to db5ink)
872-
integer,intent(in) :: nr !! the number of interpolation points in r. (same as in last call to db5ink)
870+
integer,intent(in) :: nz !! the number of interpolation points in z. (same as in last call to db5ink)
871+
integer,intent(in) :: nq !! the number of interpolation points in q. (same as in last call to db5ink)
872+
integer,intent(in) :: nr !! the number of interpolation points in r. (same as in last call to db5ink)
873873
integer,intent(in) :: kx !! order of polynomial pieces in x. (same as in last call to db5ink)
874874
integer,intent(in) :: ky !! order of polynomial pieces in y. (same as in last call to db5ink)
875875
integer,intent(in) :: kz !! order of polynomial pieces in z. (same as in last call to db5ink)
@@ -1134,10 +1134,10 @@ real(wp) function db6val(xval,yval,zval,qval,rval,sval,&
11341134
integer,intent(in) :: ids !! s derivative of piecewise polynomial to evaluate.
11351135
integer,intent(in) :: nx !! the number of interpolation points in x. (same as in last call to db6ink)
11361136
integer,intent(in) :: ny !! the number of interpolation points in y. (same as in last call to db6ink)
1137-
integer,intent(in) :: nz !! the number of interpolation points in z. (same as in last call to db6ink)
1138-
integer,intent(in) :: nq !! the number of interpolation points in q. (same as in last call to db6ink)
1139-
integer,intent(in) :: nr !! the number of interpolation points in r. (same as in last call to db6ink)
1140-
integer,intent(in) :: ns !! the number of interpolation points in s. (same as in last call to db6ink)
1137+
integer,intent(in) :: nz !! the number of interpolation points in z. (same as in last call to db6ink)
1138+
integer,intent(in) :: nq !! the number of interpolation points in q. (same as in last call to db6ink)
1139+
integer,intent(in) :: nr !! the number of interpolation points in r. (same as in last call to db6ink)
1140+
integer,intent(in) :: ns !! the number of interpolation points in s. (same as in last call to db6ink)
11411141
integer,intent(in) :: kx !! order of polynomial pieces in x. (same as in last call to db6ink)
11421142
integer,intent(in) :: ky !! order of polynomial pieces in y. (same as in last call to db6ink)
11431143
integer,intent(in) :: kz !! order of polynomial pieces in z. (same as in last call to db6ink)
@@ -1328,12 +1328,12 @@ subroutine check(s,n,k,x,t,ierrs,error) !check t,x,n,k for validity
13281328

13291329
implicit none
13301330

1331-
character(len=1),intent(in),optional :: s !! coordinate string: 'x','y','z','q','r','s'
1332-
integer,intent(in),optional :: n !! size of x
1333-
integer,intent(in),optional :: k !! order
1334-
real(wp),dimension(:),intent(in),optional :: x !! abcissae vector
1335-
real(wp),dimension(:),intent(in),optional :: t !! knot vector size(n+k)
1336-
integer,dimension(4),intent(in) :: ierrs !! int error codes for n,k,x,t checks
1331+
character(len=1),intent(in),optional :: s !! coordinate string: 'x','y','z','q','r','s'
1332+
integer,intent(in),optional :: n !! size of x
1333+
integer,intent(in),optional :: k !! order
1334+
real(wp),dimension(:),intent(in),optional :: x !! abcissae vector
1335+
real(wp),dimension(:),intent(in),optional :: t !! knot vector size(n+k)
1336+
integer,dimension(4),intent(in) :: ierrs !! int error codes for n,k,x,t checks
13371337
logical,intent(out) :: error !! true if there was an error
13381338

13391339
if (present(n)) then

0 commit comments

Comments
 (0)