*** alps.c.orig	Tue Jun 13 16:48:32 1995
--- alps.c	Tue Jun 13 16:40:38 1995
***************
*** 3543,3548 ****
--- 3543,3549 ----
      char *temp;
      char *temp2;
      float tval;
+     int gcount;
  
      tlen = ey -sy + 1;
      temp = GJstrcreate(tlen+1,NULL);
***************
*** 3558,3564 ****
  	    ++k;
  	}
  	temp2 = GJstoupper(temp);
! 	tval = mzcons((unsigned char *)temp2,tlen);
  /*	fprintf(stderr,"In calcons: i:%d tlen:%d temp:%s tval:%f\n",i,tlen,temp,tval);*/
  	ret_val[i] = 10 * tval;
  	GJfree(temp2);
--- 3559,3574 ----
  	    ++k;
  	}
  	temp2 = GJstoupper(temp);
! 	/* check for all gap columns */
! 	gcount = 0;
! 	for(j=0;j<tlen;++j){
! 	    if(temp2[j] == ' ') ++gcount;
! 	}
! 	if(gcount == tlen){
! 	    tval = 0.0;
! 	}else{
! 	    tval = mzcons((unsigned char *)temp2,tlen);
! 	}
  /*	fprintf(stderr,"In calcons: i:%d tlen:%d temp:%s tval:%f\n",i,tlen,temp,tval);*/
  	ret_val[i] = 10 * tval;
  	GJfree(temp2);