Home
last modified time | relevance | path

Searched refs:IOBuffer (Results 1 – 6 of 6) sorted by relevance

/petsc/src/sys/tutorials/
H A Dex9f.F9025 character(len=256) :: IOBuffer
47 write (IOBuffer, '("The bool value was set to ",L1,"\n")') bvalue
48 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
52 write (IOBuffer, '("The bool array was set to ",*(L1," "))') barray
53 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr))
57 write (IOBuffer, '("The bool value was set to ",A,"\n")') trim(list(evalue + 1))
58 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
62 write (IOBuffer, '("The integer value was set to ",I8,"\n")') ivalue
63 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
67 write (IOBuffer, '("The integer array was set to ",*(I8," "))') iarray
[all …]
/petsc/src/dm/impls/plex/tests/
H A Dex95f90.F9019 character(len=PETSC_MAX_PATH_LEN) :: ifilename, ofilename, IOBuffer
74 write (IOBuffer, '("Number of zonal variables:", I2,"\n")') nZonalVar
75 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
80 write (IOBuffer, '("Number of nodal variables:", I2,"\n")') nNodalVar
81 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
97 write (IOBuffer, '(" zonal variable:", I2,": ",A,"\n")') i, varName
98 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
102 write (IOBuffer, '(" nodal variable:", I2,": ",A,"\n")') i, varName
103 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
119 write (IOBuffer, '(" zonal variable:", I2,": ",A,"\n")') i, varName
[all …]
H A Dex48f90.F908 character(len=PETSC_MAX_PATH_LEN) :: IOBuffer variable
57 write (IOBuffer, *) 'Point ', p, ' dof ', dof, '\n'
58 PetscCallA(PetscPrintf(PETSC_COMM_SELF, IOBuffer, ierr))
H A Dex26f90.F9022 character(len=PETSC_MAX_PATH_LEN) :: ifilename, ofilename, IOBuffer
112 write (IOBuffer, '("Unsupported polynomial order ", I2, " not in [1,2]")') order
113 SETERRA(PETSC_COMM_WORLD, PETSC_ERR_ARG_OUTOFRANGE, IOBuffer)
176 write (IOBuffer, '("No layout for dimension ",I2)') sdim
232 write (IOBuffer, '("No layout for dimension ",I2)') sdim
233 SETERRA(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, IOBuffer)
275 write (IOBuffer, '("Unknown element with closure size ",I2)') size(closureA)/2
276 SETERRA(PETSC_COMM_SELF, PETSC_ERR_ARG_INCOMP, IOBuffer)
413 write (IOBuffer, '("UAlpha ||Vin - Vout|| = ",ES12.5)') norm
430 write (IOBuffer, '("UAlpha2 ||Vin - Vout|| = ",ES12.5)') norm
[all …]
H A Dex97f90.F9036 write (IOBuffer, '("cell: ",i3," type: ",i3,"\n")') p, cellType
37 PetscCallA(PetscPrintf(PETSC_COMM_SELF, IOBuffer, ierr))
H A Dex62f90.F9022 character(len=PETSC_MAX_PATH_LEN) :: ifilename, ofilename, IOBuffer
95 write (IOBuffer, '("Unsupported polynomial order ", I2, " not in [1,2]")') order
147 write (IOBuffer, '("No layout for dimension ",I2)') sdim
215 write (IOBuffer, '("No layout for dimension ",I2)') sdim
258 write (IOBuffer, '("Unknown element with closure size ",I2)') size(closureA)/2
397 write (IOBuffer, '("UAlpha ||Vin - Vout|| = ",ES12.5)') norm
414 write (IOBuffer, '("UAlpha2 ||Vin - Vout|| = ",ES12.5)') norm
465 write (IOBuffer, '("Sigma ||Vin - Vout|| = ",ES12.5)') norm