SpinGlassSimulations added (and removed junk)

SpinGlassSimulations/index/index old files.f90

@@ -0,0 +1,60 @@
+!
+!	Program to index old files
+!
+	character*4   file_index
+	character*80  calculation, dummy
+	character*48  g_t
+	character*32  his
+	integer       ifile, i,j
+!
+	ifile = 0
+!
+1	CONTINUE
+200	write(6,201)
+201	format(' '/' Give name of the calculation     > ', \)
+	read(5,'(a60)') calculation
+	IF ( calculation(1:1) .EQ. ' ' ) STOP ' Stopped by operator '
+    l_calc = index( calculation, ' ') - 1
+!
+	open(1,file=calculation(1:l_calc)//'.inp',status='old',action='read',err=200 )
+	open(3,file=calculation(1:l_calc)//'.g_t',status='old',action='read')
+	open(4,file=calculation(1:l_calc)//'.his',status='old',action='read')
+!
+	read(1,'(a80)') comment
+	read(4,'(a80)') dummy
+!
+300	read(1,'(a80)',end=900) dummy
+	ifile = ifile + 1							  ! increase outputfile number
+	write(file_index,'(''_'',i3)') ifile		  ! generate file_name
+	DO j = 2, 4 
+	  IF (file_index(j:j) .EQ. ' ' ) file_index(j:j) = '0'
+	  END DO
+!
+	write(6,*) ' file index = ', file_index
+!
+	open(8,file=calculation(1:l_calc)//file_index//'.g_t',status='unknown',action='write')
+	open(9,file=calculation(1:l_calc)//file_index//'.his',status='unknown',action='write')
+!
+	DO j = 1, 1000
+	  read(3,'(a48)',end=305) g_t
+	  write(8,'(a48)') g_t
+	  END DO
+305	close(8)
+!
+310	read(4,'(a32)',end=390) his
+	IF (his(2:2) .EQ. '-') goto 390
+	write(9,'(a32)') his
+	GOTO 310
+!
+390	close(9)
+	GOTO 300
+!
+!	finish
+!
+900	close(1)
+	close(3)
+	close(4)
+	Write(6,*)   ' end of *.inp file '
+	Write(6,*) ' '
+	GOTO 200
+	END