GCC Code Coverage Report

Directory:	src/lib/
File:	src/lib/mod_initialiser_ident.f90
Date:	2024-06-28 12:51:18

	Exec	Total	Coverage
Lines:	21	24	87.5%
Functions:	0	0	-%
Branches:	198	334	59.3%

  
      Line
      Branch
      Exec
      Source
    
      !!!#############################################################################
    
      !!! Code written by Ned Thaddeus Taylor
    
      !!! Code part of the ATHENA library - a feedforward neural network library
    
      !!!#############################################################################
    
      !!! module contains implementation of the identity initialiser
    
      !!!#############################################################################
    
      module initialiser_ident
    
        use constants, only: real12
    
        use custom_types, only: initialiser_type
    
        implicit none
    
        type, extends(initialiser_type) :: ident_type
    
         contains
    
           procedure, pass(this) :: initialise => ident_initialise
    
        end type ident_type
    
        type(ident_type) :: ident
    
        private
    
        public :: ident
    
      contains
    
      !!!#############################################################################
    
      !!! Ident initialisation
    
      !!!#############################################################################
    
      6
        subroutine ident_initialise(this, input, fan_in, fan_out)
    
          implicit none
    
          class(ident_type), intent(inout) :: this
    
          real(real12), dimension(..), intent(out) :: input
    
          integer, optional, intent(in) :: fan_in, fan_out ! no. in and out params
    
          integer :: i
    
        7/14✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 6 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 6 times.
✓ Branch 9 taken 6 times.
✗ Branch 10 not taken.
✓ Branch 11 taken 6 times.
✗ Branch 12 not taken.
✗ Branch 13 not taken.
✓ Branch 14 taken 6 times.

      6
          if(all(shape(input).ne.size(input,1))) stop &
    
               "ERROR: A non-square tensor cannot be initialised as an &
    
      ✗
               &identity matrix"
    
          select rank(input)
    
          rank(0)
    
      ✗
             input = 1._real12
    
          rank(1)
    
      1
             if(size(input).ne.1) stop &
    
                  "ERROR: A vector of length greater than 1 cannot be &
    
      ✗
                  &initialised as an identity matrix"
    
        7/12✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 2 not taken.
✓ Branch 3 taken 1 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 1 times.
✗ Branch 8 not taken.
✓ Branch 9 taken 1 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 1 times.
✓ Branch 14 taken 1 times.
✓ Branch 15 taken 1 times.

      2
             input = 1._real12
    
          rank(2)
    
        11/18✗ Branch 1 not taken.
✓ Branch 2 taken 1 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 1 times.
✗ Branch 10 not taken.
✓ Branch 11 taken 1 times.
✗ Branch 13 not taken.
✓ Branch 14 taken 1 times.
✗ Branch 16 not taken.
✓ Branch 17 taken 1 times.
✗ Branch 19 not taken.
✓ Branch 20 taken 1 times.
✓ Branch 22 taken 10 times.
✓ Branch 23 taken 1 times.
✓ Branch 24 taken 10 times.
✓ Branch 25 taken 10 times.

      21
             input = 0._real12
    
        3/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✓ Branch 2 taken 1 times.
✓ Branch 3 taken 1 times.

      3
             do i=1,size(input,1)
    
        4/8✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.

      2
                input(i,i) = 1._real12
    
             end do
    
          rank(3)
    
        17/28✗ Branch 1 not taken.
✓ Branch 2 taken 1 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 1 times.
✗ Branch 10 not taken.
✓ Branch 11 taken 1 times.
✗ Branch 13 not taken.
✓ Branch 14 taken 1 times.
✗ Branch 16 not taken.
✓ Branch 17 taken 1 times.
✗ Branch 19 not taken.
✓ Branch 20 taken 1 times.
✗ Branch 22 not taken.
✓ Branch 23 taken 1 times.
✗ Branch 25 not taken.
✓ Branch 26 taken 1 times.
✗ Branch 28 not taken.
✓ Branch 29 taken 1 times.
✗ Branch 31 not taken.
✓ Branch 32 taken 1 times.
✓ Branch 34 taken 1 times.
✓ Branch 35 taken 1 times.
✓ Branch 36 taken 1 times.
✓ Branch 37 taken 1 times.
✓ Branch 38 taken 1 times.
✓ Branch 39 taken 1 times.

      4
             input = 0._real12
    
        3/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✓ Branch 2 taken 1 times.
