#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>

void getcompname_( char* str, int* namelen )
{
   memset(str,32,*namelen); 
   if( gethostname(str,*namelen) == -1 )
     {
	sprintf(str,"error");
     }
   str[strlen(str)]=32;  /* REMOVING NULL termination for FORTRAN */
}