test/H5BlockParTestScalarFieldF.f90

H5hut/src

- interface definition for "IARGC()" added, pgi-fortran
	  complains about this (intrinsic!) function.

This commit is contained in:

gsell

2006-10-27 14:52:54 +00:00

parent 4d2b43576f

commit a5e5d3f2a8

1 changed files with 5 additions and 0 deletions

									
										test/H5BlockParTestScalarFieldF.f90
									
		+5
		
												View File
												
				@@ -5,6 +5,11 @@ PROGRAM H5BlockParTestScalarFieldF

				   INCLUDE 'H5PartF90.inc'

				   INCLUDE 'H5BlockF90.inc'

				   INTERFACE

				      INTEGER FUNCTION IARGC ()

				      END FUNCTION IARGC

				   END INTERFACE

				   INTEGER :: myproc = 0

				   INTEGER :: nprocs = 1

				   INTEGER :: comm = MPI_COMM_WORLD