init.c (77070f38be97ee027c72f2be8d844d65b3f2cef5) init.c (09f3b4e5628a00a1eaf17d80982cfbcc515cc9c1)
1#define PETSC_DLL
2/*
3
4 This file defines part of the initialization of PETSc
5
6 This file uses regular malloc and free because it cannot know
7 what malloc is being used until it has already processed the input.
8*/

--- 382 unchanged lines hidden (view full) ---

391 ierr = PetscLogOpenHistoryFile(0,&petsc_history);CHKERRQ(ierr);
392 }
393 }
394 ierr = PetscOptionsHasName(PETSC_NULL,"-log_info",&flg1);CHKERRQ(ierr);
395 if (flg1) {
396 char logname[PETSC_MAX_PATH_LEN]; logname[0] = 0;
397 ierr = PetscOptionsGetString(PETSC_NULL,"-log_info",logname,250,&flg1);CHKERRQ(ierr);
398 if (logname[0]) {
1#define PETSC_DLL
2/*
3
4 This file defines part of the initialization of PETSc
5
6 This file uses regular malloc and free because it cannot know
7 what malloc is being used until it has already processed the input.
8*/

--- 382 unchanged lines hidden (view full) ---

391 ierr = PetscLogOpenHistoryFile(0,&petsc_history);CHKERRQ(ierr);
392 }
393 }
394 ierr = PetscOptionsHasName(PETSC_NULL,"-log_info",&flg1);CHKERRQ(ierr);
395 if (flg1) {
396 char logname[PETSC_MAX_PATH_LEN]; logname[0] = 0;
397 ierr = PetscOptionsGetString(PETSC_NULL,"-log_info",logname,250,&flg1);CHKERRQ(ierr);
398 if (logname[0]) {
399 PetscLogInfoAllow(PETSC_TRUE,logname);
399 PetscVerboseInfoAllow(PETSC_TRUE,logname);
400 } else {
400 } else {
401 PetscLogInfoAllow(PETSC_TRUE,PETSC_NULL);
401 PetscVerboseInfoAllow(PETSC_TRUE,PETSC_NULL);
402 }
403 }
404#if defined(PETSC_HAVE_MPE)
405 ierr = PetscOptionsHasName(PETSC_NULL,"-log_mpe",&flg1);CHKERRQ(ierr);
406 if (flg1) PetscLogMPEBegin();
407#endif
408 ierr = PetscOptionsHasName(PETSC_NULL,"-log_all",&flg1);CHKERRQ(ierr);
409 ierr = PetscOptionsHasName(PETSC_NULL,"-log",&flg2);CHKERRQ(ierr);

--- 82 unchanged lines hidden (view full) ---

492 ierr = PetscOptionsGetInt(PETSC_NULL,"-petsc_sleep",&si,&flg1);CHKERRQ(ierr);
493 if (flg1) {
494 ierr = PetscSleep(si);CHKERRQ(ierr);
495 }
496
497 ierr = PetscOptionsGetString(PETSC_NULL,"-log_info_exclude",mname,PETSC_MAX_PATH_LEN,&flg1);CHKERRQ(ierr);
498 ierr = PetscStrstr(mname,"null",&f);CHKERRQ(ierr);
499 if (f) {
402 }
403 }
404#if defined(PETSC_HAVE_MPE)
405 ierr = PetscOptionsHasName(PETSC_NULL,"-log_mpe",&flg1);CHKERRQ(ierr);
406 if (flg1) PetscLogMPEBegin();
407#endif
408 ierr = PetscOptionsHasName(PETSC_NULL,"-log_all",&flg1);CHKERRQ(ierr);
409 ierr = PetscOptionsHasName(PETSC_NULL,"-log",&flg2);CHKERRQ(ierr);

--- 82 unchanged lines hidden (view full) ---

492 ierr = PetscOptionsGetInt(PETSC_NULL,"-petsc_sleep",&si,&flg1);CHKERRQ(ierr);
493 if (flg1) {
494 ierr = PetscSleep(si);CHKERRQ(ierr);
495 }
496
497 ierr = PetscOptionsGetString(PETSC_NULL,"-log_info_exclude",mname,PETSC_MAX_PATH_LEN,&flg1);CHKERRQ(ierr);
498 ierr = PetscStrstr(mname,"null",&f);CHKERRQ(ierr);
499 if (f) {
500 ierr = PetscLogInfoDeactivateClass(PETSC_NULL);CHKERRQ(ierr);
500 ierr = PetscVerboseInfoDeactivateClass(PETSC_NULL);CHKERRQ(ierr);
501 }
502
503 PetscFunctionReturn(0);
504}
505
506
501 }
502
503 PetscFunctionReturn(0);
504}
505
506