******** bugfix.30

Author: 	Aeint de Boer, UCLA
Date:  		2/11/92

PROBLEM: 	An uninitialized logical variable in PARM can cause a
		bailout with a "Missing nonbond values for atom type --" 
		message.
	 

DETAILS:	In the parm program, the nbinpt subroutine does not 
		initialize the skip value for the last atom after reading
		the non-bond information.  This can lead to the uninitialized
		skip value being interpreted as .true.

SIGNIFICANCE:	If PARM runs, no problem. The purpose of the array is
		just cosmetic, affecting printout only. So far, this
		has only been a problem for AIX/370.

FIX:	In src/parm/rdinpt.f, add the line denoted by '+' in the 
	1st column, below (do not add the '+').

c
c  --- check for and eliminate duplicates in the non-bonded list
c      (this just makes the print-out nicer)
c
+     skip(inum) = .false. 
      do 72 i=1,inum-1
        skip(i) = .false.
        do 71 j=i+1,inum
          if (ltynb(i).eq.ltynb(j)) skip(i) = .true.
   71   continue
   72 continue