********> bugfix.15
Author:   Bill Ross
Date:     1/30/98

Programs: Carnal

Severity: Moderate

Description: STATIC: when periodic boundary and coordinate file
		format is either pdb, or restrt without a box, 
		program stops.

NOTE:  This fix leaves pdb and restrt coords without a box.

Fix:  Make the following changes to static.c:
-------------------------------------------------------------------------
*** OLD static.c
--- NEW static.c
***************
*** 130,135
  		 */
  
  		while(1) {
  
  			/*
  			 *  allocate space, read a set

--- 130,138 -----
  		 */
  
  		while(1) {
+ 			int	nget = natbox;
+ 			if ((ifmt == RST  ||  ifmt == PDB)  &&  box)
+ 				nget--;
  
  			/*
  			 *  allocate space, read a set
***************
*** 135,141
  			 *  allocate space, read a set
  			 */
  			crd = (_REAL *) get(crdspace);
! 			for (i=0; i<natbox; i++) {
  				int	x = 3 * i;
  				if (scanfmt(ifmt, file, tmpname, &crd[x])) {
  					if (i == 0)

--- 138,144 -----
  			 *  allocate space, read a set
  			 */
  			crd = (_REAL *) get(crdspace);
! 			for (i=0; i<nget; i++) {
  				int	x = 3 * i;
  				if (scanfmt(ifmt, file, tmpname, &crd[x])) {
  					if (i == 0)
***************
*** 149,155
  				}
  			}
  			if (i) {
! 			    if (box)
  				printf("stat: read in %d atoms plus box\n",i-1);
  			    else
  				printf("stat: read in %d atoms\n", i);

--- 152,158 -----
  				}
  			}
  			if (i) {
! 			    if (box  &&  ifmt != PDB  && ifmt != RST)
  				printf("stat: read in %d atoms plus box\n",i-1);
  			    else
  				printf("stat: read in %d atoms\n", i);
----------------------------------------------------------------------------