XANSYS Message: 49 [Go back to message list]
[bookmark on del.icio.us]
No rating yet
Subject: Re: vwrite trick #2
Author: Mike Rife
Date: 1998-12-16 10:11:00Joseph,
I tested the macro on an PC (NT 4.0)
and a SGI Origin 2000, both with Ansys
5.5.1, and it looks like all is well. :)
mike
Mike Rife
ANSYS Technical Support
Automated Analysis Corp.
Ann Arbor, MI
(734) 975-0041
Fax: (734) 973-1190
mrife@a...
-----Original Message-----
To: xansys@o...
>From: jz9hn2@a... ( Joseph A Rasche 230-3796 3892)
>We 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
>From: "Kosloski, James"
>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... *
| Posts possibly associated with message #49 | Author | Date | Score |
|---|
| 47 | vwrite trick #2 | Joe Rasche | 1998/12/16 | |
| 49 | Re: vwrite trick #2 | Mike Rife | 1998/12/16 | |