27 INTEGER,
PARAMETER :: double = selected_real_kind(p=14,
r=30)
29 real(kind=double) :: g_xmin,g_xmax,g_ymin,g_ymax,g_zmin,g_zmax
30 real(kind=double) :: xmn,xmx,ymn,ymx,zmn,zmx
39 open(7,file=
'bbox',
form=
'formatted',
status=
'old',iostat=ios)
41 write(*,*)
'I need file bbox from program hdf2bbx_d or reader'
44 open(10,file=
'BBOX',
form=
'formatted',
status=
'old',iostat=ios)
45 read(10,*)
string, g_xmin,g_xmax,g_ymin,g_ymax,g_zmin,g_zmax
46 write(*,*)
'Global BBX is ', &
47 g_xmin,g_xmax,g_ymin,g_ymax,g_zmin,g_zmax
52 write(*,*)
'Enter Xmin, Xmax, Ymin, Ymax, Zmin, Zmax'
57 open(8,file=
'Bbox',
form=
'formatted',
status=
'unknown')
58 open(9,file=
'Ibox',
form=
'formatted',
status=
'unknown')
61 read(7,*,iostat=ios) idom,xmn,xmx,ymn,ymx,zmn,zmx
66 if (xmn.gt.
xmax-eps .or. ymn.gt.
ymax-eps .or. zmn.gt.
zmax-eps) cycle
67 if (xmx.lt.
xmin+eps .or. ymx.lt.
ymin+eps .or. zmx.lt.
zmin+eps) cycle
73 10
format(
'block_',i4.4)
int status() const
Obtain the status of the attribute.
**********************************************************************Rocstar Simulation Suite Illinois Rocstar LLC All rights reserved ****Illinois Rocstar LLC IL **www illinoisrocstar com **sales illinoisrocstar com WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **Arising OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE **USE OR OTHER DEALINGS WITH THE SOFTWARE **********************************************************************INTERFACE SUBROUTINE form
static const char * string()