Lines Matching refs:nsurf

61   INTEGER :: i, j, k, m, nx, ny, nsurf, ntails, nonflag  variable
71   READ(5,*) nsurf
77   maxatom = natoms + nsurf*ntails
80   nbonds = nsurf*ntails
81   IF (nonflag.EQ.1) nbonds = nbonds + nsurf*(ntails-1)
119   DO i = 1,nsurf
154       nbonds = nsurf*ntails
155       DO i = 1,nsurf
169   natoms = natoms + nsurf*ntails
170   nbonds = nsurf*ntails
171   IF (nonflag == 1) nbonds = nbonds + nsurf*(ntails-1)
176   IF (nsurf == 0) THEN
218   IF (nsurf > 0) THEN