fhost.c (dbedd957638efd57e1887fe14a343bec9fd41351) fhost.c (09f3b4e5628a00a1eaf17d80982cfbcc515cc9c1)
1#define PETSC_DLL
2/*
3 Code for manipulating files.
4*/
5#include "petsc.h"
6#include "petscsys.h"
7#if defined(PETSC_HAVE_STDLIB_H)
8#include <stdlib.h>

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

93 ierr = PetscStrcmp(name + ll - 4,".com",&flag);CHKERRQ(ierr);
94 if (!flag) {
95 ierr = PetscStrcmp(name + ll - 4,".net",&flag);CHKERRQ(ierr);
96 if (!flag) {
97 ierr = PetscStrcmp(name + ll - 4,".org",&flag);CHKERRQ(ierr);
98 if (!flag) {
99 ierr = PetscStrcmp(name + ll - 4,".mil",&flag);CHKERRQ(ierr);
100 if (!flag) {
1#define PETSC_DLL
2/*
3 Code for manipulating files.
4*/
5#include "petsc.h"
6#include "petscsys.h"
7#if defined(PETSC_HAVE_STDLIB_H)
8#include <stdlib.h>

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

93 ierr = PetscStrcmp(name + ll - 4,".com",&flag);CHKERRQ(ierr);
94 if (!flag) {
95 ierr = PetscStrcmp(name + ll - 4,".net",&flag);CHKERRQ(ierr);
96 if (!flag) {
97 ierr = PetscStrcmp(name + ll - 4,".org",&flag);CHKERRQ(ierr);
98 if (!flag) {
99 ierr = PetscStrcmp(name + ll - 4,".mil",&flag);CHKERRQ(ierr);
100 if (!flag) {
101 ierr = PetscLogInfo((0,"PetscGetHostName:Rejecting domainname, likely is NIS %s\n",name));CHKERRQ(ierr);
101 ierr = PetscVerboseInfo((0,"PetscGetHostName:Rejecting domainname, likely is NIS %s\n",name));CHKERRQ(ierr);
102 name[l-1] = 0;
103 }
104 }
105 }
106 }
107 }
108 }
109 }
110 PetscFunctionReturn(0);
111}
102 name[l-1] = 0;
103 }
104 }
105 }
106 }
107 }
108 }
109 }
110 PetscFunctionReturn(0);
111}