[futurebasic] Fortran and C to FB

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : May 1999 : Group Archive : Group : All Groups

From: Robert Covington <t88@...>
Date: Thu, 20 May 1999 15:56:47 -0700 (MST)
Couple of conversion questions for those who know and can help...

Re: Fortran, it has been so long since I used it, what would the variable
types for "real*4" be in FB? %,&,#,! ? And what about the term "implicit
none", what did that reference back in that language?

real*4 x1,y1,z1,x2,y2,z2,x3,y3,z3,xp,yp
real*4 a,b,c,d



Then I have the below C structure to deal with. I am unsure what is going
on below with the pointers and such. If anyone could convert these to the
appropriate records and arrays such that it covers all that is shown below,
I would appreciate it. I get confused somewhere around the pxyz array
thing, because I don't see it being set up as the structs are. I am trying
to port a Delaunay Triangulation FN to FutureBasic. Assuming I can get it
working I will post note of it to the list at that time. I think it should
be straightforward enough to do once I get the appropriate data structures
set up.

Thanks, anyone.

Robert Covington

'Begin C stuff:
    .
typedef struct {
   double x,y,z;
} XYZ;
typedef struct TRIANGLE {
        long p1,p2,p3;
} TRIANGLE;
typedef struct EDGE {
        long p1,p2;
} EDGE;


'Takes as input NV vertices in array pxyz
'Returned is a list of ntri triangular faces in the array v

void triangulate(nv,pxyz,v,ntri)
long nv;
XYZ *pxyz;
TRIANGLE *v;
long *ntri;