Skip to content

Commit 6543c43

Browse files
Correct size of NXhandle in Fortran
This resolves #409 for me
1 parent 2514921 commit 6543c43

2 files changed

Lines changed: 2 additions & 2 deletions

File tree

bindings/f77/napif.inc.in

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -36,7 +36,7 @@ C *** NXHANDLESIZE should be the size of an INTEGER*4 array that is (at least)
3636
C *** large enough to hold an NXhandle structure
3737
INTEGER NXHANDLESIZE
3838
C PARAMETER(NXHANDLESIZE=5120)
39-
PARAMETER(NXHANDLESIZE=9058)
39+
PARAMETER(NXHANDLESIZE=9124)
4040
C *** NXLINKSIZE is (at least) the size of an INTEGER*4 array that can hold
4141
C *** an NXlink structure: we'll assume 64bit alignment of structure members for safety
4242
INTEGER NXLINKSIZE

bindings/f90/NXmodule.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -73,7 +73,7 @@ MODULE NXmodule
7373
INTEGER(kind=NXi4) :: dummy(1040) ! at least as large as in napi.h
7474
END TYPE
7575
TYPE, PUBLIC :: NXhandle
76-
INTEGER(kind=NXi4) :: dummy(9058) ! at least as large as in nxstack.c
76+
INTEGER(kind=NXi4) :: dummy(9124) ! at least as large as in nxstack.c
7777
END TYPE
7878
! *** Buffers for each type of parameter
7979
INTEGER(KIND=NXi1), ALLOCATABLE, PRIVATE :: buffer_i1(:)

0 commit comments

Comments
 (0)