| /petsc/src/vec/vec/tutorials/ |
| H A D | ex11f90.F90 | 13 character(len=PETSC_MAX_PATH_LEN) :: outputString
52 write (outputString, *) norm
53 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_2 Norm of entire vector: '//trim(outputString)//'\n', …
56 write (outputString, *) norm
57 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_1 Norm of entire vector: '//trim(outputString)//'\n', …
60 write (outputString, *) norm
61 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_inf Norm of entire vector: '//trim(outputString)//'\n'…
64 write (outputString, *) norm
65 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_2 Norm of sub-vector 0: '//trim(outputString)//'\n', i…
68 write (outputString, *) norm
[all …]
|
| /petsc/src/sys/tutorials/ |
| H A D | ex2f.F90 | 9 character(len=PETSC_MAX_PATH_LEN) :: outputString
23 write (outputString, *) 'No of Processors = ', size, ', rank = ', rank, '\n'
24 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
26 write (outputString, *) rank, 'Synchronized Hello World\n'
27 PetscCallA(PetscSynchronizedPrintf(PETSC_COMM_WORLD, outputString, ierr))
29 write (outputString, *) rank, 'Synchronized Hello World - Part II\n'
30 PetscCallA(PetscSynchronizedPrintf(PETSC_COMM_WORLD, outputString, ierr))
36 write (outputString, *) rank, 'Jumbled Hello World\n'
37 PetscCallA(PetscPrintf(PETSC_COMM_SELF, outputString, ierr))
|
| H A D | ex17f.F90 | 9 character(len=PETSC_MAX_PATH_LEN) :: outputString
17 write (outputString, *) 'Library major', major, 'does not equal include', PETSC_VERSION_MAJOR
18 SETERRA(PETSC_COMM_SELF, PETSC_ERR_PLIB, trim(outputString))
22 write (outputString, *) 'Library minor', minor, 'does not equal include', PETSC_VERSION_MINOR
23 SETERRA(PETSC_COMM_SELF, PETSC_ERR_PLIB, trim(outputString))
27 …write (outputString, *) 'Library subminor', subminor, 'does not equal include', PETSC_VERSION_SUBM…
28 SETERRA(PETSC_COMM_SELF, PETSC_ERR_PLIB, trim(outputString))
|
| H A D | ex1f.F90 | 9 character(len=80) :: outputString
23 write (outputString, *) 'No of Processors = ', size, ', rank = ', rank, '\n'
24 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
34 write (outputString, *) rank, 'Jumbled Hello World\n'
35 PetscCallA(PetscPrintf(PETSC_COMM_SELF, outputString, ierr))
|
| H A D | ex16f.F90 | 9 character(len=80) :: outputString
20 write (outputString, *) 'Number of processors =', size, 'rank =', rank, '\n'
21 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
|
| /petsc/src/sys/tests/ |
| H A D | ex60f90.F90 | 7 character(len=256) :: outputString
17 write (outputString, '("bopt: ",3(l7," ")," nopt: ",i3," flg ",l7,"\n")') bopt, nopt, flg
18 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
23 write (outputString, '("sopt: ",3(es12.5," ")," nopt: ",i3," flg ",l7,"\n")') sopt, nopt, flg
24 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
|
| H A D | ex56f.F90 | 9 character(len=256) pkg, outputString variable
17 write (outputString, *) 'PETSc has '//trim(pkg)//'?', has, '\n'
18 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex5f.F90 | 30 character(len=PETSC_MAX_PATH_LEN) :: outputString
206 …write (outputString, '(a,f11.9,a,i2.2,a)') 'Relative norm of residual ', norm/bnorm, ', Iterations…
207 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
340 …write (outputString, '(a,f11.9,a,i2.2,a)') 'Relative norm of residual ', norm/bnorm, ', Iterations…
341 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
|
| H A D | ex7f.F90 | 35 character(len=PETSC_MAX_PATH_LEN) :: outputString
228 …write (outputString, *) 'Norm of error', real(norm), 'Iterations', its, '\n' ! PETScScalar…
229 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
|
| /petsc/src/snes/tests/ |
| H A D | ex1f.F90 | 46 character(len=PETSC_MAX_PATH_LEN) :: outputString
54 write (outputString, *) norm
55 PetscCallA(PetscPrintf(comm, 'Norm of search step '//trim(outputString)//'\n', ierr))
453 character(len=PETSC_MAX_PATH_LEN) :: outputString
605 write (outputString, *) its
606 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'Number of SNES iterations = '//trim(outputString)//'\n',…
|