source: CIVL/mods/dev.civl.abc/examples/fortran/flash/heat/_Grid_getBlkPtr.F90

main
Last change on this file was aad342c, checked in by Stephen Siegel <siegel@…>, 3 years ago

Performing huge refactor to incorporate ABC, GMC, and SARL into CIVL repo and use Java modules.

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5664 fb995dde-84ed-4084-dfe6-e5aef3e2452c
  • Property mode set to 100644
File size: 303 bytes
Line 
1subroutine Grid_getBlkPtr(blockID,dataPtr)
2
3#include "constants.h"
4#include "Flash.h"
5
6 use physicaldata, ONLY : unk
7
8 implicit none
9 integer, intent(in) :: blockID
10 real, dimension(:,:,:,:), pointer :: dataPtr
11
12 dataPtr => unk(:,:,:,:,blockid)
13
14
15 return
16end subroutine Grid_getBlkPtr
17
18
19
20
21
22
23
24
Note: See TracBrowser for help on using the repository browser.