From cfb61939bc53bd60a498c8273ed24f65bb97da44 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sun, 27 Oct 2019 23:46:36 +0100 Subject: [PATCH] Char array as 1D Version:1.6.1 --- src/libezfio_util.irp.f | 10 ++++------ version | 2 +- 2 files changed, 5 insertions(+), 7 deletions(-) diff --git a/src/libezfio_util.irp.f b/src/libezfio_util.irp.f index 9331f1e..23ff0f5 100644 --- a/src/libezfio_util.irp.f +++ b/src/libezfio_util.irp.f @@ -416,7 +416,7 @@ subroutine ezfio_write_array_ch(dir,fil,rank,dims,dim_max,dat) integer :: i character*(1024) :: l_filename(2) integer :: length - character(len=:), allocatable :: buffer(:) + character(len=:), allocatable :: buffer if (libezfio_read_only) then call ezfio_error(irp_here,'Read-only file.') endif @@ -431,13 +431,11 @@ subroutine ezfio_write_array_ch(dir,fil,rank,dims,dim_max,dat) close(unit=libezfio_iunit) length = len(dat(1)) - allocate( character(len=length+1) :: buffer(dim_max) ) - !$OMP PARALLEL DO PRIVATE(i) + allocate( character(len=(length+1)*dim_max) :: buffer ) do i=1,dim_max - write(buffer(i)(1:length), '(A)') dat(i) - buffer(i)(length+1:length+1) = ACHAR(10) + write(buffer((i-1)*(length+1)+1:i*(length+1)-1), '(A)') dat(i) + buffer(i*(length+1):i*(length+1)) = ACHAR(10) enddo - !$OMP END PARALLEL DO call libezfio_reopenz_unformatted(trim(l_filename(1)),'wb',err) write(libezfio_iunit) buffer call libezfio_closez(trim(l_filename(1)),'w') diff --git a/version b/version index 3fc90d5..e7a9389 100644 --- a/version +++ b/version @@ -1 +1 @@ -VERSION=1.6.0 +VERSION=1.6.1