c-----------------------------------------------------------------------------
      integer nbio,nfrc
      parameter (nbio=6,nfrc=5)
c-----------------------------------------------------------------------------