ScdMeshF77.F File Reference

#include "iMesh_f.h"

Include dependency graph for ScdMeshF77.F:

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	scdmesh

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 ScdMeshF77.F.

 integer ni, nj, nk
 real xm(ni, nj, nk)
 
 reinterpret_ptr = 0.0
 do 10 k = 1, nk
 do 10 j = 1, nj
 do 10 i = 1, ni
 reinterpret_ptr = reinterpret_ptr + xm(i, j, k)
 10 continue
 return

Referenced by reinterpret_ptr(), scdmesh(), and scdmeshf90().

scdmesh()

program scdmesh

Definition at line 21 of file ScdMeshF77.F.

References error(), and reinterpret_ptr().