#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  static const int Nmax = 4;
  auto void Testmatrix(double A, int N);
  int I;
  double A[4 /*1:4*/][4 /*1:4*/];
  double W[4 /*1:4*/];
  Testmatrix(A, Nmax);
  Printstring(_imp_str_literal("\nTEST MATRIX EIGENVALUES\n"));
  exit(0);
  void Testmatrix(double A, int N) {
    int I;
    int J;
    double T;
    double C;
    double D;
    double F;
    C = N * (N + 1) * (2 * N - 5) / 6;
    D = 1 / C;
    A = -D;
    for (I = 1; I <= N - 1; I++) {
      F = I;
      A = D * F;
      A = A;
      A = D * (C - REXP(F, 2));
      for (J = 1; J <= I - 1; J++) {
        T = J;
        A = -D * F * T;
        A = A;
      }
    }
    for (I = 1; I <= N; I++) {
      for (J = 1; J <= N; J++) Printfl(A, 4);
      Newline();
    }
  }
  exit(0);
  return (1);
}