/[escript]/trunk/paso/src/PasoUtil.c
ViewVC logotype

Diff of /trunk/paso/src/PasoUtil.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1668 by gross, Mon Jul 14 08:55:25 2008 UTC revision 1669 by gross, Thu Jul 24 01:10:04 2008 UTC
# Line 285  void ApplyGivensRotations(const dim_t n, Line 285  void ApplyGivensRotations(const dim_t n,
285          v[i+1]=w2;          v[i+1]=w2;
286     }     }
287  }  }
288    
289    bool_t Paso_fileExists( const char* filename )
290    {
291        FILE* fp = NULL;
292        fp = fopen(filename,"r");
293        if( fp != NULL ) {
294            close(fp);
295            return TRUE;
296        } else {
297            return FALSE;
298        }
299    }

Legend:
Removed from v.1668  
changed lines
  Added in v.1669

  ViewVC Help
Powered by ViewVC 1.1.26