      SUBROUTINE XMIE(RAD,RREAL,XIMG,QEXT,QSCT,QABS,CBAR,WAVEN)
C CHANGED TO WORK WITH THE VAX MIE VERSION
       COMPLEX ACAP(7000)
c     COMPLEX ACAP(700000)
c     COMPLEX ACAP(2000000)
      REAL  ELTRMX(4,1,2),PIE(3,1),TAU(3,1),CSTHT(1),SI2THT(1)
      REAL RO,REALO,XIMGO,QE,QS,CB,RD2,RN,CN,TPILAM
c     print*,RAD,RREAL,XIMG,QEXT,QSCT,QABS,CBAR,WAVEN
      RO=RAD
      REALO=RREAL
      XIMGO=XIMG
      RD2=0.
      RN=1.0
      CN=0.
      WAVEL=1.E4/WAVEN
      TPILAM=2.0*3.14159/WAVEL
      CALL DMIESS (RO,   REALO,      XIMGO,    0.0,     1,
     *              QE, QS,CB,
     *              ELTRMX,PIE,TAU,CSTHT,SI2THT,ACAP,1,
c    *              2000000,  RD2, RN, CN, TPILAM)
     *              7000,  RD2, RN, CN, TPILAM)
      CBAR=CB/QS
      QEXT=QE*3.14159*RAD*RAD*1.E-8
      QSCT=QS*3.14159*RAD*RAD*1.E-8
      QABS=QEXT-QSCT
      SIZE=3.14159*RAD*RAD*1.E-8
      RETURN
      END
