Skip to content

Commit 6d7f889

Browse files
jvdp1jvdp1
committed
use 2 spaces for indentation
1 parent 5954f51 commit 6d7f889

File tree

224 files changed

+2243
-2243
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

224 files changed

+2243
-2243
lines changed

‎test/example/array/demo_falseloc.f90

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,8 @@
11
program demo_falseloc
2-
use stdlib_array, only: falseloc
3-
implicit none
4-
real, allocatable :: array(:)
5-
allocate (array(-200:200))
6-
call random_number(array)
7-
array(falseloc(array < 0.5, lbound(array,1))) = 0.0
2+
use stdlib_array, only: falseloc
3+
implicit none
4+
real, allocatable :: array(:)
5+
allocate (array(-200:200))
6+
call random_number(array)
7+
array(falseloc(array < 0.5, lbound(array, 1))) = 0.0
88
end program demo_falseloc

‎test/example/array/demo_trueloc.f90

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,8 @@
11
program demo_trueloc
2-
use stdlib_array, only: trueloc
3-
implicit none
4-
real, allocatable :: array(:)
5-
allocate (array(500))
6-
call random_number(array)
7-
array(trueloc(array > 0.5)) = 0.0
2+
use stdlib_array, only: trueloc
3+
implicit none
4+
real, allocatable :: array(:)
5+
allocate (array(500))
6+
call random_number(array)
7+
array(trueloc(array > 0.5)) = 0.0
88
end program demo_trueloc

‎test/example/ascii/demo_ascii_reverse.f90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
program demo_reverse
2-
use stdlib_ascii, only: reverse
3-
implicit none
4-
print'(a)', reverse("Hello, World!") ! returns "!dlroW ,olleH"
2+
use stdlib_ascii, only: reverse
3+
implicit none
4+
print'(a)', reverse("Hello, World!") ! returns "!dlroW ,olleH"
55
end program demo_reverse

‎test/example/ascii/demo_ascii_to_lower.f90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
program demo_to_lower
2-
use stdlib_ascii, only: to_lower
3-
implicit none
4-
print'(a)', to_lower("HELLo!") ! returns "hello!"
2+
use stdlib_ascii, only: to_lower
3+
implicit none
4+
print'(a)', to_lower("HELLo!") ! returns "hello!"
55
end program demo_to_lower

‎test/example/ascii/demo_ascii_to_sentence.f90

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
program demo_to_sentence
2-
use stdlib_ascii, only: to_sentence
3-
implicit none
4-
print *, to_sentence("hello!") ! returns "Hello!"
5-
print *, to_sentence("'enquoted'") ! returns "'Enquoted'"
6-
print *, to_sentence("1st") ! returns "1st"
2+
use stdlib_ascii, only: to_sentence
3+
implicit none
4+
print *, to_sentence("hello!") ! returns "Hello!"
5+
print *, to_sentence("'enquoted'") ! returns "'Enquoted'"
6+
print *, to_sentence("1st") ! returns "1st"
77
end program demo_to_sentence

‎test/example/ascii/demo_ascii_to_title.f90

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
program demo_to_title
2-
use stdlib_ascii, only: to_title
3-
implicit none
4-
print *, to_title("hello there!") ! returns "Hello There!"
5-
print *, to_title("'enquoted'") ! returns "'Enquoted'"
6-
print *, to_title("1st") ! returns "1st"
2+
use stdlib_ascii, only: to_title
3+
implicit none
4+
print *, to_title("hello there!") ! returns "Hello There!"
5+
print *, to_title("'enquoted'") ! returns "'Enquoted'"
6+
print *, to_title("1st") ! returns "1st"
77
end program demo_to_title

‎test/example/ascii/demo_ascii_to_upper.f90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
program demo_to_upper
2-
use stdlib_ascii, only: to_upper
3-
implicit none
4-
print'(a)', to_upper("hello!") ! returns "HELLO!"
2+
use stdlib_ascii, only: to_upper
3+
implicit none
4+
print'(a)', to_upper("hello!") ! returns "HELLO!"
55
end program demo_to_upper

