Commit 442da87e authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

initial hdf5

parent 33e8783d

sources/Makefile

+8 −0
Original line number Diff line number Diff line
@@ -24,6 +24,13 @@ LDFLAGS += -Wl,-rpath,$(GRDIR)/lib -L$(GRDIR)/lib 
LDLIBS  += -lGR

endif



ifneq ($(HDF5DIR),)

export PKG_CONFIG_PATH := $(HDF5DIR)/lib/pkgconfig:$(PKG_CONFIG_PATH)

FCFLAGS += $(shell pkg-config --cflags hdf5_fortran)

LDLIBS  += $(shell pkg-config --libs   hdf5_fortran)

endif





DEFINES+=-D_DEFAULT_INSTRUMENT_=$(INSTRUMENT)

DEFINES+=-D_VERSION_MAJOR_=$(VERSION_MAJOR) -D_VERSION_MINOR_=$(VERSION_MINOR) -D_VERSION_RELEASE_=\"$(VERSION_RELEASE)\"

DEFINES+=-D_BUILD_REVISION_=\"$(BUILD_REVISION)\"
@@ -71,6 +78,7 @@ FSOURCES2=\ 
	echo_shapes.f90   \

	file_utils.f90    \

	read_utils.f90    \

	read_nexus.f90    \

    texology.f90      \

    dump_data.f90     \

	write_utils.f90   \

sources/drspine.f90

+5 −0
Original line number Diff line number Diff line
@@ -31,6 +31,8 @@ program drspine 
  use gen_makro

  use plot_utils

  use drspine_utils

  !

  use read_nexus



  !

  implicit none
@@ -191,6 +193,9 @@ program drspine 
  !! LOG INITIALIZATION

  call loginit(prefix='drspine_')



  !!

  call nexus_init(ier)



  call data_manager_init(data_allocation, stat=istat)

  if (istat/=DATA_MANAGER_OK) &

    call msg_fatal('drspine', msg='data manager error', extra=msg_fmt('("allocating ",i0," slots failed")', data_allocation))

sources/read_nexus.f90

0 → 100644
+27 −0
Original line number Diff line number Diff line 
module read_nexus



  use hdf5

  use logger



  implicit none

  private



  public nexus_init







contains



  subroutine nexus_init(ier)

    integer, intent(out) :: ier



    call h5open_f(ier)

    ier = -1

    if (ier.lt.0) &

        call msg_fatal('nexus_init', msg='Error initializing HDF5 routines')

    call msg_info('nexus_init', msg='HDF5/NeXus module initialized')

  end subroutine nexus_init





end module read_nexus