Lines Matching refs:IOBuffer

25   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
68     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr))
72     write (IOBuffer, '("The real value was set to ",ES12.5,"\n")') rvalue
73     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
77     write (IOBuffer, '("The real array was set to ",*(ES12.5," "))') rarray
78     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr))
82     write (IOBuffer, '("The scalar value was set to ",ES12.5,"\n")') svalue
83     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
87     write (IOBuffer, '("The scalar array was set to ",*(ES12.5," "))') sarray
88     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr))
92     write (IOBuffer, '("The string value was set to ",A,"\n")') trim(stvalue)
93     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))