/*****************************************************

              FUNCTION CHANGEMAINBRANCH

  CHANGEMAINBRANCH CHANGES THE CHARACTER STRING MAINBRANCH
  IF INSTRUCTED TO DO SO BY THE EXISTENCE OF FILE
  'changemainbranch.d'  MAINBRANCH IS THE ROOT FILE NAME
  FOR THE DATABASE

*****************************************************/

#define MAXLINE 80

changemainbranch_(

 int *haschanged  /* HASCHANGED IS SET TO ONE IF A MAINBRANCH
                     OTHER THAN THE DEFAULT MAINBRANCH HAS BEEN
                     SET */

                 )
{

 FILE *fpmain;
 char othermain[MAXLINE];
 int i = 0;

 *haschanged = 0;

 if ( (fpmain = fopen("changemainbranch.d\0","r\0")) != NULL ) {

  while ( ( othermain[i++] = getc( fpmain ) ) != '\n'
         && !feof(fpmain));

  if ( i > 0 ) {

   i--;
   othermain[i] = '\0';
   strcpy(MAINBRANCH,othermain);
   *haschanged = i;

  }

  system("rm changemainbranch.d");

 }

}