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