      SUBROUTINE WRITENET(CNETFILE,IDNC,CNETFLAG,CSTAMP,CDESCR,CMDFFT,
     &                    CALPHA,CSHAPE,CMDTRQ,MXWAV,MXRAD,MXTHET,
     &                    MXBETA,MXPHI,MXN3,MXNAT,MXSCA,MXTIMERS,IORTH,
     &                    NX,NY,NZ,NAT0,NAT,NAT3,NAVG,NSCAT,NCOMP,NORI,
     &                    NWAV,NRAD,NTHETA,NPHI,NBETA,NTIMERS,MXNX,MXNY,
     &                    MXNZ,MXCOMP,BETMID,BETMXD,THTMID,THTMXD,
     &                    PHIMID,PHIMXD,TOL,DX,WAVEA,AEFFA,
     &                    THETA,BETA,PHI,A1,A2,ICOMP,IXYZ0,IWAV,IRAD,
     &                    ITHETA,IBETA,IPHI,IORI,AEFF,WAVE,XX,AK1,BETAD,
     &                    THETAD,PHID,AKR,CXE01R,CXE02R,CXRFR,CXEPS,
     &                    QEXT,QABS,QSCAT,G,QBKSCA,QPHA,QAV,QTRQAB,
     &                    QTRQSC,SM,SMORI,
     &                    QEXSUM,QABSUM,QSCSUM,QBKSUM,QPHSUM,QSCGSUM,
     &                    QTRQABSUM,QTRQSCSUM,
     &                    PHIN,THETAN,TIMERS)
C***********************************************************************
C Dummy version of subroutine WRITENET
C (genuine subroutine WRITENET writes NetCDF portable binary file
C to file cnetfile 'dd.cdf')
C
C This dummy version is provided in order that use of DDSCAT is
C possible even if NetCDF software is not installed on system.
C
C History:
C 96.11.15 (PJF): First version of NetCDF  (Wolff's request)
C                 5a6 ---> 5a7 Converted to subroutine.
C 96.11.20 (BTD): dummy version created from real WRITENET
C 98.01.11 (BTD): added DX(3) to argument list for compatibility with
C                 new version of WRITENET
c 04.04.04 (BTD): Added additional variables to argument for
c                 compatibility with new version of WRITENET
C end history
C Copyright (C) 1996,1998,2004 B.T. Draine and P.J. Flatau
C This code is covered by the GNU General Public License.
C***********************************************************************
C
C     .. Scalar Arguments ..
      REAL AEFF,AK1,BETAD,BETMID,BETMXD,PHID,PHIMID,PHIMXD,THETAD,
     &     THTMID,THTMXD,TOL,WAVE,XX
      INTEGER IBETA,IDNC,IORI,IORTH,IPHI,IRAD,ITHETA,IWAV,
     &        MXBETA,MXCOMP,MXN3,MXNAT,MXNX,MXNY,MXNZ,MXPHI,MXRAD,MXSCA,
     &        MXTHET,MXTIMERS,MXWAV,NAT,NAT0,NAT3,NAVG,NBETA,NCOMP,NORI,
     &        NPHI,NRAD,NSCAT,NTHETA,NTIMERS,NWAV,NX,NY,NZ
      CHARACTER CALPHA*6,CMDFFT*6,CMDTRQ*6,CNETFLAG*6,CSHAPE*6,
     &          CNETFILE*14,CSTAMP*22,CDESCR*67
C     .. Array Arguments ..
      COMPLEX CXE01R(3),CXE02R(3),CXEPS(MXCOMP),CXRFR(MXCOMP)
      REAL A1(3),A2(3),AEFFA(MXRAD),AKR(3),BETA(MXBETA),DX(3),G(2),
     &     PHI(MXPHI),PHIN(MXSCA),
     &     QABS(2),QABSUM(2),QAV(17),QBKSCA(2),QBKSUM(2),QEXSUM(2),
     &     QEXT(2),QPHA(2),QPHSUM(2),QSCAT(2),QSCGSUM(3,2),QSCSUM(2),
     &     QTRQAB(3,2),QTRQSC(3,2),QTRQABSUM(3,2),QTRQSCSUM(3,2),
     &     SM(MXSCA,4,4),SMORI(MXSCA,4,4),
     &     THETA(MXTHET),THETAN(MXSCA),TIMERS(MXTIMERS),WAVEA(MXWAV)
      INTEGER*2 ICOMP(MXN3),IXYZ0(MXNAT,3)
C
C This subroutine should never be called, so if it is, bail out...
C
      CALL ERRMSG('FATAL','DUMMYWRITENET',
     &   ' NetCDF is not installed. Change to NOTCDF in ddscat.par!')
      RETURN
      END

