C
C $Id: assign.F,v 1.2 1998/07/16 16:39:18 jjv5 Exp arjan $
C
C------------------------------------------------------------------------
      subroutine assign(name, nindex, index, value, ierror)
      implicit double precision(a-h,o-z)
#include "divcon.dim"
#include "divcon.h"

      character*80 name
      dimension index(maxindex)

      if (nindex.eq.2) then
         i1 = index(1)
         i2 = index(2)
         if ((i2.lt.1).or.(i2.gt.83)) then
            ierror = 1
            return
         endif
         if ((i1.ge.0).and.(i1.le.2)) then
            if (name.eq."UCORE") then
               ucore4(i1, i2) = value
               return
            elseif (name.eq."EXPNT") then
               expnt4(i1,i2) = value
               return
            elseif (name.eq."AL") then
               al4(i1,i2) = value
               return
            elseif (name.eq."BETA") then
               beta4(i1,i2) = value
               return
            endif
         endif
         if((i1.ge.1).and.(i1.le.2)) then
            if (name.eq."DL") then
               dl4(i1,i2) = value
               return
            endif
         endif
         if ((i1.ge.1).and.(i1.le.4)) then
            if (name.eq."AGAUS") then
               agaus4(i1,i2) = value
               return
            elseif (name.eq."BGAUS") then
               bgaus4(i1,i2) = value
               return
            elseif (name.eq."CGAUS") then
               cgaus4(i1,i2) = value
               return
             endif
          endif

C     .   if code gets here, an error occured
          ierror = 1
      elseif (nindex.eq.1) then
         i1 = index(1)
         if ((i1.lt.1).or.(i1.gt.83)) then
            ierror = 1
            return
         endif
         if (name.eq."GSS") then
            gss4(i1) = value
         elseif (name.eq."GPP") then
            gpp4(i1) = value
         elseif (name.eq."GSP") then
            gsp4(i1) = value
         elseif (name.eq."GP2") then
            gp24(i1) = value
         elseif (name.eq."HSP") then
            hsp4(i1) = value
         elseif (name.eq."ACORE") then
            acore4(i1) = value
         elseif (name.eq."EEATM") then
            eeatm4(i1) = value
         elseif (name.eq."HFATM") then
            hfatm4(i1) = value
         else
            ierror = 1
         endif
      elseif (nindex.eq.0) then
         if (name.eq."EPEPMX") then
            epepmx4 = value
         else
            ierror = 1
         endif
      else
         ierror = 1
      endif

      end