[cig-commits] r19643 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/utils

[surendra at geodynamics.org]

Author: surendra
Date: 2012-02-16 14:17:06 -0800 (Thu, 16 Feb 2012)
New Revision: 19643

Added:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/utils/Create_STATIONS.m
Log:
Added matlab script to create stations

Added: seismo/3D/FAULT_SOURCE/branches/new_fault_db/utils/Create_STATIONS.m
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/utils/Create_STATIONS.m	                        (rev 0)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/utils/Create_STATIONS.m	2012-02-16 22:17:06 UTC (rev 19643)
@@ -0,0 +1,28 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%    Surendra, Caltech 2012
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+clear all
+
+
+lat = [-10000:5000:30000]; ly=length(lat);
+lon = [-35000:5000:35000]; lx = length(lon);
+
+
+
+for i=1:lx*ly
+stat(i,:)=sprintf('S%04u',i);
+end
+
+fid = fopen('STATIONS','w');
+
+kk=0;
+for i =1:lx
+for j=1:ly
+kk=kk+1;
+fprintf(fid,'%s \t %s \t %f \t %f \t %f \t %f\n',stat(kk,:),'SF',lat(j),lon(i),0,0); 
+end
+end
+fclose(fid);
+