XANSYS Message: 47 [Go back to message list]
[bookmark on del.icio.us]
No rating yet
Subject: vwrite trick #2
Author: Joe Rasche
Date: 1998-12-16 09:48:00We have a winner, thanks James for the feedback. The trick works on both HP
and
SUN.
Question:
Could someone out there please test this attached macro on a PC and SGI so I
can
put this issue to bed.
There should NOT be a period behind any integers that are printed out of ANSYS.
Thanks in advance.
Joe Rasche
A: One way to eliminate the decimal point is to use the FORTRAN descriptor TL
(tab left) and put a space where the decimal point was. For example:
*vwrite,dat(1)
(f10.0,tl1,' ')
This works on a SUN machine, I have not tried it on other platforms
James J. Kosloski
ANSYS Technical Support
(860) 557-3461
Engineering Bldg, 3rd fl. Col. E-2
fini
/prep7
*get,mxnode,node,,num,max
*get,ndcount,node,,count
*get,minnode,node,,num,min
*dim,nddata,array,ndcount,4,1
*do,i,1,ndcount
nddata(i,1)=minnode
nddata(i,2)=nx(minnode)
nddata(i,3)=ny(minnode)
nddata(i,4)=nz(minnode)
minnode=ndnext(minnode)
*enddo
*cfopen,glist
*vwrite,nddata(1,1),nddata(1,2),nddata(1,3),nddata(1,4)
(' node = ',F8.0,tl1,' ',1X,F10.5,1X,F10.5,1X,F10.5)
*cfclose,glist
*list,glist
* Joseph A. Rasche | Speed Code T10B *
* Sr. Project Engineer | Rolls-Royce Allison *
* Methods Group | P.O. Box 420 *
* Ph: (317) 230-3796 | Indianapolis, IN 46206-0420 *
* FAX: (317) 230-6514 | email: jz9hn2@a... *