[cig-commits] r8495 - seismo/2D/SPECFEM2D/trunk/DATA/util

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:50:49 -0800 (Fri, 07 Dec 2007)
New Revision: 8495

Added:
   seismo/2D/SPECFEM2D/trunk/DATA/util/permute_color_palette.f90
   seismo/2D/SPECFEM2D/trunk/DATA/util/roland_parallel_regular_slices_11juillet2006_final.tar.bz2
Log:
added tar file with Roland Martin's parallel version of the 2D code based on regular slices.
also added small program to create a random permutation of a given color palette.


Added: seismo/2D/SPECFEM2D/trunk/DATA/util/permute_color_palette.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/DATA/util/permute_color_palette.f90	2006-08-29 14:06:40 UTC (rev 8494)
+++ seismo/2D/SPECFEM2D/trunk/DATA/util/permute_color_palette.f90	2007-12-07 23:50:49 UTC (rev 8495)
@@ -0,0 +1,55 @@
+
+! permute color palette to have list of colors in random order
+
+program permute_color_palette
+
+implicit none
+
+integer, parameter :: N = 236
+character(len=50) nom(N)
+double precision, dimension(N) :: r,g,b
+
+integer, dimension(N) :: done,perm
+
+integer i,irandom_color
+
+real random_val
+
+done(:) = -1
+
+do i=1,N
+
+777 continue
+  call random_number(random_val)
+  irandom_color = nint(random_val * (N+3)) - 1
+  if(irandom_color < 1) irandom_color = 1
+  if(irandom_color > N) irandom_color = N
+if(done(irandom_color) /= -1) goto 777
+
+perm(i) = irandom_color
+done(irandom_color) = 100
+
+enddo
+
+!print *,'random done'
+!do i=1,N
+!write(*,*) perm(i)
+!enddo
+
+do i=1,N
+read(*,*) nom(perm(i))
+read(*,*) r(perm(i))
+read(*,*) g(perm(i))
+read(*,*) b(perm(i))
+enddo
+
+do i=1,N
+write(*,*) '!#',nom(i)
+write(*,*) '##red(',i,')#=#',r(i)
+write(*,*) '##green(',i,')#=#',g(i)
+write(*,*) '##blue(',i,')#=#',b(i)
+write(*,*)
+enddo
+
+end program permute_color_palette
+

Added: seismo/2D/SPECFEM2D/trunk/DATA/util/roland_parallel_regular_slices_11juillet2006_final.tar.bz2
===================================================================
(Binary files differ)


Property changes on: seismo/2D/SPECFEM2D/trunk/DATA/util/roland_parallel_regular_slices_11juillet2006_final.tar.bz2
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream