Skip to content

Commit c4d4409

Browse files
committed
bug fix when using REAL128
1 parent 0da2ee1 commit c4d4409

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/json_file_module.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2692,7 +2692,7 @@ subroutine json_file_update_real64(me,path,val,found)
26922692
real(real64),intent(in) :: val
26932693
logical(LK),intent(out) :: found
26942694

2695-
call me%update(me%p,path,real(val,RK),found)
2695+
call me%update(path,real(val,RK),found)
26962696

26972697
end subroutine json_file_update_real64
26982698
!*****************************************************************************************

0 commit comments

Comments
 (0)