1      subroutine argos_cafe_pardif(wgt,vdw,chg,iwat,iwqt,mwb,
2     + nwb,nbp,bndw,
3     + mwh,nwh,nhp,angw,mwd,nwd,ndp,dihw,mwo,nwo,nop,oopw,
4     + msb,npb,bnds,msh,nph,angs,msd,npd,dihs,mso,npo,oops)
5c
6      implicit none
7c
8#include "argos_cafe_common.fh"
9c
10      real*8 wgt(mat,mset),vdw(mat,mat,map,mset),chg(mqt,mqp,mset)
11      integer iwat(mwa),iwqt(mwa)
12      integer mwb,mwh,mwd,mwo,nbp,nhp,ndp,nop
13      integer nwb,nwh,nwd,nwo
14      integer msb,msh,msd,mso,npb,nph,npd,npo
15      real*8 bndw(mwb,nbp,6),angw(mwh,nhp,6)
16      real*8 dihw(mwd,ndp,6),oopw(mwo,nop,6)
17      real*8 bnds(msb,npb,6),angs(msh,nph,6)
18      real*8 dihs(msd,npd,6),oops(mso,npo,6)
19c
20      return
21      end
22c $Id$
23