[Dart-dev] [6212] DART/branches/development/models/am2/tester.f90: Removing unused program

nancy at ucar.edu nancy at ucar.edu
Fri May 31 09:21:49 MDT 2013


Revision: 6212
Author:   thoar
Date:     2013-05-31 09:21:49 -0600 (Fri, 31 May 2013)
Log Message:
-----------
Removing unused program

Removed Paths:
-------------
    DART/branches/development/models/am2/tester.f90

-------------- next part --------------
Deleted: DART/branches/development/models/am2/tester.f90
===================================================================
--- DART/branches/development/models/am2/tester.f90	2013-05-31 15:20:04 UTC (rev 6211)
+++ DART/branches/development/models/am2/tester.f90	2013-05-31 15:21:49 UTC (rev 6212)
@@ -1,37 +0,0 @@
-! DART software - Copyright 2004 - 2011 UCAR. This open source software is
-! provided by UCAR, "as is", without charge, subject to all terms of use at
-! http://www.image.ucar.edu/DAReS/DART/DART_download
-
-program tester
-
-! <next few lines under version control, do not edit>
-! $URL$
-! $Id$
-! $Revision$
-! $Date$
-
-  implicit none
-  real*8, dimension(:,:,:), allocatable  :: val, rval
-  integer :: i, j, k
-
-  allocate(val(2,3,4))
-
-  do i = 1, 2
-     do j = 1, 3
-        do k = 1, 4
-           val(i,j,k) = 2*i+3*j+4*k
-        end do
-     end do
-  end do
-
-  print *, val(1,:,:)
-  print *, val(2,:,:)
-
-  allocate(rval(4,2,3))
-
-  rval = reshape(val, (/4, 2, 3/), order = (/3,1,2/))
-
-  print *, rval(:,1,:)
-  print *, rval(:,2,:)
-
-end program tester


More information about the Dart-dev mailing list