|
@@ -1,3 +1,19 @@
|
|
|
+C
|
|
|
+C StarPU
|
|
|
+C Copyright (C) Université Bordeaux 1, CNRS 2008-2009 (see AUTHORS file)
|
|
|
+C
|
|
|
+C This program is free software; you can redistribute it and/or modify
|
|
|
+C it under the terms of the GNU Lesser General Public License as published by
|
|
|
+C the Free Software Foundation; either version 2.1 of the License, or (at
|
|
|
+C your option) any later version.
|
|
|
+C
|
|
|
+C This program is distributed in the hope that it will be useful, but
|
|
|
+C WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
+C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
+C
|
|
|
+C See the GNU Lesser General Public License in COPYING.LGPL for more details.
|
|
|
+C
|
|
|
+
|
|
|
PROGRAM VECTOR_SCAL
|
|
|
INTEGER,PARAMETER :: F_NX=2048
|
|
|
REAL,DIMENSION(F_NX) :: VECTOR
|