Skip to content
Snippets Groups Projects
Commit 013ba69a authored by Thomas Jahns's avatar Thomas Jahns :cartwheel:
Browse files

Change POINTER to TARGET.

* Needed to handle arrays of datetime objects.
parent a16b4f78
No related branches found
No related tags found
No related merge requests found
......@@ -1351,8 +1351,8 @@ contains
!!
!! @param[out] errno optional, error message
subroutine getDatetimeFromJulianDay(jd, dt, errno)
type(julianday), target :: jd
type(datetime), pointer :: dt
TYPE(julianday), TARGET, INTENT(in) :: jd
TYPE(datetime), TARGET, INTENT(out) :: dt
type(c_ptr) :: dummy_ptr
integer, optional:: errno
if (present(errno)) errno = 0
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment