Commit 73adfb0f authored by Gregor Michalicek's avatar Gregor Michalicek

Some initializations. I don't see how they should be important...

...but Lord Valgrind demands that I correct them. :)
parent 8e90d52c
...@@ -32,7 +32,9 @@ ...@@ -32,7 +32,9 @@
!<--Locals !<--Locals
INTEGER(HID_t)::testid INTEGER(HID_t)::testid
INTEGER ::hdferr INTEGER ::hdferr
!> !>
testid = 0
hdferr = 0
CALL h5eclear_f(hdferr) CALL h5eclear_f(hdferr)
!No automatic error checking! !No automatic error checking!
CALL h5eset_auto_f(0, hdferr) CALL h5eset_auto_f(0, hdferr)
...@@ -62,7 +64,9 @@ ...@@ -62,7 +64,9 @@
!<--Locals !<--Locals
INTEGER(HID_t)::testid INTEGER(HID_t)::testid
INTEGER ::hdferr INTEGER ::hdferr
!> !>
testid = 0
hdferr = 0
CALL h5eclear_f(hdferr) CALL h5eclear_f(hdferr)
!No automatic error checking! !No automatic error checking!
CALL h5eset_auto_f(0, hdferr) CALL h5eset_auto_f(0, hdferr)
...@@ -91,7 +95,9 @@ ...@@ -91,7 +95,9 @@
!<--Locals !<--Locals
INTEGER(HID_t)::testid INTEGER(HID_t)::testid
INTEGER ::hdferr INTEGER ::hdferr
!> !>
testid = 0
hdferr = 0
CALL h5eclear_f(hdferr) CALL h5eclear_f(hdferr)
!No automatic error checking! !No automatic error checking!
CALL h5eset_auto_f(0, hdferr) CALL h5eset_auto_f(0, hdferr)
......
Markdown is supported
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