217     long iocount = dimprod (dims, ndims);    /* product of dimensions */  local
240     long iocount = dimprod (dims, ndims);    /* product of dimensions */  local
326     long iocount = dimprod (dims, ndims);    /* product of dimensions */  local
349     long iocount = dimprod (dims, ndims);    /* product of dimensions */  local
435     long    iocount = dimprod (dims, ndims);  local
458     long    iocount = dimprod (dims, ndims);  local
1427     long iocount = dimprod (ncount, ndims);    /* product of dimensions */  local
1450     long iocount = dimprod (ncount, ndims);    /* product of dimensions */  local
1474     long iocount = dimprod (ncount, ndims);    /* product of dimensions */  local
1501     long iocount = dimprod (ncount, ndims);    /* product of dimensions */  local
1630     long iocount = dimprod (ncount, ndims);    /* product of dimensions */  local
1656     long iocount = dimprod (ncount, ndims);    /* product of dimensions */  local
1683     long iocount = dimprod (ncount, ndims);    /* product of dimensions */  local
1702     long iocount = dimprod (ncount, ndims);    /* product of dimensions */  local