subroutine expmd1(imdf,ical,imsf,irpf,irpac,irpa,imsh)
c
c this routine loads the irpa,ims(high) arrays from the memory dumps
c written by jlg 9/28/81
c last mods jfej/jlg 21 oct 81 mass setting for he+ (3610) loaded
c       
c
      integer irpa(32),imsh(32)
      integer*2 imdf, ical, imsf, irpf, irpac
      integer*2 irpamd(32),imsmd(32)
      integer*2 hder1(100)
      integer*2 idat(2812)
      common /maf1/ idat
      equivalence (idat(1),hder1(1))
      equivalence (hder1(37),irpamd(1))
      equivalence (hder1(69),imsmd(1))
c
      if( (imdf.eq.0).and.(ical.eq.0) ) go to 2000
c a memory dump or a calibration sequence must be going on
c
      do 1000 j=1,32
      irpa(j)=-1
      imsh(j)=-1
 1000 continue
      return
c
c load in the memory dump rpa and ims
c
 2000 continue
      do 3000 j=1,32
      irpa(j)=irpamd(j)
      imsh(j)=imsmd(j)
 3000 continue
c
c determine the actual rpa values
c
      if(irpf.eq.0) go to 5000
c ignore the rpa mem-dump settings and set all rpa's to 0
      do 4000 j=1,32
      irpa(j)=0
 4000 continue
c
c determine the actual ims values
c
 5000 continue
      if( (imsf.eq.0).and.(irpac.eq.0) ) return
c if irpac = 1 then the ims is ignored and we are in the 
c electrometer mode
      imass=-1
c if imsf = 1 then toggling on h+/he+ (load in he+ into high ims)
      if(imsf.eq.1) imass=3610
      do 6000 j=1,32
      imsh(j)=imass
 6000 continue
      return
      end