asc26 amss-ncku initialized

AMSS_NCKU_source/writefile_f.C

@@ -0,0 +1,53 @@
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include "macrodef.h"
+extern "C"
+{
+#ifdef fortran1
+	void writefile_f
+#endif
+#ifdef fortran2
+		void WRITEFILE_F
+#endif
+#ifdef fortran3
+		void
+		writefile_f_
+#endif
+		(int &filetag, double *matrix, int &msize)
+	{
+		char fname[32];
+		char ftag[32];
+		// itoa(filetag,ftag,10);
+		sprintf(ftag, "%d", filetag);
+		strcpy(fname, "matrix_f.out");
+		strcat(fname, ftag);
+
+		/*printf("-------------called-------------");
+		printf(fname);
+		printf("\n");
+		printf("int tag %d\n",filetag);
+		printf("int msize %d\n",msize);
+		printf(ftag);*/
+
+		printf("int msize %d\n", msize);
+
+		FILE *fp;
+		fp = fopen(fname, "wb");
+		// char buffer[1024];
+		// buffer[1023]='\0';
+		// int bsize;
+
+		if (fp == NULL)
+		{
+			printf("Open file failed.");
+			exit(0);
+		}
+
+		// msize =  sizeof(double) * msize;
+		fwrite(matrix, sizeof(double), msize, fp);
+
+		fclose(fp);
+		// return 0;
+	}
+}