Skip to content
Snippets Groups Projects
Commit e511e018 authored by Omar Awile's avatar Omar Awile
Browse files

Fixed a typo in ODE RHS interfaces

parent 07659d6a
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/ppm_module_ode_step.f
+ 4
− 4
View file @ e511e018
......@@ -101,7 +101,7 @@
LOGICAL, DIMENSION(:,:), INTENT(IN), OPTIONAL :: lpack
REAL(kind(1.0E0)), DIMENSION(:,:), INTENT(IN), OPTIONAL :: rpack
INTEGER :: rhsfunc
END FUNCTION rhsfunc
END FUNCTION rhsfunc_ss
! vector
FUNCTION rhsfunc_sv(topoid,xp,up,dup,lda,npart,ipack,&
......@@ -115,7 +115,7 @@
LOGICAL, DIMENSION(:,:), INTENT(IN), OPTIONAL :: lpack
REAL(kind(1.0E0)), DIMENSION(:,:), INTENT(IN), OPTIONAL :: rpack
INTEGER :: rhsfunc
END FUNCTION rhsfunc
END FUNCTION rhsfunc_sv
! double precision
......@@ -132,7 +132,7 @@
LOGICAL, DIMENSION(:,:), INTENT(IN), OPTIONAL :: lpack
REAL(kind(1.0D0)), DIMENSION(:,:), INTENT(IN), OPTIONAL :: rpack
INTEGER :: rhsfunc
END FUNCTION rhsfunc
END FUNCTION rhsfunc_ds
! vector
FUNCTION rhsfunc_dv(topoid,xp,up,dup,lda,npart,ipack,&
......@@ -146,7 +146,7 @@
LOGICAL, DIMENSION(:,:), INTENT(IN), OPTIONAL :: lpack
REAL(kind(1.0D0)), DIMENSION(:,:), INTENT(IN), OPTIONAL :: rpack
INTEGER :: rhsfunc
END FUNCTION rhsfunc
END FUNCTION rhsfunc_dv
END INTERFACE
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment