PKGBUILD:
# Contributor: dibblethewrecker dibblethewrecker.at.jiwe.dot.org
# Maintainer: (epsilom) Xavier Corredor <xavier.corredor.llano (a) gmail.com>
pkgname=vis5d+
pkgver=1.2.1
pkgrel=4
pkgdesc="A system for interactive visualization of large 5-D gridded data sets"
url="http://vis5d.sourceforge.net/"
license=("GPL")
arch=('i686' 'x86_64')
depends=('netcdf' 'xorg-server' 'mesa')
source=("http://downloads.sourceforge.net/vis5d/$pkgname-$pkgver.tar.bz2" "patch
")
md5sums=('15a8b09ba8ae57b753e724d0825e40c1'
'f35aa4d904b83617a6020bbbd74eb254')
build() {
cd $startdir/src/$pkgname-$pkgver
patch -Np1 -i ../../patch
FC=gfortran F77=gfortran CFLAGS="$CFLAGS -fno-range-check" \
FFLAGS="$FFLAGS -fno-range-check" \
./configure --prefix=/usr --with-netcdf=/usr/lib/ --with-x #--with-mixkit=/usr
/lib
make || return 1
make DESTDIR=$startdir/pkg install
}
EOF
patch:
diff -Naur vis5d+-1.2.1//src/misc.c vis5d+-1.2.1_new//src/misc.c
--- vis5d+-1.2.1//src/misc.c 2001-11-07 06:53:12.000000000 -0500
+++ vis5d+-1.2.1_new//src/misc.c 2010-10-16 23:26:10.000000000 -0500
@@ -144,10 +144,10 @@
-/*** round ************************************************************
+/*** roundv5d ************************************************************
Round off x to a 'nice' value.
**********************************************************************/
-float round( float x )
+float roundv5d( float x )
{
float base, fudge;
int temp;
@@ -273,7 +273,7 @@
ctx->Variable[var]->HSliceRequest->Interval = 0.0;
}
else {
- ctx->Variable[var]->HSliceRequest->Interval = round( (ctx->Variable[var]-
>MaxVal - ctx->Variable[var]->MinVal)
+ ctx->Variable[var]->HSliceRequest->Interval = roundv5d( (ctx->Variable[va
r]->MaxVal - ctx->Variable[var]->MinVal)
/ 10.0 );
}
@@ -309,7 +309,7 @@
ctx->Variable[var]->VSliceRequest->Interval = 0.0;
}
else {
- ctx->Variable[var]->VSliceRequest->Interval = round( (ctx->Variable[var]-
>MaxVal - ctx->Variable[var]->MinVal)
+ ctx->Variable[var]->VSliceRequest->Interval = roundv5d( (ctx->Variable[va
r]->MaxVal - ctx->Variable[var]->MinVal)
/ 10.0 );
}
diff -Naur vis5d+-1.2.1//src/misc.h vis5d+-1.2.1_new//src/misc.h
--- vis5d+-1.2.1//src/misc.h 2001-11-07 06:53:12.000000000 -0500
+++ vis5d+-1.2.1_new//src/misc.h 2010-10-16 23:26:28.000000000 -0500
@@ -37,7 +37,7 @@
extern void die( char *msg );
-extern float round( float x );
+extern float roundv5d( float x );
extern int which( char *file, char *fullpath );
diff -Naur vis5d+-1.2.1//src/work.c vis5d+-1.2.1_new//src/work.c
--- vis5d+-1.2.1//src/work.c 2001-11-07 06:53:30.000000000 -0500
+++ vis5d+-1.2.1_new//src/work.c 2010-10-16 23:27:16.000000000 -0500
@@ -6791,7 +6791,7 @@
request->HighLimit = floor(request->HighLimit*factor)/(float)
factor;
}
}
- request->Interval = round((request->HighLimit - request->LowLimit)/5.0)
;
+ request->Interval = roundv5d((request->HighLimit - request->LowLimit)/5
.0);
}
}
--- vis5d+-1.2.1/util/kludge.f 2001-10-24 12:46:49.000000000 +0200
+++ vis5d+-1.2.1.new/util/kludge.f 2011-04-28 14:41:00.883619139 +0200
@@ -51,9 +51,13 @@
SUBROUTINE GETDAY(I)
IMPLICIT INTEGER (A-Z)
INTEGER MTBL(12)
+ INTEGER TARRAY(3)
DATA MTBL/0,31,59,90,120,151,181,212,243,273,304,334/
C
- CALL IDATE(MON,IDAY,IYEAR)
+ CALL IDATE(TARRAY)
+ IDAY = TARRAY(1)
+ MON = TARRAY(2)
+ IYEAR = TARRAY(3)
IF (IDAY.LT.1.OR.IDAY.GT.31) RETURN
IF (MON.LT.1.OR.MON.GT.12) RETURN
IDDD=IDAY+MTBL(MON)
EOF