#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_enter();
  const int NMAX = 4;
  auto void TESTMATRIX(double *A, int N);
  int I;
  double A[NMAX - 1 + 1][NMAX - 1 + 1];
  double W[NMAX - 1 + 1];
  TESTMATRIX(A, NMAX);
  PRINTSTRING(_imp_str_literal("\nTEST MATRIX EIGENVALUES\n"));
  exit(0);
  auto void TESTMATRIX(double *A, int N) {
    _imp_enter();
    int I;
    int J;
    double T;
    double C;
    double D;
    double F;
    C = N * (N + 1) * (2 * N - 5) / 6;
    D = 1 / C;
    *A(/*index missing*/) = -D;
    for (I = 1; I != N - 1 + 1; I += 1) {
      F = I;
      *A(/*index missing*/) = D * F;
      *A(/*index missing*/) = A;
      *A(/*index missing*/) = D * (C - REXP(F, 2));
      for (J = 1; J != I - 1 + 1; J += 1) {
        T = J;
        *A(/*index missing*/) = -D * F * T;
        *A(/*index missing*/) = A;
      }
    }
    for (I = 1; I != N + 1; I += 1) {
      for (J = 1; J != N + 1; J += 1) {
        PRINTFL(A, 4);
      }
      NEWLINE();
    }

    _imp_leave();
  }

  _imp_leave();
  exit(0);
  return (0);
}