/*
 * use gcc -c nullify_ws.c
 *
 * set the F90 array pointer to null
 *
 * V702 1/17 *sh* for trac enhancement #2369 -- dynamic memory management
 *
 */

#include <Python.h> /* make sure Python.h is first */
#include <stdlib.h>
#include "ferret.h"

void FORTRAN(nullify_ws)(int *ws)
/*
  input  - ws:  Ferret ws index at which to store the array pointer
*/
{
  double *nul_ptr;

  nul_ptr = (double *) NULL;

  FORTRAN(store_nul_ws_ptr) (ws, nul_ptr);

  return;
}
