From 4454a3060b525e274a1c4bfd7c3d4b9224668461 Mon Sep 17 00:00:00 2001
From: Bond_009 <bond.009@outlook.com>
Date: Thu, 10 Dec 2020 21:25:43 +0100
Subject: Change .f95 to .f90

---
 1/part1.f90 | 25 +++++++++++++++++++++++++
 1/part1.f95 | 25 -------------------------
 1/part2.f90 | 27 +++++++++++++++++++++++++++
 1/part2.f95 | 27 ---------------------------
 4 files changed, 52 insertions(+), 52 deletions(-)
 create mode 100644 1/part1.f90
 delete mode 100644 1/part1.f95
 create mode 100644 1/part2.f90
 delete mode 100644 1/part2.f95

diff --git a/1/part1.f90 b/1/part1.f90
new file mode 100644
index 0000000..a7c09c8
--- /dev/null
+++ b/1/part1.f90
@@ -0,0 +1,25 @@
+program day1
+    implicit none
+
+    integer, parameter :: input_len = 200
+    integer, parameter :: search = 2020
+
+    integer :: i, j
+    integer, dimension(input_len) :: input
+
+    open(10, file='input', status='old')
+    do i = 1, input_len
+        read(10, *) input(i)
+    end do
+    close(10)
+
+    do i = 1, input_len
+        do j = 1, input_len
+            if (input(i) + input(j) == search) then
+                print *, input(i) * input(j)
+                stop
+            end if
+        end do
+    end do
+
+end program day1
diff --git a/1/part1.f95 b/1/part1.f95
deleted file mode 100644
index a7c09c8..0000000
--- a/1/part1.f95
+++ /dev/null
@@ -1,25 +0,0 @@
-program day1
-    implicit none
-
-    integer, parameter :: input_len = 200
-    integer, parameter :: search = 2020
-
-    integer :: i, j
-    integer, dimension(input_len) :: input
-
-    open(10, file='input', status='old')
-    do i = 1, input_len
-        read(10, *) input(i)
-    end do
-    close(10)
-
-    do i = 1, input_len
-        do j = 1, input_len
-            if (input(i) + input(j) == search) then
-                print *, input(i) * input(j)
-                stop
-            end if
-        end do
-    end do
-
-end program day1
diff --git a/1/part2.f90 b/1/part2.f90
new file mode 100644
index 0000000..b3d6bd2
--- /dev/null
+++ b/1/part2.f90
@@ -0,0 +1,27 @@
+program day1
+    implicit none
+
+    integer, parameter :: input_len = 200
+    integer, parameter :: search = 2020
+
+    integer :: i, j, k
+    integer, dimension(input_len) :: input
+
+    open(10, file='input', status='old')
+    do i = 1, input_len
+        read(10, *) input(i)
+    end do
+    close(10)
+
+    do i = 1, input_len
+        do j = 1, input_len
+            do k = 1, input_len
+                if (input(i) + input(j) + input(k) == search) then
+                    print *, input(i) * input(j) * input(k)
+                    stop
+                end if
+            end do
+        end do
+    end do
+
+end program day1
diff --git a/1/part2.f95 b/1/part2.f95
deleted file mode 100644
index b3d6bd2..0000000
--- a/1/part2.f95
+++ /dev/null
@@ -1,27 +0,0 @@
-program day1
-    implicit none
-
-    integer, parameter :: input_len = 200
-    integer, parameter :: search = 2020
-
-    integer :: i, j, k
-    integer, dimension(input_len) :: input
-
-    open(10, file='input', status='old')
-    do i = 1, input_len
-        read(10, *) input(i)
-    end do
-    close(10)
-
-    do i = 1, input_len
-        do j = 1, input_len
-            do k = 1, input_len
-                if (input(i) + input(j) + input(k) == search) then
-                    print *, input(i) * input(j) * input(k)
-                    stop
-                end if
-            end do
-        end do
-    end do
-
-end program day1
-- 
cgit v1.2.3