Version:  c31a2
Date   :  16-Feb-2004
Files  :  source/emap/emapio.c
          source/io/paramio.src 
          source/machdep/cstuff.c 
Contributed by Youngdo Won (won@hanyang.ac.kr)

1. The C-function floor is not available on HP-UX.

source/emap/emapio.c Line 195

    testa = floor(100*alpha+0.5); testb = floor(100*beta+0.5); testg = floor(100*gamma+0.5);

changed to 

#if defined(hpux)
    testa = 100*alpha+0.5; testb = 100*beta+0.5; testg = 100*gamma+0.5;
#else
    testa = floor(100*alpha+0.5); testb = floor(100*beta+0.5); testg = floor(100*gamma+0.5);
#endif

2. INTEGER*1 is not supported on HP-UX and SUN

source/energy/gbsw.src Line 1116

      integer*1 checkip(*)

changed to

##IF SUN HPUX
      byte checkip(*)
##ELSE
      integer*1 checkip(*)
##ENDIF

and line 1133

      integer*1 checkip0

changed to

##IF SUN HPUX
      byte checkip0
##ELSE
      integer*1 checkip0
##ENDIF

3. FORTRALL callable C function name fixed.

source/machdep/cstuff.c lines 1092, 1174, 1270, 1312, 1256, 1406 and 1424

#ifdef ibmrs

changed to

#if ibmrs || hpux