diskio.h File Reference

#include <stdio.h>

Go to the source code of this file.

Functions
FILE *	pfopen (char *filename, const char *format, bool errorout=true)
FILE *	pfopen0 (char *filename, const char *format)
void	pfclose (FILE *fid, char *filename)
void	WriteLockFile (char *filename)

Function Documentation

pfopen()

FILE* pfopen	(	char *	filename,
		const char *	format,
		bool	errorout = true
	)

Definition at line 30 of file pfopen.cpp.

                                                             {
 
   FILE* fid=NULL;
 
   /*recover my_rank:*/
   int my_rank  = IssmComm::GetRank();
   int num_proc = IssmComm::GetSize();
 
   /*Open handle to data on disk (one by one to avoid errors)*/
   for(int i=0;i<num_proc;i++){
      if(my_rank==i) fid = fopen(filename,format);
      ISSM_MPI_Barrier(IssmComm::GetComm());
   }
   if(errorout && fid==NULL)_error_("could not open file " << filename << " for binary reading or writing");
 
   return fid;
}

pfopen0()

FILE* pfopen0	(	char *	filename,
		const char *	format
	)

Definition at line 16 of file pfopen.cpp.

                                                {
 
   FILE* fid=NULL;
 
   /*recover my_rank:*/
   int my_rank  = IssmComm::GetRank();
   if(my_rank) _error_("This function should only be called by cpu 0");
 
   /*Open handle to data on disk*/
   fid = fopen(filename,format);
   if(fid==NULL)_error_("could not open file " << filename << " for binary reading or writing");
 
   return fid;
}

pfclose()

void pfclose	(	FILE *	fid,
		char *	filename
	)

Definition at line 14 of file pfclose.cpp.

                                      {
 
   /*Close file handle: */
   _assert_(fid);
   if(fclose(fid)!=0)_error_("could not close file " << filename);
}

WriteLockFile()

void WriteLockFile

(

char *

filename

)

Definition at line 10 of file WriteLockFile.cpp.

                                  {
 
   /*recover my_rank:*/
   int my_rank=IssmComm::GetRank();
 
   /* output: */
   FILE* fid=NULL;
 
   /* Open lock file and write 1 into it: */
   if(my_rank==0){
      fid=fopen(filename,"w");
      if(fid==NULL) _error_("error message: could not open lock file " << filename);
 
      /*Close file: */
      if(fclose(fid)!=0) _error_("could not close lock file " << filename);
   }
 
}