 				sprintf(fname, "%s.%s.%02d", fname_pre, "A", index);
 				file_ptr[index] = fopen(fname, "w");
 				fwrite( param_ptr, sizeof(SHM_PARAM), 1, file_ptr[index]);
+				sprintf(fname, "%s.%s.%02d", fname_pre, "P", index);
+				power_ptr[index] = fopen(fname, "w");
+				fwrite( param_ptr, sizeof(SHM_PARAM), 1, power_ptr[index]);
 			}
 			sprintf(fname, "%s.%s.%02d", fname_pre, "C", 0);  file_ptr[Nif]   = fopen(fname, "w");
 			sprintf(fname, "%s.%s.%02d", fname_pre, "C", 1);  file_ptr[Nif+1] = fopen(fname, "w");

	short	*k5data_ptr;				// Pointer to shared K5 data
	float	*xspec_ptr;					// Pointer to 1-sec-integrated Power Spectrum
	FILE	*file_ptr[6];				// File Pointer to write
	char	fname[24];					// File Name [YYYYDOYHHMMSSIF]
	char	fname_pre[16];
	unsigned int		bitDist[64];

-------------------------------------------- RELEASE the SHM
*/
	for(index=0; index<Nif+2; index++){ fclose(file_ptr[index]); }
	for(index=0; index<Nif; index++){ fclose(power_ptr[index]); }
	cufftDestroy(cufft_plan);
	cudaFree(cuk5data_ptr); cudaFree(cuRealData); cudaFree(cuSpecData); cudaFree(cuPowerSpec), cudaFree(cuXSpec);

