/*
************************************************************************
*
*   functions.C -
*
*   Copyright (c) 1995
*
*   ETH Zuerich
*   Institut fuer Molekularbiologie und Biophysik
*   ETH-Hoenggerberg
*   CH-8093 Zuerich
*
*   All Rights Reserved
*
*   Date of last modification : 95/09/15
*   Pathname of SCCS file     : /export/home3/cb/garant-1.0/src/SCCS/s.functions.C
*   SCCS identification       : 1.2
*
************************************************************************
*/

int min(int i, int j)
{ if(i<j)return (i); else return (j); }

int max(int i, int j)
{ if(i>j)return (i); else return (j); }

float amin(float i, float j)
{ if(i<j)return (i); else return (j); }

float amax(float i, float j)
{ if(i>j)return (i); else return (j); }

float xabs(float x)
{ if(x<0.0)return (-x); else return (x); }

int nabs(int x)
{ if(x<0)return (-x); else return (x); }

int xnint(float x)
{ if(x > 0.0) return ( (int)(x+0.5)); else return ( (int)(x-0.5)); }