diff --git a/make.config b/make.config index fa55f3e..4cefef4 100644 --- a/make.config +++ b/make.config @@ -2,7 +2,7 @@ VERSION ?= 2.0.7 RANLIB ?= ranlib IRPF90 ?= irpf90 CC ?= gcc -FC ?= gfortran -g -ffree-line-length-none -fPIC # -fopenmp +FC ?= gfortran -g -ffree-line-length-none -fPIC FCFLAGS ?= -fPIC ARCHIVE ?= ar crs RANLIB ?= ranlib diff --git a/src/libezfio_util.irp.f b/src/libezfio_util.irp.f index 35e5e50..fa6dc8b 100644 --- a/src/libezfio_util.irp.f +++ b/src/libezfio_util.irp.f @@ -220,11 +220,9 @@ subroutine ezfio_read_array_%(type_short)s(dir,fil,rank,dims,dim_max,dat) allocate (buffer(dim_max)) read(libezfio_iunit,'(A)') buffer(1:dim_max) - !$OMP PARALLEL DO PRIVATE(i) do i=1,dim_max read(buffer(i),%(fmt)s) dat(i) enddo - !$OMP END PARALLEL DO deallocate(buffer) call libezfio_closez(trim(l_filename),'r') return @@ -262,12 +260,10 @@ subroutine ezfio_write_array_%(type_short)s(dir,fil,rank,dims,dim_max,dat) write(libezfio_iunit,'(30(I20,X))') dims(1:rank) close(unit=libezfio_iunit) allocate (buffer(dim_max)) - !$OMP PARALLEL DO PRIVATE(i) do i=1,dim_max write(buffer(i)(1:24), %(fmt)s) dat(i) buffer(i)(25:25) = 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')