SpinGlassSimulations added (and removed junk)

SpinGlassSimulations/to_plot/to_plot.dsp

@@ -0,0 +1,105 @@
+# Microsoft Developer Studio Project File - Name="to_plot" - Package Owner=<4>
+# Microsoft Developer Studio Generated Build File, Format Version 6.00
+# ** DO NOT EDIT **
+
+# TARGTYPE "Win32 (x86) Console Application" 0x0103
+
+CFG=to_plot - 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 "to_plot.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 "to_plot.mak" CFG="to_plot - Win32 Debug"
+!MESSAGE 
+!MESSAGE Possible choices for configuration are:
+!MESSAGE 
+!MESSAGE "to_plot - Win32 Release" (based on "Win32 (x86) Console Application")
+!MESSAGE "to_plot - 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)" == "to_plot - 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)" == "to_plot - 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 /dbglibs /debug:full /nologo /traceback /warn:argument_checking /warn:nofileopt
+# ADD F90 /check:bounds /compile_only /dbglibs /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 "to_plot - Win32 Release"
+# Name "to_plot - 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=.\to_plot.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/to_plot/to_plot.f90

@@ -0,0 +1,88 @@
+!  to_plot.f90 
+!
+!  FUNCTIONS:
+!	to_plot      - Entry point of console application.
+!
+
+!****************************************************************************
+!
+!  PROGRAM: to_plot
+!
+!  PURPOSE:  To put several *g_t files in a multicolumn file and in the ZF
+!				cases correct for the fact that all simulations were done
+!				with 50 degree phase angle (should have been 0 for ZF)
+!
+!****************************************************************************
+
+	program to_plot
+
+	implicit none
+
+	! Variables
+
+	integer*4		i,j,k,n,is,l,max_l
+	real*4			x(40,1000), y(40,1000), xi, yi, yj
+	character*512	out
+	character*80	filename, file_out
+	character*1		y_n
+	logical*4		ZF
+
+	! Body of to_plot
+
+1	write(6,2)
+2	format('  Give simulation numbers > '$)
+	read(5,*,err=1) is, k, n
+3	write(6,4)
+4	format('  Zero-Field              ? '$)
+	read(5,'(a1)') y_n
+	ZF = ( y_n .EQ. 'y' .OR. y_n .EQ. 'Y' )
+5	write(6,6)
+6	format('  Give output file name   > '$)
+	read(5,'(a80)') file_out
+
+	max_l = 0
+	x     = 0.0
+	y     = 0.0
+
+	DO i = k, n
+	  write(filename,50) is, i
+50	  format('u:\simulations\dynamics-',i2,'_',i3,'.g_t')
+	  write(6,*) filename
+	  open(1,file=filename,status='old',err=55)
+	  write(out( 14*(i-k)+1:14*(i-k+1) ),51) is,i
+51	  format('  time  ',i2,'_',i3)
+
+	  l = 0
+
+	  read(1,*) xi, yi, yj
+	
+
+	  DO WHILE( xi .LT. 5.0 .AND. (.NOT. Eof(1) ) )
+	    l = l + 1
+	    IF ( ZF ) yi = sqrt( yi*yi + yj*yj )
+	    x(i-k+1,l) = xi
+	    y(i-k+1,l) = yi
+	    read(1,*) xi, yi, yj
+	    END DO
+
+	  IF ( max_l .LT. l ) max_l = l
+	  close(1)
+
+55	  END DO
+
+	open(2,file='u:\simulations\'//file_out,status='new')
+	write( 2, '(a)' ) out(1:14*(n-k+1)) 
+
+	DO j = 1, max_l
+	  write(out,'(35(f6.3,f8.3))') ( (x(i,j),y(i,j)),i=1,n-k+1 )
+	  DO i = 1, n-k+1
+	    IF ( x(i,j) .LT. 0.0 ) out( 14*(i-1)+1:14*i ) = '              '
+		END DO
+	  write(2,'(a)') out(1:14*(n-k+1))
+	  END DO
+
+	close(2)
+	goto 1
+
+	end program to_plot
+

SpinGlassSimulations/to_plot/to_plot.plg

@@ -0,0 +1,24 @@
+<html>
+<body>
+<pre>
+<h1>Build Log</h1>
+<h3>
+--------------------Configuration: to_plot - Win32 Release--------------------
+</h3>
+<h3>Command Lines</h3>
+Creating temporary file "C:\DOCUME~1\NIEUWE~1\LOCALS~1\Temp\RSP3.tmp" with contents
+[
+/compile_only /nologo /warn:nofileopt /module:"Release/" /object:"Release/" 
+"N:\simulations\dynamics.f90"
+]
+<h3>Output Window</h3>
+Compiling Fortran...
+N:\simulations\dynamics.f90
+
+
+
+<h3>Results</h3>
+dynamics.obj - 0 error(s), 0 warning(s)
+</pre>
+</body>
+</html>