ScdMeshF90.F90 File Reference

#include "iMesh_f.h"

Include dependency graph for ScdMeshF90.F90:

Go to the source code of this file.

Macros
#define	ERROR(rval)   if (0 .ne. rval) call exit(1)

Functions/Subroutines
real function	reinterpret_ptr (xm, ni, nj, nk)
program	scdmeshf90

Macro Definition Documentation

ERROR

#define ERROR

(

rval

)

if (0 .ne. rval) call exit(1)

Function/Subroutine Documentation

reinterpret_ptr()

real function reinterpret_ptr	(	real, dimension(ni, nj, nk)	xm,
		integer	ni,
		integer	nj,
		integer	nk
	)

Definition at line 8 of file ScdMeshF90.F90.

integer :: ni, nj, nk
real, dimension(ni, nj, nk) :: xm
 
reinterpret_ptr = 0.0
do k = 1, nk
 do j = 1, nj
 do i = 1, ni
 reinterpret_ptr = reinterpret_ptr + xm(i, j, k)
 end do
 end do
end do

References reinterpret_ptr().

scdmeshf90()

program scdmeshf90

Definition at line 22 of file ScdMeshF90.F90.

References error(), and reinterpret_ptr().