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

SpinGlassSimulations/index/index.dsp

@@ -0,0 +1,105 @@
+# Microsoft Developer Studio Project File - Name="index" - Package Owner=<4>
+# Microsoft Developer Studio Generated Build File, Format Version 6.00
+# ** DO NOT EDIT **
+
+# TARGTYPE "Win32 (x86) Console Application" 0x0103
+
+CFG=index - Win32 Debug
+!MESSAGE This is not a valid makefile. To build this project using NMAKE,
+!MESSAGE use the Export Makefile command and run
+!MESSAGE 
+!MESSAGE NMAKE /f "index.mak".
+!MESSAGE 
+!MESSAGE You can specify a configuration when running NMAKE
+!MESSAGE by defining the macro CFG on the command line. For example:
+!MESSAGE 
+!MESSAGE NMAKE /f "index.mak" CFG="index - Win32 Debug"
+!MESSAGE 
+!MESSAGE Possible choices for configuration are:
+!MESSAGE 
+!MESSAGE "index - Win32 Release" (based on "Win32 (x86) Console Application")
+!MESSAGE "index - Win32 Debug" (based on "Win32 (x86) Console Application")
+!MESSAGE 
+
+# Begin Project
+# PROP AllowPerConfigDependencies 0
+# PROP Scc_ProjName ""
+# PROP Scc_LocalPath ""
+CPP=cl.exe
+F90=df.exe
+RSC=rc.exe
+
+!IF  "$(CFG)" == "index - Win32 Release"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 0
+# PROP BASE Output_Dir "Release"
+# PROP BASE Intermediate_Dir "Release"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 0
+# PROP Output_Dir "Release"
+# PROP Intermediate_Dir "Release"
+# PROP Target_Dir ""
+# ADD BASE F90 /compile_only /nologo /warn:nofileopt
+# ADD F90 /compile_only /nologo /warn:nofileopt
+# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
+# ADD CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
+# ADD BASE RSC /l 0x409 /d "NDEBUG"
+# ADD RSC /l 0x409 /d "NDEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib /nologo /subsystem:console /machine:I386
+# ADD LINK32 kernel32.lib /nologo /subsystem:console /machine:I386
+
+!ELSEIF  "$(CFG)" == "index - Win32 Debug"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 1
+# PROP BASE Output_Dir "Debug"
+# PROP BASE Intermediate_Dir "Debug"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 1
+# PROP Output_Dir "Debug"
+# PROP Intermediate_Dir "Debug"
+# PROP Target_Dir ""
+# ADD BASE F90 /check:bounds /compile_only /debug:full /nologo /traceback /warn:argument_checking /warn:nofileopt
+# ADD F90 /check:bounds /compile_only /debug:full /nologo /traceback /warn:argument_checking /warn:nofileopt
+# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ  /c
+# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ  /c
+# ADD BASE RSC /l 0x409 /d "_DEBUG"
+# ADD RSC /l 0x409 /d "_DEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
+# ADD LINK32 kernel32.lib /nologo /subsystem:console /incremental:no /debug /machine:I386 /pdbtype:sept
+
+!ENDIF 
+
+# Begin Target
+
+# Name "index - Win32 Release"
+# Name "index - Win32 Debug"
+# Begin Group "Source Files"
+
+# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat;f90;for;f;fpp"
+# Begin Source File
+
+SOURCE=".\index old files.f90"
+# End Source File
+# End Group
+# Begin Group "Header Files"
+
+# PROP Default_Filter "h;hpp;hxx;hm;inl;fi;fd"
+# End Group
+# Begin Group "Resource Files"
+
+# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
+# End Group
+# End Target
+# End Project

SpinGlassSimulations/index/index.plg

@@ -0,0 +1,19 @@
+<html>
+<body>
+<pre>
+<h1>Build Log</h1>
+<h3>
+--------------------Configuration: index - Win32 Release--------------------
+</h3>
+<h3>Command Lines</h3>
+Creating command line "link.exe kernel32.lib /nologo /subsystem:console /incremental:no /pdb:"Release/index.pdb" /machine:I386 /out:"Release/index.exe"  ".\Release\index old files.obj" "
+<h3>Output Window</h3>
+Linking...
+
+
+
+<h3>Results</h3>
+index.exe - 0 error(s), 0 warning(s)
+</pre>
+</body>
+</html>