Function:     iras_root

Purpose:      provide a string containing the basename of the IRAS server

Category:     IRAS

File:         iras_root.c

Author:       Do Kester		do@guspace.rug.nl

Use:  integer iras_root_c( 
	root )		O	character*(*)

	root	the name of the IRAS root (enclosed in backslashes)

	returns the number of characters in root
		-1 : not enough characters in root

Dependent:    System dependent name; now : /rog11/

Updates:      29 Nov 1991: DK, Creation date