From 695a2ee64400fbd126045ec43a64483ca1430cfa Mon Sep 17 00:00:00 2001
From: Lorenzo <140400600+lollocava00@users.noreply.github.com>
Date: Mon, 27 May 2024 23:07:21 +0200
Subject: [PATCH] Update and rename Project2.f90 to code.f90

---
 Project2.f90 => code.f90 | 21 ++-------------------
 1 file changed, 2 insertions(+), 19 deletions(-)
 rename Project2.f90 => code.f90 (96%)

diff --git a/Project2.f90 b/code.f90
similarity index 96%
rename from Project2.f90
rename to code.f90
index 7064fc7..0210537 100644
--- a/Project2.f90
+++ b/code.f90
@@ -1,5 +1,5 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!    program written by Lorenzo Cavazzini.											!!!!
+!!!!    program written by Lorenzo Cavazzini.						!!!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 MODULE DATA
@@ -499,23 +499,6 @@ SUBROUTINE data_strip(d,v,e,p,Temp)
 character :: str
 
 	if (j > 0 .and. j < 9) write (str, "(i0)") j
-	! if (j==1) then 
-	! 	str='1'
-	! else if (j==2) then
-	! 	str='2'
-	! else if (j==3) then
-	! 	str='3'
-	! else if (j==4) then
-	! 	str='4'
-	! else if (j==5) then
-	! 	str='5'
-	! else if (j==6) then
-	! 	str='6'
-	! else if (j==7) then
-	! 	str='7'
-	! else if (j==8) then
-	! 	str='8'
-	! end if
 
 	IF(cool_onoff==1) THEN
 		open(j*100,file='results'//str//'_cooling.dat')
@@ -538,4 +521,4 @@ SUBROUTINE data_strip(d,v,e,p,Temp)
 		1005 format(5(1pe12.4))
 		close(j*100)
 	END IF
-END SUBROUTINE data_strip
\ No newline at end of file
+END SUBROUTINE data_strip