*Deck GetVDW                                                              line.161999
      Subroutine GetVDW(In,IOut,IPrint,IDump,IGrTyp,IVDTyp,IRedVD,        line.162000

C     4 ... UFF Radii.                                                    line.162008


C%SN  6-9 ... Recommended by Kosugi (same as MK).                        < insert 1 line comment

C                                                                         line.162009
      Parameter (MaxVan=100,NVan=3)                                       line.162010
                   
c.............................................................................................

        Write(IOut,1090) Fact                                             line.162042

C%SN<                                                                    < insert 5 lines
      else if(IVDTyp.ge.6.or.IVDTyp.le.9) then                           < 
        Write(IOut,1000)                                                 <
        IVDTyp=1                                                         <
C%SN>                                                                    <

      else                                                                line.162043
        Write(IOut,1030) IVDTyp                                           line.162044