if (sliceCode == CODE_INIT)
   {
    fd = dOpen( outName, "w" );
   };

if (sliceCode < 1)
   {
    exit( 0 ); 
   };

FDDIMCOUNT = 9;

nDim = getParm( fdata, FDDIMCOUNT, 0 );

if (nDim == 1)
   {
    for( i = 0; i < size; i++ )
       {
        (void) fprintf( fd, " %5.0f % e % e\n",
                        i+1, rdata[i], idata[i] );
       }
   };

if (nDim == 2)
   {
    for( i = 0; i < size; i++ )
       {
        (void) fprintf( fd, " %5.0f %5.0f % e % e\n", 
                        i+1, yLoc, rdata[i], idata[i] );
       }
   };

if (nDim == 3)
   {
    for( i = 0; i < size; i++ )
       {
        (void) fprintf( fd, " %5.0f %5.0f %5.0f % e % e\n", 
                        i+1, yLoc, zLoc, rdata[i], idata[i] );
       }
   };

if (nDim == 4)
   {
    thisZLoc = 1 + ((zLoc - 1) % zSize);
    thisALoc = 1 + integer( zLoc/(1 + zSize) );

    for( i = 0; i < size; i++ )
       {
        (void) fprintf( fd, " %5.0f %5.0f %5.0f %5.0f % e % e\n", 
                        i+1, yLoc, thisZLoc, thisALoc, rdata[i], idata[i] );
       }
   };
