GCC Code Coverage Report

Directory:	./
File:	src/sys/classes/bv/tests/test1f.F90
Date:	2026-02-22 03:58:10

	Exec	Total	Coverage
Lines:	73	73	100.0%
Functions:	2	2	100.0%
Branches:	66	114	57.9%

  
      Line
      Branch
      Exec
      Source
    
      !
    
      !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    
      !  SLEPc - Scalable Library for Eigenvalue Problem Computations
    
      !  Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain
    
      !
    
      !  This file is part of SLEPc.
    
      !  SLEPc is distributed under a 2-clause BSD license (see LICENSE).
    
      !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    
      !
    
      !  Program usage: mpiexec -n <np> ./test1f [-help]
    
      !
    
      !  Description: Simple example that tests BV interface functions.
    
      !
    
      ! ----------------------------------------------------------------------
    
      !
    
      #include <slepc/finclude/slepcbv.h>
    
      1284
      program test1f
    
      60
        use slepcbv
    
        implicit none
    
      ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    
      ! Declarations
    
      ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    
      #define KMAX 35
    
        Vec                  :: t, v
    
        Mat                  :: Q, M
    
        BV                   :: X, Y
    
        PetscMPIInt          :: rank
    
        PetscInt             :: i, j, n, k, l
    
        PetscScalar          :: z(KMAX), val
    
      48
        PetscScalar, pointer :: qq(:, :)
    
        PetscReal            :: nrm
    
        PetscBool            :: flg
    
        PetscErrorCode       :: ierr
    
        PetscScalar, parameter :: one = 1.0, mone = -1.0, two = 2.0, zero = 0.0
    
      ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    
      ! Beginning of program
    
      ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    
      60
        n = 10
    
      60
        k = 5
    
      60
        l = 3
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(SlepcInitialize(PETSC_NULL_CHARACTER, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-n', n, flg, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-k', k, flg, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-l', l, flg, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCheckA(k <= KMAX, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, 'Program currently limited to k=35')
    
        2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.

      60
        if (rank == 0) then
    
      40
          write (*, '(/a,i3,a,i3,a)') 'Test BV with', k, ' columns of length', n, ' (Fortran)'
    
        end if
    
      ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    
      ! Initialize data
    
      ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    
      ! ** Create template vector
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(VecCreate(PETSC_COMM_WORLD, t, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(VecSetSizes(t, PETSC_DECIDE, n, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(VecSetFromOptions(t, ierr))
    
      ! ** Create BV object X
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVCreate(PETSC_COMM_WORLD, X, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVSetSizesFromVec(X, t, k, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVSetFromOptions(X, ierr))
    
      ! ** Fill X entries
    
        2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.

      360
        do j = 0, k - 1
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      300
          PetscCallA(BVGetColumn(X, j, v, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      300
          PetscCallA(VecSet(v, zero, ierr))
    
        2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.

      1500
          do i = 0, 3
    
        1/2✓ Branch 0 taken 5 times.
✗ Branch 1 not taken.

      1500
            if (i + j < n) then
    
      1200
              val = 3*i + j - 2
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      1200
              PetscCallA(VecSetValue(v, i + j, val, INSERT_VALUES, ierr))
    
            end if
    
          end do
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      300
          PetscCallA(VecAssemblyBegin(v, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      300
          PetscCallA(VecAssemblyEnd(v, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      1260
          PetscCallA(BVRestoreColumn(X, j, v, ierr))
    
        end do
    
      ! ** Create BV object Y
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVCreate(PETSC_COMM_WORLD, Y, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVSetSizesFromVec(Y, t, l, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVSetFromOptions(Y, ierr))
    
      ! ** Fill Y entries
    
        2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.

      240
        do j = 0, l - 1
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      180
          PetscCallA(BVGetColumn(Y, j, v, ierr))
    
      180
          val = real(j + 1, PETSC_REAL_KIND)/4.0
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      180
          PetscCallA(VecSet(v, val, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      600
          PetscCallA(BVRestoreColumn(Y, j, v, ierr))
    
        end do
    
      ! ** Create Mat
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(MatCreateSeqDense(PETSC_COMM_SELF, k, l, PETSC_NULL_SCALAR_ARRAY, Q, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(MatDenseGetArray(Q, qq, ierr))
    
        2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.

      360
        do i = 1, k
    
        2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.

      1260
          do j = 1, l
    
        2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.

      1200
            if (i < j) then
    
      180
              qq(i, j) = 2.0
    
            else
    
      720
              qq(i, j) = -0.5
    
            end if
    
          end do
    
        end do
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(MatDenseRestoreArray(Q, qq, ierr))
    
      ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    
      ! Test several operations
    
      ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    
      ! ** Test BVMult
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVMult(Y, two, one, X, Q, ierr))
    
      ! ** Test BVMultVec
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVGetColumn(Y, 0_PETSC_INT_KIND, v, ierr))
    
      60
        z(1) = 2.0
    
        2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.

      300
        do i = 2, k
    
      300
          z(i) = -0.5*z(i - 1)
    
        end do
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVMultVec(X, mone, one, v, z, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVRestoreColumn(Y, 0_PETSC_INT_KIND, v, ierr))
    
      ! ** Test BVDot
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(MatCreateSeqDense(PETSC_COMM_SELF, l, k, PETSC_NULL_SCALAR_ARRAY, M, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVDot(X, Y, M, ierr))
    
      ! ** Test BVDotVec
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVGetColumn(Y, 0_PETSC_INT_KIND, v, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVDotVec(X, v, z, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVRestoreColumn(Y, 0_PETSC_INT_KIND, v, ierr))
    
      ! ** Test BVMultInPlace and BVScale
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVMultInPlace(X, Q, 1_PETSC_INT_KIND, l, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVScale(X, two, ierr))
    
      ! ** Test BVNorm
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVNormColumn(X, 0_PETSC_INT_KIND, NORM_2, nrm, ierr))
    
        2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.

      60
        if (rank == 0) then
    
      40
          write (*, '(a,f8.4)') '2-Norm of X[0] = ', nrm
    
        end if
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVNorm(X, NORM_FROBENIUS, nrm, ierr))
    
        2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 5 times.

      60
        if (rank == 0) then
    
      40
          write (*, '(a,f8.4)') 'Frobenius Norm of X = ', nrm
    
        end if
    
      ! *** Clean up
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVDestroy(X, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(BVDestroy(Y, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(VecDestroy(t, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(MatDestroy(Q, ierr))
    
        1/2✗ Branch 0 not taken.
✓ Branch 1 taken 5 times.

      60
        PetscCallA(MatDestroy(M, ierr))
    
        0/2✗ Branch 0 not taken.
✗ Branch 1 not taken.

      60
        PetscCallA(SlepcFinalize(ierr))
    
      60
      end program test1f
    
      !/*TEST
    
      !
    
      !   test:
    
      !      suffix: 1
    
      !      nsize: 1
    
      !      args: -bv_type {{vecs contiguous svec mat}separate output}
    
      !      output_file: output/test1f_1.out
    
      !
    
      !   test:
    
      !      suffix: 2
    
      !      nsize: 2
    
      !      args: -bv_type {{vecs contiguous svec mat}separate output}
    
      !      output_file: output/test1f_1.out
    
      !
    
      !TEST*/

Line	Branch	Exec	Source
1			!
2			! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3			! SLEPc - Scalable Library for Eigenvalue Problem Computations
4			! Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain
5			!
6			! This file is part of SLEPc.
7			! SLEPc is distributed under a 2-clause BSD license (see LICENSE).
8			! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
9			!
10			! Program usage: mpiexec -n <np> ./test1f [-help]
11			!
12			! Description: Simple example that tests BV interface functions.
13			!
14			! ----------------------------------------------------------------------
15			!
16			#include <slepc/finclude/slepcbv.h>
17		1284	program test1f
18		60	use slepcbv
19			implicit none
20
21			! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
22			! Declarations
23			! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
24
25			#define KMAX 35
26
27			Vec :: t, v
28			Mat :: Q, M
29			BV :: X, Y
30			PetscMPIInt :: rank
31			PetscInt :: i, j, n, k, l
32			PetscScalar :: z(KMAX), val
33		48	PetscScalar, pointer :: qq(:, :)
34			PetscReal :: nrm
35			PetscBool :: flg
36			PetscErrorCode :: ierr
37			PetscScalar, parameter :: one = 1.0, mone = -1.0, two = 2.0, zero = 0.0
38
39			! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
40			! Beginning of program
41			! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
42
43		60	n = 10
44		60	k = 5
45		60	l = 3
46	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(SlepcInitialize(PETSC_NULL_CHARACTER, ierr))
47	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr))
48	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-n', n, flg, ierr))
49	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-k', k, flg, ierr))
50	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-l', l, flg, ierr))
51	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCheckA(k <= KMAX, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, 'Program currently limited to k=35')
52	2/2 ✓ Branch 0 taken 5 times. ✓ Branch 1 taken 5 times.	60	if (rank == 0) then
53		40	write (*, '(/a,i3,a,i3,a)') 'Test BV with', k, ' columns of length', n, ' (Fortran)'
54			end if
55
56			! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
57			! Initialize data
58			! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
59
60			! ** Create template vector
61	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(VecCreate(PETSC_COMM_WORLD, t, ierr))
62	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(VecSetSizes(t, PETSC_DECIDE, n, ierr))
63	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(VecSetFromOptions(t, ierr))
64
65			! ** Create BV object X
66	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVCreate(PETSC_COMM_WORLD, X, ierr))
67	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVSetSizesFromVec(X, t, k, ierr))
68	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVSetFromOptions(X, ierr))
69
70			! ** Fill X entries
71	2/2 ✓ Branch 0 taken 5 times. ✓ Branch 1 taken 5 times.	360	do j = 0, k - 1
72	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	300	PetscCallA(BVGetColumn(X, j, v, ierr))
73	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	300	PetscCallA(VecSet(v, zero, ierr))
74	2/2 ✓ Branch 0 taken 5 times. ✓ Branch 1 taken 5 times.	1500	do i = 0, 3
75	1/2 ✓ Branch 0 taken 5 times. ✗ Branch 1 not taken.	1500	if (i + j < n) then
76		1200	val = 3*i + j - 2
77	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	1200	PetscCallA(VecSetValue(v, i + j, val, INSERT_VALUES, ierr))
78			end if
79			end do
80	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	300	PetscCallA(VecAssemblyBegin(v, ierr))
81	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	300	PetscCallA(VecAssemblyEnd(v, ierr))
82	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	1260	PetscCallA(BVRestoreColumn(X, j, v, ierr))
83			end do
84
85			! ** Create BV object Y
86	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVCreate(PETSC_COMM_WORLD, Y, ierr))
87	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVSetSizesFromVec(Y, t, l, ierr))
88	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVSetFromOptions(Y, ierr))
89
90			! ** Fill Y entries
91	2/2 ✓ Branch 0 taken 5 times. ✓ Branch 1 taken 5 times.	240	do j = 0, l - 1
92	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	180	PetscCallA(BVGetColumn(Y, j, v, ierr))
93		180	val = real(j + 1, PETSC_REAL_KIND)/4.0
94	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	180	PetscCallA(VecSet(v, val, ierr))
95	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	600	PetscCallA(BVRestoreColumn(Y, j, v, ierr))
96			end do
97
98			! ** Create Mat
99	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(MatCreateSeqDense(PETSC_COMM_SELF, k, l, PETSC_NULL_SCALAR_ARRAY, Q, ierr))
100	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(MatDenseGetArray(Q, qq, ierr))
101	2/2 ✓ Branch 0 taken 5 times. ✓ Branch 1 taken 5 times.	360	do i = 1, k
102	2/2 ✓ Branch 0 taken 5 times. ✓ Branch 1 taken 5 times.	1260	do j = 1, l
103	2/2 ✓ Branch 0 taken 5 times. ✓ Branch 1 taken 5 times.	1200	if (i < j) then
104		180	qq(i, j) = 2.0
105			else
106		720	qq(i, j) = -0.5
107			end if
108			end do
109			end do
110	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(MatDenseRestoreArray(Q, qq, ierr))
111
112			! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
113			! Test several operations
114			! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
115
116			! ** Test BVMult
117	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVMult(Y, two, one, X, Q, ierr))
118
119			! ** Test BVMultVec
120	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVGetColumn(Y, 0_PETSC_INT_KIND, v, ierr))
121		60	z(1) = 2.0
122	2/2 ✓ Branch 0 taken 5 times. ✓ Branch 1 taken 5 times.	300	do i = 2, k
123		300	z(i) = -0.5*z(i - 1)
124			end do
125	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVMultVec(X, mone, one, v, z, ierr))
126	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVRestoreColumn(Y, 0_PETSC_INT_KIND, v, ierr))
127
128			! ** Test BVDot
129	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(MatCreateSeqDense(PETSC_COMM_SELF, l, k, PETSC_NULL_SCALAR_ARRAY, M, ierr))
130	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVDot(X, Y, M, ierr))
131
132			! ** Test BVDotVec
133	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVGetColumn(Y, 0_PETSC_INT_KIND, v, ierr))
134	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVDotVec(X, v, z, ierr))
135	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVRestoreColumn(Y, 0_PETSC_INT_KIND, v, ierr))
136
137			! ** Test BVMultInPlace and BVScale
138	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVMultInPlace(X, Q, 1_PETSC_INT_KIND, l, ierr))
139	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVScale(X, two, ierr))
140
141			! ** Test BVNorm
142	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVNormColumn(X, 0_PETSC_INT_KIND, NORM_2, nrm, ierr))
143	2/2 ✓ Branch 0 taken 5 times. ✓ Branch 1 taken 5 times.	60	if (rank == 0) then
144		40	write (*, '(a,f8.4)') '2-Norm of X[0] = ', nrm
145			end if
146	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVNorm(X, NORM_FROBENIUS, nrm, ierr))
147	2/2 ✓ Branch 0 taken 5 times. ✓ Branch 1 taken 5 times.	60	if (rank == 0) then
148		40	write (*, '(a,f8.4)') 'Frobenius Norm of X = ', nrm
149			end if
150
151			! *** Clean up
152	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVDestroy(X, ierr))
153	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(BVDestroy(Y, ierr))
154	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(VecDestroy(t, ierr))
155	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(MatDestroy(Q, ierr))
156	1/2 ✗ Branch 0 not taken. ✓ Branch 1 taken 5 times.	60	PetscCallA(MatDestroy(M, ierr))
157	0/2 ✗ Branch 0 not taken. ✗ Branch 1 not taken.	60	PetscCallA(SlepcFinalize(ierr))
158		60	end program test1f
159
160			!/*TEST
161			!
162			! test:
163			! suffix: 1
164			! nsize: 1
165			! args: -bv_type {{vecs contiguous svec mat}separate output}
166			! output_file: output/test1f_1.out
167			!
168			! test:
169			! suffix: 2
170			! nsize: 2
171			! args: -bv_type {{vecs contiguous svec mat}separate output}
172			! output_file: output/test1f_1.out
173			!
174			!TEST*/
175

Function (Line)	Call count	Block coverage
MAIN__ (line 17)	called 60 times	60.0%
main (line 18)	called 60 times	100.0%