‎test/example/bitsets/demo_bitsets_all.f90

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -1,14 +1,14 @@
11
program demo_all
2-
use stdlib_bitsets
3-
character(*), parameter :: &
4-
bits_all = '111111111111111111111111111111111'
5-
type(bitset_64) :: set0
6-
call set0%from_string(bits_all)
7-
if (.not. set0%all()) then
8-
error stop "FROM_STRING failed to interpret"// &
9-
"BITS_ALL's value properly."
10-
else
11-
write (*, *) "FROM_STRING transferred BITS_ALL properly"// &
12-
" into set0."
13-
end if
2+
use stdlib_bitsets
3+
character(*), parameter :: &
4+
bits_all = '111111111111111111111111111111111'
5+
type(bitset_64) :: set0
6+
call set0%from_string(bits_all)
7+
if (.not. set0%all()) then
8+
error stop "FROM_STRING failed to interpret"// &
9+
"BITS_ALL's value properly."
10+
else
11+
write (*, *) "FROM_STRING transferred BITS_ALL properly"// &
12+
" into set0."
13+
end if
1414
end program demo_all

‎test/example/bitsets/demo_bitsets_and.f90

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,17 +1,17 @@
11
program demo_and
2-
use stdlib_bitsets
3-
type(bitset_large) :: set0, set1
4-
call set0%init(166)
5-
call set1%init(166)
6-
call and(set0, set1) ! none none
7-
if (set0%none()) write (*, *) 'First test of AND worked.'
8-
call set0%not()
9-
call and(set0, set1) ! all none
10-
if (set0%none()) write (*, *) 'Second test of AND worked.'
11-
call set1%not()
12-
call and(set0, set1) ! none all
13-
if (set0%none()) write (*, *) 'Third test of AND worked.'
14-
call set0%not()
15-
call and(set0, set1) ! all all
16-
if (set0%all()) write (*, *) 'Fourth test of AND worked.'
2+
use stdlib_bitsets
3+
type(bitset_large) :: set0, set1
4+
call set0%init(166)
5+
call set1%init(166)
6+
call and(set0, set1) ! none none
7+
if (set0%none()) write (*, *) 'First test of AND worked.'
8+
call set0%not()
9+
call and(set0, set1) ! all none
10+
if (set0%none()) write (*, *) 'Second test of AND worked.'
11+
call set1%not()
12+
call and(set0, set1) ! none all
13+
if (set0%none()) write (*, *) 'Third test of AND worked.'
14+
call set0%not()
15+
call and(set0, set1) ! all all
16+
if (set0%all()) write (*, *) 'Fourth test of AND worked.'
1717
end program demo_and

‎test/example/bitsets/demo_bitsets_and_not.f90

Lines changed: 16 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -1,18 +1,18 @@
11
program demo_and_not
2-
use stdlib_bitsets
3-
type(bitset_large) :: set0, set1
4-
call set0%init(166)
5-
call set1%init(166)
6-
call and_not(set0, set1) ! none none
7-
if (set0%none()) write (*, *) 'First test of AND_NOT worked.'
8-
call set0%not()
9-
call and_not(set0, set1) ! all none
10-
if (set0%all()) write (*, *) 'Second test of AND_NOT worked.'
11-
call set0%not()
12-
call set1%not()
13-
call and_not(set0, set1) ! none all
14-
if (set0%none()) write (*, *) 'Third test of AND_NOT worked.'
15-
call set0%not()
16-
call and_not(set0, set1) ! all all
17-
if (set0%none()) write (*, *) 'Fourth test of AND_NOT worked.'
2+
use stdlib_bitsets
3+
type(bitset_large) :: set0, set1
4+
call set0%init(166)
5+
call set1%init(166)
6+
call and_not(set0, set1) ! none none
7+
if (set0%none()) write (*, *) 'First test of AND_NOT worked.'
8+
call set0%not()
9+
call and_not(set0, set1) ! all none
10+
if (set0%all()) write (*, *) 'Second test of AND_NOT worked.'
11+
call set0%not()
12+
call set1%not()
13+
call and_not(set0, set1) ! none all
14+
if (set0%none()) write (*, *) 'Third test of AND_NOT worked.'
15+
call set0%not()
16+
call and_not(set0, set1) ! all all
17+
if (set0%none()) write (*, *) 'Fourth test of AND_NOT worked.'
1818
end program demo_and_not

0 commit comments

Comments
 (0)