[cig-commits] r12438 - mc/2D/ConMan/trunk/src

[sdk at geodynamics.org]

Author: sdk
Date: 2008-07-18 12:42:00 -0700 (Fri, 18 Jul 2008)
New Revision: 12438

Removed:
   mc/2D/ConMan/trunk/src/differ.f
Log:
removed unnecessary file from source directory

Deleted: mc/2D/ConMan/trunk/src/differ.f
===================================================================
--- mc/2D/ConMan/trunk/src/differ.f	2008-07-18 19:40:14 UTC (rev 12437)
+++ mc/2D/ConMan/trunk/src/differ.f	2008-07-18 19:42:00 UTC (rev 12438)
@@ -1,24 +0,0 @@
-      program differ
-c
-c
-c
-      dimension t(101,61), t2(101,61)
-      open(1,file='temp.batchFb')
-      open(2,file='temp.p')
-      do iy=1,61
-          read(1,*) (t(ix,iy),ix=1,101)
-          read(2,*) (t2(ix,iy),ix=1,101)
-      enddo
-      do ix=1,101
-      do iy=1,61
-c       x = 1.6667*(ix-1)/100.
-        x = 1.6667*(ix-1)/100.
-        y = 1.0*(61-iy)/60.
-        write(6,*) x,y,(t(ix,iy)-t2(ix,iy))
-c       write(6,*) x,y,t(102-iy,iy)/1300.0
-      enddo
-      enddo
- 1000 format(101(1pe14.7,1x))
- 1001 format(101(f11.6,1x))
-      stop
-      end