Function:     iras_root

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

Category:     IRAS

File:	      iras_root.c

Author:       Do Kester

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 : /net/hermes/SRONproj/iras/server/

Updates:      29 Nov 1991: DK, Creation date
	      27 Mar 2003: DK, move to another storage system
	      02 Feb 2011: JPT, yet another storage system