✓ Branch 3 taken 1 times.

      3
             do i=1,size(input,1)
    
        6/12✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 1 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 1 times.

      2
                input(i,i,i) = 1._real12
    
             end do
    
          rank(4)
    
        23/38✗ Branch 1 not taken.
✓ Branch 2 taken 1 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 1 times.
✗ Branch 10 not taken.
✓ Branch 11 taken 1 times.
✗ Branch 13 not taken.
✓ Branch 14 taken 1 times.
✗ Branch 16 not taken.
✓ Branch 17 taken 1 times.
✗ Branch 19 not taken.
✓ Branch 20 taken 1 times.
✗ Branch 22 not taken.
✓ Branch 23 taken 1 times.
✗ Branch 25 not taken.
✓ Branch 26 taken 1 times.
✗ Branch 28 not taken.
✓ Branch 29 taken 1 times.
✗ Branch 31 not taken.
✓ Branch 32 taken 1 times.
✗ Branch 34 not taken.
✓ Branch 35 taken 1 times.
✗ Branch 37 not taken.
✓ Branch 38 taken 1 times.
✗ Branch 40 not taken.
✓ Branch 41 taken 1 times.
✗ Branch 43 not taken.
✓ Branch 44 taken 1 times.
✓ Branch 46 taken 32 times.
✓ Branch 47 taken 1 times.
✓ Branch 48 taken 96 times.
✓ Branch 49 taken 32 times.
✓ Branch 50 taken 288 times.
✓ Branch 51 taken 96 times.
✓ Branch 52 taken 864 times.
✓ Branch 53 taken 288 times.

      1281
             input = 0._real12
    
        3/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✓ Branch 2 taken 3 times.
✓ Branch 3 taken 1 times.

      5
             do i=1,size(input,1)
    
        8/16✗ Branch 0 not taken.
✓ Branch 1 taken 3 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 3 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 3 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 3 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 3 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 3 times.
✗ Branch 18 not taken.
✓ Branch 19 taken 3 times.
✗ Branch 21 not taken.
✓ Branch 22 taken 3 times.

      4
                input(i,i,i,i) = 1._real12
    
             end do
    
          rank(5)
    
        29/48✗ Branch 1 not taken.
✓ Branch 2 taken 1 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 1 times.
✗ Branch 10 not taken.
✓ Branch 11 taken 1 times.
✗ Branch 13 not taken.
✓ Branch 14 taken 1 times.
✗ Branch 16 not taken.
✓ Branch 17 taken 1 times.
✗ Branch 19 not taken.
✓ Branch 20 taken 1 times.
✗ Branch 22 not taken.
✓ Branch 23 taken 1 times.
✗ Branch 25 not taken.
✓ Branch 26 taken 1 times.
✗ Branch 28 not taken.
✓ Branch 29 taken 1 times.
✗ Branch 31 not taken.
✓ Branch 32 taken 1 times.
✗ Branch 34 not taken.
✓ Branch 35 taken 1 times.
✗ Branch 37 not taken.
✓ Branch 38 taken 1 times.
✗ Branch 40 not taken.
✓ Branch 41 taken 1 times.
✗ Branch 43 not taken.
✓ Branch 44 taken 1 times.
✗ Branch 46 not taken.
✓ Branch 47 taken 1 times.
✗ Branch 49 not taken.
✓ Branch 50 taken 1 times.
✗ Branch 52 not taken.
✓ Branch 53 taken 1 times.
✗ Branch 55 not taken.
✓ Branch 56 taken 1 times.
✓ Branch 58 taken 32 times.
✓ Branch 59 taken 1 times.
✓ Branch 60 taken 96 times.
✓ Branch 61 taken 32 times.
✓ Branch 62 taken 288 times.
✓ Branch 63 taken 96 times.
✓ Branch 64 taken 864 times.
✓ Branch 65 taken 288 times.
✓ Branch 66 taken 2592 times.
✓ Branch 67 taken 864 times.

      3873
             input = 0._real12
    
        3/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✓ Branch 2 taken 3 times.
