Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!ucbvax!apo.esiee.fr!bonnetf From: bonnetf@apo.esiee.fr (bonnet-franck) Newsgroups: comp.sys.apollo Subject: Re: node in C or FTN Message-ID: <9105241439.AA09379@apo.esiee.fr> Date: 24 May 91 14:39:28 GMT Sender: daemon@ucbvax.BERKELEY.EDU Organization: The Internet Lines: 44 Here is my contribution to get the node id of an APOLLO, at this time ( 10.3 - cc 6.8 - ftn 10.8) it seems to work. --------------------- source program in C ------------------ #include std_$call asknode_$who(); main () { int nodeid; short int nodecnt,i=1; asknode_$who(nodeid,i,nodecnt); printf("%x\n",nodeid); } ---------------------- end --------------------------------- --------------------- source program in FORTRAN ------------ program ask_node_id integer*4 nodeid integer*2 nodecnt call asknode_$who(nodeid,int2(1),nodecnt) write(*,10)nodeid 10 format(z5) end ---------------------- end --------------------------------- -------------------------------------------------------------------------------| bonnetf@apo.esiee.fr | | Frank Bonnet | Surfing ... | E.S.I.E.E | | BP99 93162 Noisy le Grand cedex.FRANCE. | the rest is details ! | Fax : 33 1 45 92 66 99 | | Voice : 33 1 45 92 66 17 | | -------------------------------------------------------------------------------|