Update and rename Project2.f90 to code.f90

lollocava00 · May 27, 2024 · 695a2ee · 695a2ee
1 parent cb32557
commit 695a2ee
Showing 1 changed file with 2 additions and 19 deletions.
diff --git a/Project2.f90 → code.f90 b/Project2.f90 → 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
+END SUBROUTINE data_strip