CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Forums > EnSight

need help ( generate binary file for Ensight )

Register Blogs Members List Search Today's Posts Mark Forums Read

Reply
 
LinkBack Thread Tools Display Modes
Old   July 28, 2009, 23:54
Default need help ( generate binary file for Ensight )
  #1
New Member
 
Edward
Join Date: Jul 2009
Posts: 12
Rep Power: 0
jackson is on a distinguished road
my fortran code generte a binary file in Ensight Gold format,but reading error. i used the ens_checker.bat but it just a sudden flash and disappear,i saw nothing about the debug information. who can help me, thank you very much!
my fortran code is given below

subroutine ensgeobin
use typedef
use vars
use paras
implicit none
integer,pointer :: nl,fl
integer i,j,m,k
character(80) :: buf
integer,external :: nvface

open(99,file='ensight.geo',form='binary')
buf='Fortran Binary'
write(99) buf
buf='Geometry File in Ensight Gold Format'
write(99) buf
buf=''
write(99) buf
buf='node id given'
write(99) buf
buf='element id given'
write(99) buf

do m=1,nbsets
buf='part'
write(99) buf
write(99) m
buf=bcn(m)
write(99) buf
buf='coordinates'
write(99) buf
write(99) nbv(m)
write(99) (i,i=1,nbv(m))
write(99) (cc(1,i,m),i=1,nbv(m))
write(99) (cc(2,i,m),i=1,nbv(m))
write(99) (cc(3,i,m),i=1,nbv(m))

if(icnt_4(m)>0)then
buf='quad4'
write(99) buf
write(99) icnt_4(m)
write(99) (i,i=1,icnt_4(m))
write(99) ((to4(j,i,m),j=1,4),i=1,icnt_4(m))
endif

if(icnt_3(m)>0)then
buf='tria3'
write(99) buf
write(99) icnt_3(m)
write(99) (i,i=1,icnt_3(m))
write(99) ((to3(j,i,m),j=1,3),i=1,icnt_3(m))
endif
end do

close(99)
jackson is offline   Reply With Quote

Old   July 29, 2009, 09:11
Default
  #2
Member
 
kevincolburn's Avatar
 
Kevin Colburn
Join Date: Mar 2009
Posts: 73
Rep Power: 8
kevincolburn is on a distinguished road
Jackson,

It looks like you are running on a windows platform. If you are, then try to run the ens_checker from a command prompt window, rather than just executing the .bat file.
Open up a command prompt, change directory to the location of the case file, and then type in ens_checker90 or ens_checker82 (depending upon which you have installed). The command prompt window will not close, and you should see the debug information.

(If you are on a linux system, you could type : ens_checker90 mycase.case >& log.txt and you will get the whole output sent to the log.txt file which could then examine in detail).

-Kevin
kevincolburn is offline   Reply With Quote

Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Convection discretization schemes for LES sek OpenFOAM Running, Solving & CFD 36 May 18, 2015 11:55
Paraview command not found hardy OpenFOAM Paraview & paraFoam 7 September 18, 2008 04:59
DxFoam reader update hjasak OpenFOAM Post-Processing 69 April 24, 2008 01:24
Problem with rhoSimpleFoam matteo_gautero OpenFOAM Running, Solving & CFD 0 February 28, 2008 07:51
PHI file structure Eugene Phoenics 9 November 2, 2001 23:00


All times are GMT -4. The time now is 18:58.