✓ Branch 3 taken 1 times.

      5
             do i=1,size(input,1)
    
        10/20✗ Branch 0 not taken.
✓ Branch 1 taken 3 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 3 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 3 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 3 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 3 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 3 times.
✗ Branch 18 not taken.
✓ Branch 19 taken 3 times.
✗ Branch 21 not taken.
✓ Branch 22 taken 3 times.
✗ Branch 24 not taken.
✓ Branch 25 taken 3 times.
✗ Branch 27 not taken.
✓ Branch 28 taken 3 times.

      4
                input(i,i,i,i,i) = 1._real12
    
             end do
    
          rank(6)
    
        35/58✗ Branch 1 not taken.
✓ Branch 2 taken 1 times.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 1 times.
✗ Branch 10 not taken.
✓ Branch 11 taken 1 times.
✗ Branch 13 not taken.
✓ Branch 14 taken 1 times.
✗ Branch 16 not taken.
✓ Branch 17 taken 1 times.
✗ Branch 19 not taken.
✓ Branch 20 taken 1 times.
✗ Branch 22 not taken.
✓ Branch 23 taken 1 times.
✗ Branch 25 not taken.
✓ Branch 26 taken 1 times.
✗ Branch 28 not taken.
✓ Branch 29 taken 1 times.
✗ Branch 31 not taken.
✓ Branch 32 taken 1 times.
✗ Branch 34 not taken.
✓ Branch 35 taken 1 times.
✗ Branch 37 not taken.
✓ Branch 38 taken 1 times.
✗ Branch 40 not taken.
✓ Branch 41 taken 1 times.
✗ Branch 43 not taken.
✓ Branch 44 taken 1 times.
✗ Branch 46 not taken.
✓ Branch 47 taken 1 times.
✗ Branch 49 not taken.
✓ Branch 50 taken 1 times.
✗ Branch 52 not taken.
✓ Branch 53 taken 1 times.
✗ Branch 55 not taken.
✓ Branch 56 taken 1 times.
✗ Branch 58 not taken.
✓ Branch 59 taken 1 times.
✗ Branch 61 not taken.
✓ Branch 62 taken 1 times.
✗ Branch 64 not taken.
✓ Branch 65 taken 1 times.
✗ Branch 67 not taken.
✓ Branch 68 taken 1 times.
✓ Branch 70 taken 1 times.
✓ Branch 71 taken 1 times.
✓ Branch 72 taken 1 times.
✓ Branch 73 taken 1 times.
✓ Branch 74 taken 1 times.
✓ Branch 75 taken 1 times.
✓ Branch 76 taken 1 times.
✓ Branch 77 taken 1 times.
✓ Branch 78 taken 1 times.
✓ Branch 79 taken 1 times.
✓ Branch 80 taken 1 times.
✓ Branch 81 taken 1 times.

      7
             input = 0._real12
    
        3/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✓ Branch 2 taken 1 times.
✓ Branch 3 taken 1 times.

      3
             do i=1,size(input,1)
    
        12/24✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 1 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 1 times.
✗ Branch 18 not taken.
✓ Branch 19 taken 1 times.
✗ Branch 21 not taken.
✓ Branch 22 taken 1 times.
✗ Branch 24 not taken.
✓ Branch 25 taken 1 times.
✗ Branch 27 not taken.
✓ Branch 28 taken 1 times.
✗ Branch 30 not taken.
✓ Branch 31 taken 1 times.
✗ Branch 33 not taken.
✓ Branch 34 taken 1 times.

      2
                input(i,i,i,i,i,i) = 1._real12
    
             end do
    
          end select
    
      6
        end subroutine ident_initialise
    
      !!!#############################################################################
    
        14/18✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 6 times.
