beaufort/code/setdir_ice.c

/*
 * $Header: $
 * $Name:  $
*/

#include <stdlib.h>
#include <unistd.h>

void setdir_ice_( )
{
   char RUN_DIR[1024];
   char *rundirsetting;
   char *SROOT;
   char *SPREF;
   char *scycle;
   char *endPtr;
   char SROOT_BUFFER[1024];
   int  rc;
   int  sDirNum;
   int sDirCycle;

   sprintf(RUN_DIR,"ice");
   rc = chdir(RUN_DIR);
   /* perror(strerror(rc));
      exit(-1); */
}
1	/*
2	* $Header: $
3	* $Name: $
4	*/
5
6	#include <stdlib.h>
7	#include <unistd.h>
8
9	void setdir_ice_( )
10	{
11	char RUN_DIR[1024];
12	char *rundirsetting;
13	char *SROOT;
14	char *SPREF;
15	char *scycle;
16	char *endPtr;
17	char SROOT_BUFFER[1024];
18	int rc;
19	int sDirNum;
20	int sDirCycle;
21
22	sprintf(RUN_DIR,"ice");
23	rc = chdir(RUN_DIR);
24	/* perror(strerror(rc));
25	exit(-1); */
26	}