Skip to Content.
Sympa Menu

h5part - [H5Part] version 1.6.2, fortran testf.F90

h5part AT lists.psi.ch

Subject: H5Part development and discussion

List archive

[H5Part] version 1.6.2, fortran testf.F90


Chronological Thread 
  • From: Sergey Litvinov <slitvinov AT gmail.com>
  • To: h5part AT lists.psi.ch
  • Subject: [H5Part] version 1.6.2, fortran testf.F90
  • Date: Wed, 6 Oct 2010 10:40:58 +0200
  • Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=mime-version:in-reply-to:references:date:message-id:subject:from:to :content-type; b=TkXZYdmoYnDhOvXldR9uQ0+Qq6rwoyGMZ9fp5mF2DnNmytsxiO5VF4cgAlQmf30EXV 6M3+iAHYdUnBqGvbG3OdTr077pWmFicMI2YYqruKz/iW3i8RdW3HoagRbDT11CNcX9YC 92zSCXKo72V5GEoYlDH7OHPz9YeVE8XQSTJqU=
  • List-archive: <https://lists.web.psi.ch/pipermail/h5part/>
  • List-id: H5Part development and discussion <h5part.lists.psi.ch>

I found that test/testf.F90 fails to compile for the serial IO case.
Please consider a tiny fix in attachments.
--- testf.F90.org	2010-10-06 10:10:12.000000000 +0200
+++ testf.F90	2010-10-06 10:10:40.000000000 +0200
@@ -7,9 +7,9 @@ program H5PartTest
   include 'H5PartF.h'
 
 #ifdef PARALLEL_IO
-  integer :: comm, ierr, i
-  integer*8 :: file_id, status, npoints
+  integer :: comm, ierr
 #endif
+  integer*8 :: file_id, status, npoints, i
   real*8, allocatable :: x(:),y(:),z(:),px(:),py(:),pz(:)
   integer*8, allocatable :: id(:)
 


  • [H5Part] version 1.6.2, fortran testf.F90, Sergey Litvinov, 10/06/2010

Archive powered by MHonArc 2.6.19.

Top of Page