✓ Branch 6 taken 1 times.
✓ Branch 7 taken 5 times.
✓ Branch 8 taken 1 times.
✓ Branch 9 taken 4 times.
✓ Branch 10 taken 1 times.
✓ Branch 11 taken 3 times.
✓ Branch 12 taken 1 times.
✓ Branch 13 taken 2 times.
✓ Branch 14 taken 1 times.
✓ Branch 15 taken 1 times.
✓ Branch 16 taken 1 times.
✗ Branch 17 not taken.

      6
      end module initialiser_ident
    
      !!!#############################################################################

Line	Branch	Exec	Source
1			!!!#############################################################################
2			!!! Code written by Ned Thaddeus Taylor
3			!!! Code part of the ATHENA library - a feedforward neural network library
4			!!!#############################################################################
5			!!! module contains implementation of the identity initialiser
6			!!!#############################################################################
7			module initialiser_ident
8			use constants, only: real12
9			use custom_types, only: initialiser_type
10			implicit none
11
12
13			type, extends(initialiser_type) :: ident_type
14			contains
15			procedure, pass(this) :: initialise => ident_initialise
16			end type ident_type
17			type(ident_type) :: ident
18
19
20			private
21
22			public :: ident
23
24
25			contains
26
27			!!!#############################################################################
28			!!! Ident initialisation
29			!!!#############################################################################
30		6	subroutine ident_initialise(this, input, fan_in, fan_out)
31			implicit none
32			class(ident_type), intent(inout) :: this
33			real(real12), dimension(..), intent(out) :: input
34			integer, optional, intent(in) :: fan_in, fan_out ! no. in and out params
35
36			integer :: i
37
38	7/14 ✓ Branch 0 taken 6 times. ✗ Branch 1 not taken. ✓ Branch 2 taken 6 times. ✗ Branch 3 not taken. ✓ Branch 4 taken 6 times. ✗ Branch 5 not taken. ✗ Branch 6 not taken. ✓ Branch 7 taken 6 times. ✓ Branch 9 taken 6 times. ✗ Branch 10 not taken. ✓ Branch 11 taken 6 times. ✗ Branch 12 not taken. ✗ Branch 13 not taken. ✓ Branch 14 taken 6 times.	6	if(all(shape(input).ne.size(input,1))) stop &
39			"ERROR: A non-square tensor cannot be initialised as an &
40		✗	&identity matrix"
41
42			select rank(input)
43			rank(0)
44		✗	input = 1._real12
45			rank(1)
46		1	if(size(input).ne.1) stop &
47			"ERROR: A vector of length greater than 1 cannot be &
48		✗	&initialised as an identity matrix"
49	7/12 ✗ Branch 0 not taken. ✓ Branch 1 taken 1 times. ✗ Branch 2 not taken. ✓ Branch 3 taken 1 times. ✗ Branch 5 not taken. ✓ Branch 6 taken 1 times. ✗ Branch 8 not taken. ✓ Branch 9 taken 1 times. ✗ Branch 11 not taken. ✓ Branch 12 taken 1 times. ✓ Branch 14 taken 1 times. ✓ Branch 15 taken 1 times.	2	input = 1._real12
50			rank(2)
51	11/18 ✗ Branch 1 not taken. ✓ Branch 2 taken 1 times. ✗ Branch 4 not taken. ✓ Branch 5 taken 1 times. ✗ Branch 7 not taken. ✓ Branch 8 taken 1 times. ✗ Branch 10 not taken. ✓ Branch 11 taken 1 times. ✗ Branch 13 not taken. ✓ Branch 14 taken 1 times. ✗ Branch 16 not taken. ✓ Branch 17 taken 1 times. ✗ Branch 19 not taken. ✓ Branch 20 taken 1 times. ✓ Branch 22 taken 10 times. ✓ Branch 23 taken 1 times. ✓ Branch 24 taken 10 times. ✓ Branch 25 taken 10 times.	21	input = 0._real12
52	3/4 ✗ Branch 0 not taken. ✓ Branch 1 taken 1 times. ✓ Branch 2 taken 1 times. ✓ Branch 3 taken 1 times.	3	do i=1,size(input,1)
53	4/8 ✗ Branch 0 not taken. ✓ Branch 1 taken 1 times. ✗ Branch 3 not taken. ✓ Branch 4 taken 1 times. ✗ Branch 6 not taken. ✓ Branch 7 taken 1 times. ✗ Branch 9 not taken. ✓ Branch 10 taken 1 times.	2	input(i,i) = 1._real12
54			end do
55			rank(3)
56	17/28 ✗ Branch 1 not taken. ✓ Branch 2 taken 1 times. ✗ Branch 4 not taken. ✓ Branch 5 taken 1 times. ✗ Branch 7 not taken. ✓ Branch 8 taken 1 times. ✗ Branch 10 not taken. ✓ Branch 11 taken 1 times. ✗ Branch 13 not taken. ✓ Branch 14 taken 1 times. ✗ Branch 16 not taken. ✓ Branch 17 taken 1 times. ✗ Branch 19 not taken. ✓ Branch 20 taken 1 times. ✗ Branch 22 not taken. ✓ Branch 23 taken 1 times. ✗ Branch 25 not taken. ✓ Branch 26 taken 1 times. ✗ Branch 28 not taken. ✓ Branch 29 taken 1 times. ✗ Branch 31 not taken. ✓ Branch 32 taken 1 times. ✓ Branch 34 taken 1 times. ✓ Branch 35 taken 1 times. ✓ Branch 36 taken 1 times. ✓ Branch 37 taken 1 times. ✓ Branch 38 taken 1 times. ✓ Branch 39 taken 1 times.	4	input = 0._real12
57	3/4 ✗ Branch 0 not taken. ✓ Branch 1 taken 1 times. ✓ Branch 2 taken 1 times. ✓ Branch 3 taken 1 times.	3	do i=1,size(input,1)
58	6/12 ✗ Branch 0 not taken. ✓ Branch 1 taken 1 times. ✗ Branch 3 not taken. ✓ Branch 4 taken 1 times. ✗ Branch 6 not taken. ✓ Branch 7 taken 1 times. ✗ Branch 9 not taken. ✓ Branch 10 taken 1 times. ✗ Branch 12 not taken. ✓ Branch 13 taken 1 times. ✗ Branch 15 not taken. ✓ Branch 16 taken 1 times.	2	input(i,i,i) = 1._real12
59			end do
60			rank(4)
61	23/38 ✗ Branch 1 not taken. ✓ Branch 2 taken 1 times. ✗ Branch 4 not taken. ✓ Branch 5 taken 1 times. ✗ Branch 7 not taken. ✓ Branch 8 taken 1 times. ✗ Branch 10 not taken. ✓ Branch 11 taken 1 times. ✗ Branch 13 not taken. ✓ Branch 14 taken 1 times. ✗ Branch 16 not taken. ✓ Branch 17 taken 1 times. ✗ Branch 19 not taken. ✓ Branch 20 taken 1 times. ✗ Branch 22 not taken. ✓ Branch 23 taken 1 times. ✗ Branch 25 not taken. ✓ Branch 26 taken 1 times. ✗ Branch 28 not taken. ✓ Branch 29 taken 1 times. ✗ Branch 31 not taken. ✓ Branch 32 taken 1 times. ✗ Branch 34 not taken. ✓ Branch 35 taken 1 times. ✗ Branch 37 not taken. ✓ Branch 38 taken 1 times. ✗ Branch 40 not taken. ✓ Branch 41 taken 1 times. ✗ Branch 43 not taken. ✓ Branch 44 taken 1 times. ✓ Branch 46 taken 32 times. ✓ Branch 47 taken 1 times. ✓ Branch 48 taken 96 times. ✓ Branch 49 taken 32 times. ✓ Branch 50 taken 288 times. ✓ Branch 51 taken 96 times. ✓ Branch 52 taken 864 times. ✓ Branch 53 taken 288 times.	1281	input = 0._real12
62	3/4 ✗ Branch 0 not taken. ✓ Branch 1 taken 1 times. ✓ Branch 2 taken 3 times. ✓ Branch 3 taken 1 times.	5	do i=1,size(input,1)
63	8/16 ✗ Branch 0 not taken. ✓ Branch 1 taken 3 times. ✗ Branch 3 not taken. ✓ Branch 4 taken 3 times. ✗ Branch 6 not taken. ✓ Branch 7 taken 3 times. ✗ Branch 9 not taken. ✓ Branch 10 taken 3 times. ✗ Branch 12 not taken. ✓ Branch 13 taken 3 times. ✗ Branch 15 not taken. ✓ Branch 16 taken 3 times. ✗ Branch 18 not taken. ✓ Branch 19 taken 3 times. ✗ Branch 21 not taken. ✓ Branch 22 taken 3 times.	4	input(i,i,i,i) = 1._real12
64			end do
65			rank(5)
66	29/48 ✗ Branch 1 not taken. ✓ Branch 2 taken 1 times. ✗ Branch 4 not taken. ✓ Branch 5 taken 1 times. ✗ Branch 7 not taken. ✓ Branch 8 taken 1 times. ✗ Branch 10 not taken. ✓ Branch 11 taken 1 times. ✗ Branch 13 not taken. ✓ Branch 14 taken 1 times. ✗ Branch 16 not taken. ✓ Branch 17 taken 1 times. ✗ Branch 19 not taken. ✓ Branch 20 taken 1 times. ✗ Branch 22 not taken. ✓ Branch 23 taken 1 times. ✗ Branch 25 not taken. ✓ Branch 26 taken 1 times. ✗ Branch 28 not taken. ✓ Branch 29 taken 1 times. ✗ Branch 31 not taken. ✓ Branch 32 taken 1 times. ✗ Branch 34 not taken. ✓ Branch 35 taken 1 times. ✗ Branch 37 not taken. ✓ Branch 38 taken 1 times. ✗ Branch 40 not taken. ✓ Branch 41 taken 1 times. ✗ Branch 43 not taken. ✓ Branch 44 taken 1 times. ✗ Branch 46 not taken. ✓ Branch 47 taken 1 times. ✗ Branch 49 not taken. ✓ Branch 50 taken 1 times. ✗ Branch 52 not taken. ✓ Branch 53 taken 1 times. ✗ Branch 55 not taken. ✓ Branch 56 taken 1 times. ✓ Branch 58 taken 32 times. ✓ Branch 59 taken 1 times. ✓ Branch 60 taken 96 times. ✓ Branch 61 taken 32 times. ✓ Branch 62 taken 288 times. ✓ Branch 63 taken 96 times. ✓ Branch 64 taken 864 times. ✓ Branch 65 taken 288 times. ✓ Branch 66 taken 2592 times. ✓ Branch 67 taken 864 times.	3873	input = 0._real12
67	3/4 ✗ Branch 0 not taken. ✓ Branch 1 taken 1 times. ✓ Branch 2 taken 3 times. ✓ Branch 3 taken 1 times.	5	do i=1,size(input,1)
68	10/20 ✗ Branch 0 not taken. ✓ Branch 1 taken 3 times. ✗ Branch 3 not taken. ✓ Branch 4 taken 3 times. ✗ Branch 6 not taken. ✓ Branch 7 taken 3 times. ✗ Branch 9 not taken. ✓ Branch 10 taken 3 times. ✗ Branch 12 not taken. ✓ Branch 13 taken 3 times. ✗ Branch 15 not taken. ✓ Branch 16 taken 3 times. ✗ Branch 18 not taken. ✓ Branch 19 taken 3 times. ✗ Branch 21 not taken. ✓ Branch 22 taken 3 times. ✗ Branch 24 not taken. ✓ Branch 25 taken 3 times. ✗ Branch 27 not taken. ✓ Branch 28 taken 3 times.	4	input(i,i,i,i,i) = 1._real12
69			end do
70			rank(6)
71	35/58 ✗ Branch 1 not taken. ✓ Branch 2 taken 1 times. ✗ Branch 4 not taken. ✓ Branch 5 taken 1 times. ✗ Branch 7 not taken. ✓ Branch 8 taken 1 times. ✗ Branch 10 not taken. ✓ Branch 11 taken 1 times. ✗ Branch 13 not taken. ✓ Branch 14 taken 1 times. ✗ Branch 16 not taken. ✓ Branch 17 taken 1 times. ✗ Branch 19 not taken. ✓ Branch 20 taken 1 times. ✗ Branch 22 not taken. ✓ Branch 23 taken 1 times. ✗ Branch 25 not taken. ✓ Branch 26 taken 1 times. ✗ Branch 28 not taken. ✓ Branch 29 taken 1 times. ✗ Branch 31 not taken. ✓ Branch 32 taken 1 times. ✗ Branch 34 not taken. ✓ Branch 35 taken 1 times. ✗ Branch 37 not taken. ✓ Branch 38 taken 1 times. ✗ Branch 40 not taken. ✓ Branch 41 taken 1 times. ✗ Branch 43 not taken. ✓ Branch 44 taken 1 times. ✗ Branch 46 not taken. ✓ Branch 47 taken 1 times. ✗ Branch 49 not taken. ✓ Branch 50 taken 1 times. ✗ Branch 52 not taken. ✓ Branch 53 taken 1 times. ✗ Branch 55 not taken. ✓ Branch 56 taken 1 times. ✗ Branch 58 not taken. ✓ Branch 59 taken 1 times. ✗ Branch 61 not taken. ✓ Branch 62 taken 1 times. ✗ Branch 64 not taken. ✓ Branch 65 taken 1 times. ✗ Branch 67 not taken. ✓ Branch 68 taken 1 times. ✓ Branch 70 taken 1 times. ✓ Branch 71 taken 1 times. ✓ Branch 72 taken 1 times. ✓ Branch 73 taken 1 times. ✓ Branch 74 taken 1 times. ✓ Branch 75 taken 1 times. ✓ Branch 76 taken 1 times. ✓ Branch 77 taken 1 times. ✓ Branch 78 taken 1 times. ✓ Branch 79 taken 1 times. ✓ Branch 80 taken 1 times. ✓ Branch 81 taken 1 times.	7	input = 0._real12
72	3/4 ✗ Branch 0 not taken. ✓ Branch 1 taken 1 times. ✓ Branch 2 taken 1 times. ✓ Branch 3 taken 1 times.	3	do i=1,size(input,1)
73	12/24 ✗ Branch 0 not taken. ✓ Branch 1 taken 1 times. ✗ Branch 3 not taken. ✓ Branch 4 taken 1 times. ✗ Branch 6 not taken. ✓ Branch 7 taken 1 times. ✗ Branch 9 not taken. ✓ Branch 10 taken 1 times. ✗ Branch 12 not taken. ✓ Branch 13 taken 1 times. ✗ Branch 15 not taken. ✓ Branch 16 taken 1 times. ✗ Branch 18 not taken. ✓ Branch 19 taken 1 times. ✗ Branch 21 not taken. ✓ Branch 22 taken 1 times. ✗ Branch 24 not taken. ✓ Branch 25 taken 1 times. ✗ Branch 27 not taken. ✓ Branch 28 taken 1 times. ✗ Branch 30 not taken. ✓ Branch 31 taken 1 times. ✗ Branch 33 not taken. ✓ Branch 34 taken 1 times.	2	input(i,i,i,i,i,i) = 1._real12
74			end do
75			end select
76
77		6	end subroutine ident_initialise
78			!!!#############################################################################
79
80	14/18 ✓ Branch 0 taken 6 times. ✗ Branch 1 not taken. ✓ Branch 2 taken 6 times. ✗ Branch 3 not taken. ✗ Branch 4 not taken. ✓ Branch 5 taken 6 times. ✓ Branch 6 taken 1 times. ✓ Branch 7 taken 5 times. ✓ Branch 8 taken 1 times. ✓ Branch 9 taken 4 times. ✓ Branch 10 taken 1 times. ✓ Branch 11 taken 3 times. ✓ Branch 12 taken 1 times. ✓ Branch 13 taken 2 times. ✓ Branch 14 taken 1 times. ✓ Branch 15 taken 1 times. ✓ Branch 16 taken 1 times. ✗ Branch 17 not taken.	6	end module initialiser_ident
81			!!!#############################################################################
82