#include "libscl.h"
using namespace scl;  
using namespace std;

REAL f(realmat b) {cout << "#1 "; return b[1];}
REAL f(realmat* bptr) {cout << "#2 "; return (*bptr)[1];}
REAL f(REAL b) {cout << "#3 "; return b;}
REAL f(INTEGER b) {cout << "#4 "; return b;}

int main(int argc, char** argp, char** envp)
{
  realmat a(5,5,1.5); 
  cout << f(a) << '\n';
  cout << f(&a) << '\n';
  cout << f(a[1]) << '\n';
  cout << f(INTEGER(a[1])) << '\n';
  return 0;
}