c
c  Copy required dimensions into the fortran common block
c
      subroutine fillparamsf(
     &     s_ndump,
     &     s_mxatms,
     &     s_msatms,
     &     s_mslst,
     &     s_mxlist,
     &     s_mxtmls,
     &     s_mxmols,
     &     s_mxsite,
     &     s_mxexcl,
     &     s_kmaxb,
     &     s_kmaxc,
     &     s_mxewld,
     &     s_mxpbnd,
     &     s_mxtang,
     &     s_mxangl,
     &     s_mxtdih,
     &     s_mxdihd,
     &     s_mxtbnd,
     &     s_mxbond,
     &     s_mxtcon,
     &     s_mxcons,
     &     s_mxxdf,
     &     s_mxbuff,
     &     s_mxshak,
     &     s_mxgrid,
     &     s_mxsvdw,
     &     s_mxvdw,
     &     s_mxpvdw,
     &     s_mxrdf,
     &     s_mxstak,
     &     s_mxnstk,
     &     s_mxlshp,
     &     s_mxgrp,
     &     s_mxngp,
     &     s_mxungp,
     &     s_mxgatm,
     &     s_mxquat,
     &     s_mxteth,
     &     s_msteth,
     &     s_msbad,
     &     s_mxneut,
     &     s_mxfld,
     &     s_mx2tbp,
     &     s_mxtbp,
     &     s_mxcell,
     &     s_mxpmf,
     &     s_mspmf,
     &     s_mxspmf,
     &     s_mxshl,
     &     s_mxtshl,
     &     s_mxpban,
     &     s_mxtbang,
     &     s_mxbang,
     &     s_mxpanan,
     &     s_mxtanan,
     &     s_mxanan,
     &     s_mxpaat,
     &     s_mxtaat,
     &     s_mxaat,
     &     s_msgrp)

      implicit integer (a-z)

      include 'dl_params.inc'

      ndump = s_ndump
      mxatms = s_mxatms
      msatms = s_msatms
      mslst = s_mslst
      mxlist = s_mxlist
      mxtmls = s_mxtmls
      mxmols = s_mxmols
      mxsite = s_mxsite
      mxexcl = s_mxexcl
      kmaxb = s_kmaxb
      kmaxc = s_kmaxc
      mxewld = s_mxewld
      mxpbnd = s_mxpbnd
      mxtang = s_mxtang
      mxangl = s_mxangl
      mxtdih = s_mxtdih
      mxdihd = s_mxdihd
      mxtbnd = s_mxtbnd
      mxbond = s_mxbond
      mxtcon = s_mxtcon
      mxcons = s_mxcons
      mxxdf = s_mxxdf
      mxbuff = s_mxbuff
      mxshak = s_mxshak
      mxgrid = s_mxgrid
      mxsvdw  = s_mxsvdw 
      mxvdw  = s_mxvdw 
      mxpvdw  = s_mxpvdw 
      mxrdf  = s_mxrdf 
      mxstak = s_mxstak
      mxnstk = s_mxnstk
      mxlshp = s_mxlshp
      mxgrp  = s_mxgrp 
      mxngp  = s_mxngp 
      mxungp  = s_mxungp 
      mxgatm  = s_mxgatm 
      mxquat  = s_mxquat 
      mxteth  = s_mxteth 
      msteth  = s_msteth 
      msbad  = s_msbad 
      mxneut  = s_mxneut 
      mxfld  = s_mxfld 
      mx2tbp = s_mx2tbp
      mxtbp = s_mxtbp
      mxcell = s_mxcell
      mxpmf = s_mxpmf
      mspmf = s_mspmf
      mxspmf = s_mxspmf
      mxshl = s_mxshl
      mxtshl = s_mxtshl
      mxpban = s_mxpban
      mxtbang = s_mxtbang
      mxbang = s_mxbang
      mxpanan = s_mxpanan
      mxtanan = s_mxtanan
      mxanan = s_mxanan
      mxpaat = s_mxpaat
      mxtaat = s_mxtaat
      mxaat = s_mxaat
      msgrp = s_msgrp

      end