Move symtab.* to topology/

[gromacs.git] / src / gromacs / gmxana / gmx_anaeig.c

/*
 * This file is part of the GROMACS molecular simulation package.
 *
 * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
 * Copyright (c) 2001-2004, The GROMACS development team.
 * Copyright (c) 2013,2014, by the GROMACS development team, led by
 * Mark Abraham, David van der Spoel, Berk Hess, and Erik Lindahl,
 * and including many others, as listed in the AUTHORS file in the
 * top-level source directory and at http://www.gromacs.org.
 *
 * GROMACS is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public License
 * as published by the Free Software Foundation; either version 2.1
 * of the License, or (at your option) any later version.
 *
 * GROMACS is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with GROMACS; if not, see
 * http://www.gnu.org/licenses, or write to the Free Software Foundation,
 * Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA.
 *
 * If you want to redistribute modifications to GROMACS, please
 * consider that scientific software is very special. Version
 * control is crucial - bugs must be traceable. We will be happy to
 * consider code for inclusion in the official distribution, but
 * derived work must not be called official GROMACS. Details are found
 * in the README & COPYING files - if they are missing, get the
 * official version at http://www.gromacs.org.
 *
 * To help us fund GROMACS development, we humbly ask that you cite
 * the research papers on the package. Check out http://www.gromacs.org.
 */
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <math.h>
#include <stdlib.h>
#include <string.h>

#include "gromacs/commandline/pargs.h"
#include "typedefs.h"
#include "gromacs/utility/smalloc.h"
#include "macros.h"
#include "gromacs/utility/fatalerror.h"
#include "gromacs/math/vec.h"
#include "gromacs/utility/futil.h"
#include "index.h"
#include "gromacs/fileio/pdbio.h"
#include "gromacs/fileio/confio.h"
#include "gromacs/fileio/tpxio.h"
#include "gromacs/fileio/trxio.h"
#include "gromacs/fileio/matio.h"
#include "gromacs/fileio/xvgr.h"
#include "viewit.h"
#include "gromacs/pbcutil/rmpbc.h"
#include "txtdump.h"
#include "eigio.h"
#include "gromacs/math/units.h"
#include "gmx_ana.h"

#include "gromacs/math/do_fit.h"

static void calc_entropy_qh(FILE *fp, int n, real eigval[], real temp, int nskip)
{
    int    i;
    double hwkT, w, dS, S = 0;
    double hbar, lambda;

    hbar = PLANCK1/(2*M_PI);
    for (i = 0; (i < n-nskip); i++)
    {
        if (eigval[i] > 0)
        {
            lambda = eigval[i]*AMU;
            w      = sqrt(BOLTZMANN*temp/lambda)/NANO;
            hwkT   = (hbar*w)/(BOLTZMANN*temp);
            dS     = (hwkT/(exp(hwkT) - 1) - log(1-exp(-hwkT)));
            S     += dS;
            if (debug)
            {
                fprintf(debug, "i = %5d w = %10g lam = %10g hwkT = %10g dS = %10g\n",
                        i, w, lambda, hwkT, dS);
            }
        }
        else
        {
            fprintf(stderr, "eigval[%d] = %g\n", i, eigval[i]);
            w = 0;
        }
    }
    fprintf(fp, "The Entropy due to the Quasi Harmonic approximation is %g J/mol K\n",
            S*RGAS);
}

static void calc_entropy_schlitter(FILE *fp, int n, int nskip,
                                   real *eigval, real temp)
{
    double  dd, deter;
    int    *indx;
    int     i, j, k, m;
    char    buf[256];
    double  hbar, kt, kteh, S;

    hbar = PLANCK1/(2*M_PI);
    kt   = BOLTZMANN*temp;
    kteh = kt*exp(2.0)/(hbar*hbar)*AMU*(NANO*NANO);
    if (debug)
    {
        fprintf(debug, "n = %d, nskip = %d kteh = %g\n", n, nskip, kteh);
    }

    deter = 0;
    for (i = 0; (i < n-nskip); i++)
    {
        dd     = 1+kteh*eigval[i];
        deter += log(dd);
    }
    S = 0.5*RGAS*deter;

    fprintf(fp, "The Entropy due to the Schlitter formula is %g J/mol K\n", S);
}

const char *proj_unit;

static real tick_spacing(real range, int minticks)
{
    real sp;

    if (range <= 0)
    {
        return 1.0;
    }

    sp = 0.2*exp(log(10)*ceil(log(range)/log(10)));
    while (range/sp < minticks-1)
    {
        sp = sp/2;
    }

    return sp;
}

static void write_xvgr_graphs(const char *file, int ngraphs, int nsetspergraph,
                              const char *title, const char *subtitle,
                              const char *xlabel, const char **ylabel,
                              int n, real *x, real **y, real ***sy,
                              real scale_x, gmx_bool bZero, gmx_bool bSplit,
                              const output_env_t oenv)
{
    FILE *out;
    int   g, s, i;
    real  min, max, xsp, ysp;

    out = gmx_ffopen(file, "w");
    if (output_env_get_xvg_format(oenv) == exvgXMGRACE)
    {
        fprintf(out, "@ autoscale onread none\n");
    }
    for (g = 0; g < ngraphs; g++)
    {
        if (y)
        {
            min = y[g][0];
            max = y[g][0];
            for (i = 0; i < n; i++)
            {
                if (y[g][i] < min)
                {
                    min = y[g][i];
                }
                if (y[g][i] > max)
                {
                    max = y[g][i];
                }
            }
        }
        else
        {
            min = sy[g][0][0];
            max = sy[g][0][0];
            for (s = 0; s < nsetspergraph; s++)
            {
                for (i = 0; i < n; i++)
                {
                    if (sy[g][s][i] < min)
                    {
                        min = sy[g][s][i];
                    }
                    if (sy[g][s][i] > max)
                    {
                        max = sy[g][s][i];
                    }
                }
            }
        }
        if (bZero)
        {
            min = 0;
        }
        else
        {
            min = min-0.1*(max-min);
        }
        max = max+0.1*(max-min);
        xsp = tick_spacing((x[n-1]-x[0])*scale_x, 4);
        ysp = tick_spacing(max-min, 3);
        if (output_env_get_print_xvgr_codes(oenv))
        {
            fprintf(out, "@ with g%d\n@ g%d on\n", g, g);
            if (g == 0)
            {
                fprintf(out, "@ title \"%s\"\n", title);
                if (subtitle)
                {
                    fprintf(out, "@ subtitle \"%s\"\n", subtitle);
                }
            }
            if (g == ngraphs-1)
            {
                fprintf(out, "@ xaxis  label \"%s\"\n", xlabel);
            }
            else
            {
                fprintf(out, "@ xaxis  ticklabel off\n");
            }
            if (n > 1)
            {
                fprintf(out, "@ world xmin %g\n", x[0]*scale_x);
                fprintf(out, "@ world xmax %g\n", x[n-1]*scale_x);
                fprintf(out, "@ world ymin %g\n", min);
                fprintf(out, "@ world ymax %g\n", max);
            }
            fprintf(out, "@ view xmin 0.15\n");
            fprintf(out, "@ view xmax 0.85\n");
            fprintf(out, "@ view ymin %g\n", 0.15+(ngraphs-1-g)*0.7/ngraphs);
            fprintf(out, "@ view ymax %g\n", 0.15+(ngraphs-g)*0.7/ngraphs);
            fprintf(out, "@ yaxis  label \"%s\"\n", ylabel[g]);
            fprintf(out, "@ xaxis tick major %g\n", xsp);
            fprintf(out, "@ xaxis tick minor %g\n", xsp/2);
            fprintf(out, "@ xaxis ticklabel start type spec\n");
            fprintf(out, "@ xaxis ticklabel start %g\n", ceil(min/xsp)*xsp);
            fprintf(out, "@ yaxis tick major %g\n", ysp);
            fprintf(out, "@ yaxis tick minor %g\n", ysp/2);
            fprintf(out, "@ yaxis ticklabel start type spec\n");
            fprintf(out, "@ yaxis ticklabel start %g\n", ceil(min/ysp)*ysp);
            if ((min < 0) && (max > 0))
            {
                fprintf(out, "@ zeroxaxis bar on\n");
                fprintf(out, "@ zeroxaxis bar linestyle 3\n");
            }
        }
        for (s = 0; s < nsetspergraph; s++)
        {
            for (i = 0; i < n; i++)
            {
                if (bSplit && i > 0 && fabs(x[i]) < 1e-5)
                {
                    if (output_env_get_print_xvgr_codes(oenv))
                    {
                        fprintf(out, "&\n");
                    }
                }
                fprintf(out, "%10.4f %10.5f\n",
                        x[i]*scale_x, y ? y[g][i] : sy[g][s][i]);
            }
            if (output_env_get_print_xvgr_codes(oenv))
            {
                fprintf(out, "&\n");
            }
        }
    }
    gmx_ffclose(out);
}

static void
compare(int natoms, int n1, rvec **eigvec1, int n2, rvec **eigvec2,
        real *eigval1, int neig1, real *eigval2, int neig2)
{
    int    n, nrow;
    int    i, j, k;
    double sum1, sum2, trace1, trace2, sab, samsb2, tmp, ip;

    n = min(n1, n2);

    n = min(n, min(neig1, neig2));
    fprintf(stdout, "Will compare the covariance matrices using %d dimensions\n", n);

    sum1 = 0;
    for (i = 0; i < n; i++)
    {
        if (eigval1[i] < 0)
        {
            eigval1[i] = 0;
        }
        sum1      += eigval1[i];
        eigval1[i] = sqrt(eigval1[i]);
    }
    trace1 = sum1;
    for (i = n; i < neig1; i++)
    {
        trace1 += eigval1[i];
    }
    sum2 = 0;
    for (i = 0; i < n; i++)
    {
        if (eigval2[i] < 0)
        {
            eigval2[i] = 0;
        }
        sum2      += eigval2[i];
        eigval2[i] = sqrt(eigval2[i]);
    }
    trace2 = sum2;
    for (i = n; i < neig2; i++)
    {
        trace2 += eigval2[i];
    }

    fprintf(stdout, "Trace of the two matrices: %g and %g\n", sum1, sum2);
    if (neig1 != n || neig2 != n)
    {
        fprintf(stdout, "this is %d%% and %d%% of the total trace\n",
                (int)(100*sum1/trace1+0.5), (int)(100*sum2/trace2+0.5));
    }
    fprintf(stdout, "Square root of the traces: %g and %g\n",
            sqrt(sum1), sqrt(sum2));

    sab = 0;
    for (i = 0; i < n; i++)
    {
        tmp = 0;
        for (j = 0; j < n; j++)
        {
            ip = 0;
            for (k = 0; k < natoms; k++)
            {
                ip += iprod(eigvec1[i][k], eigvec2[j][k]);
            }
            tmp += eigval2[j]*ip*ip;
        }
        sab += eigval1[i]*tmp;
    }

    samsb2 = sum1+sum2-2*sab;
    if (samsb2 < 0)
    {
        samsb2 = 0;
    }

    fprintf(stdout, "The overlap of the covariance matrices:\n");
    fprintf(stdout, "  normalized:  %.3f\n", 1-sqrt(samsb2/(sum1+sum2)));
    tmp = 1-sab/sqrt(sum1*sum2);
    if (tmp < 0)
    {
        tmp = 0;
    }
    fprintf(stdout, "       shape:  %.3f\n", 1-sqrt(tmp));
}


static void inprod_matrix(const char *matfile, int natoms,
                          int nvec1, int *eignr1, rvec **eigvec1,
                          int nvec2, int *eignr2, rvec **eigvec2,
                          gmx_bool bSelect, int noutvec, int *outvec)
{
    FILE   *out;
    real  **mat;
    int     i, x1, y1, x, y, nlevels;
    int     nx, ny;
    real    inp, *t_x, *t_y, max;
    t_rgb   rlo, rhi;

    snew(t_y, nvec2);
    if (bSelect)
    {
        nx = noutvec;
        ny = 0;
        for (y1 = 0; y1 < nx; y1++)
        {
            if (outvec[y1] < nvec2)
            {
                t_y[ny] = eignr2[outvec[y1]]+1;
                ny++;
            }
        }
    }
    else
    {
        nx = nvec1;
        ny = nvec2;
        for (y = 0; y < ny; y++)
        {
            t_y[y] = eignr2[y]+1;
        }
    }

    fprintf(stderr, "Calculating inner-product matrix of %dx%d eigenvectors\n",
            nx, nvec2);

    snew(mat, nx);
    snew(t_x, nx);
    max = 0;
    for (x1 = 0; x1 < nx; x1++)
    {
        snew(mat[x1], ny);
        if (bSelect)
        {
            x = outvec[x1];
        }
        else
        {
            x = x1;
        }
        t_x[x1] = eignr1[x]+1;
        fprintf(stderr, " %d", eignr1[x]+1);
        for (y1 = 0; y1 < ny; y1++)
        {
            inp = 0;
            if (bSelect)
            {
                while (outvec[y1] >= nvec2)
                {
                    y1++;
                }
                y = outvec[y1];
            }
            else
            {
                y = y1;
            }
            for (i = 0; i < natoms; i++)
            {
                inp += iprod(eigvec1[x][i], eigvec2[y][i]);
            }
            mat[x1][y1] = fabs(inp);
            if (mat[x1][y1] > max)
            {
                max = mat[x1][y1];
            }
        }
    }
    fprintf(stderr, "\n");
    rlo.r   = 1; rlo.g = 1; rlo.b = 1;
    rhi.r   = 0; rhi.g = 0; rhi.b = 0;
    nlevels = 41;
    out     = gmx_ffopen(matfile, "w");
    write_xpm(out, 0, "Eigenvector inner-products", "in.prod.", "run 1", "run 2",
              nx, ny, t_x, t_y, mat, 0.0, max, rlo, rhi, &nlevels);
    gmx_ffclose(out);
}

static void overlap(const char *outfile, int natoms,
                    rvec **eigvec1,
                    int nvec2, int *eignr2, rvec **eigvec2,
                    int noutvec, int *outvec,
                    const output_env_t oenv)
{
    FILE *out;
    int   i, v, vec, x;
    real  overlap, inp;

    fprintf(stderr, "Calculating overlap between eigenvectors of set 2 with eigenvectors\n");
    for (i = 0; i < noutvec; i++)
    {
        fprintf(stderr, "%d ", outvec[i]+1);
    }
    fprintf(stderr, "\n");

    out = xvgropen(outfile, "Subspace overlap",
                   "Eigenvectors of trajectory 2", "Overlap", oenv);
    fprintf(out, "@ subtitle \"using %d eigenvectors of trajectory 1\"\n",
            noutvec);
    overlap = 0;
    for (x = 0; x < nvec2; x++)
    {
        for (v = 0; v < noutvec; v++)
        {
            vec = outvec[v];
            inp = 0;
            for (i = 0; i < natoms; i++)
            {
                inp += iprod(eigvec1[vec][i], eigvec2[x][i]);
            }
            overlap += sqr(inp);
        }
        fprintf(out, "%5d  %5.3f\n", eignr2[x]+1, overlap/noutvec);
    }

    gmx_ffclose(out);
}

static void project(const char *trajfile, t_topology *top, int ePBC, matrix topbox,
                    const char *projfile, const char *twodplotfile,
                    const char *threedplotfile, const char *filterfile, int skip,
                    const char *extremefile, gmx_bool bExtrAll, real extreme,
                    int nextr, t_atoms *atoms, int natoms, atom_id *index,
                    gmx_bool bFit, rvec *xref, int nfit, atom_id *ifit, real *w_rls,
                    real *sqrtm, rvec *xav,
                    int *eignr, rvec **eigvec,
                    int noutvec, int *outvec, gmx_bool bSplit,
                    const output_env_t oenv)
{
    FILE        *xvgrout = NULL;
    int          nat, i, j, d, v, vec, nfr, nframes = 0, snew_size, frame;
    t_trxstatus *out = NULL;
    t_trxstatus *status;
    int          noutvec_extr, imin, imax;
    real        *pmin, *pmax;
    atom_id     *all_at;
    matrix       box;
    rvec        *xread, *x;
    real         t, inp, **inprod = NULL, min = 0, max = 0;
    char         str[STRLEN], str2[STRLEN], **ylabel, *c;
    real         fact;
    gmx_rmpbc_t  gpbc = NULL;

    snew(x, natoms);

    if (bExtrAll)
    {
        noutvec_extr = noutvec;
    }
    else
    {
        noutvec_extr = 1;
    }


    if (trajfile)
    {
        snew(inprod, noutvec+1);

        if (filterfile)
        {
            fprintf(stderr, "Writing a filtered trajectory to %s using eigenvectors\n",
                    filterfile);
            for (i = 0; i < noutvec; i++)
            {
                fprintf(stderr, "%d ", outvec[i]+1);
            }
            fprintf(stderr, "\n");
            out = open_trx(filterfile, "w");
        }
        snew_size = 0;
        nfr       = 0;
        nframes   = 0;
        nat       = read_first_x(oenv, &status, trajfile, &t, &xread, box);
        if (nat > atoms->nr)
        {
            gmx_fatal(FARGS, "the number of atoms in your trajectory (%d) is larger than the number of atoms in your structure file (%d)", nat, atoms->nr);
        }
        snew(all_at, nat);

        if (top)
        {
            gpbc = gmx_rmpbc_init(&top->idef, ePBC, nat);
        }

        for (i = 0; i < nat; i++)
        {
            all_at[i] = i;
        }
        do
        {
            if (nfr % skip == 0)
            {
                if (top)
                {
                    gmx_rmpbc(gpbc, nat, box, xread);
                }
                if (nframes >= snew_size)
                {
                    snew_size += 100;
                    for (i = 0; i < noutvec+1; i++)
                    {
                        srenew(inprod[i], snew_size);
                    }
                }
                inprod[noutvec][nframes] = t;
                /* calculate x: a fitted struture of the selected atoms */
                if (bFit)
                {
                    reset_x(nfit, ifit, nat, NULL, xread, w_rls);
                    do_fit(nat, w_rls, xref, xread);
                }
                for (i = 0; i < natoms; i++)
                {
                    copy_rvec(xread[index[i]], x[i]);
                }

                for (v = 0; v < noutvec; v++)
                {
                    vec = outvec[v];
                    /* calculate (mass-weighted) projection */
                    inp = 0;
                    for (i = 0; i < natoms; i++)
                    {
                        inp += (eigvec[vec][i][0]*(x[i][0]-xav[i][0])+
                                eigvec[vec][i][1]*(x[i][1]-xav[i][1])+
                                eigvec[vec][i][2]*(x[i][2]-xav[i][2]))*sqrtm[i];
                    }
                    inprod[v][nframes] = inp;
                }
                if (filterfile)
                {
                    for (i = 0; i < natoms; i++)
                    {
                        for (d = 0; d < DIM; d++)
                        {
                            /* misuse xread for output */
                            xread[index[i]][d] = xav[i][d];
                            for (v = 0; v < noutvec; v++)
                            {
                                xread[index[i]][d] +=
                                    inprod[v][nframes]*eigvec[outvec[v]][i][d]/sqrtm[i];
                            }
                        }
                    }
                    write_trx(out, natoms, index, atoms, 0, t, box, xread, NULL, NULL);
                }
                nframes++;
            }
            nfr++;
        }
        while (read_next_x(oenv, status, &t, xread, box));
        close_trx(status);
        sfree(x);
        if (filterfile)
        {
            close_trx(out);
        }
    }
    else
    {
        snew(xread, atoms->nr);
    }

    if (top)
    {
        gmx_rmpbc_done(gpbc);
    }


    if (projfile)
    {
        snew(ylabel, noutvec);
        for (v = 0; v < noutvec; v++)
        {
            sprintf(str, "vec %d", eignr[outvec[v]]+1);
            ylabel[v] = strdup(str);
        }
        sprintf(str, "projection on eigenvectors (%s)", proj_unit);
        write_xvgr_graphs(projfile, noutvec, 1, str, NULL, output_env_get_xvgr_tlabel(oenv),
                          (const char **)ylabel,
                          nframes, inprod[noutvec], inprod, NULL,
                          output_env_get_time_factor(oenv), FALSE, bSplit, oenv);
    }

    if (twodplotfile)
    {
        sprintf(str, "projection on eigenvector %d (%s)",
                eignr[outvec[0]]+1, proj_unit);
        sprintf(str2, "projection on eigenvector %d (%s)",
                eignr[outvec[noutvec-1]]+1, proj_unit);
        xvgrout = xvgropen(twodplotfile, "2D projection of trajectory", str, str2,
                           oenv);
        for (i = 0; i < nframes; i++)
        {
            if (bSplit && i > 0 && fabs(inprod[noutvec][i]) < 1e-5)
            {
                fprintf(xvgrout, "&\n");
            }
            fprintf(xvgrout, "%10.5f %10.5f\n", inprod[0][i], inprod[noutvec-1][i]);
        }
        gmx_ffclose(xvgrout);
    }

    if (threedplotfile)
    {
        t_atoms     atoms;
        rvec       *x;
        real       *b = NULL;
        matrix      box;
        char       *resnm, *atnm, pdbform[STRLEN];
        gmx_bool    bPDB, b4D;
        FILE       *out;

        if (noutvec < 3)
        {
            gmx_fatal(FARGS, "You have selected less than 3 eigenvectors");
        }

        /* initialize */
        bPDB = fn2ftp(threedplotfile) == efPDB;
        clear_mat(box);
        box[XX][XX] = box[YY][YY] = box[ZZ][ZZ] = 1;

        b4D = bPDB && (noutvec >= 4);
        if (b4D)
        {
            fprintf(stderr, "You have selected four or more eigenvectors:\n"
                    "fourth eigenvector will be plotted "
                    "in bfactor field of pdb file\n");
            sprintf(str, "4D proj. of traj. on eigenv. %d, %d, %d and %d",
                    eignr[outvec[0]]+1, eignr[outvec[1]]+1,
                    eignr[outvec[2]]+1, eignr[outvec[3]]+1);
        }
        else
        {
            sprintf(str, "3D proj. of traj. on eigenv. %d, %d and %d",
                    eignr[outvec[0]]+1, eignr[outvec[1]]+1, eignr[outvec[2]]+1);
        }
        init_t_atoms(&atoms, nframes, FALSE);
        snew(x, nframes);
        snew(b, nframes);
        atnm  = strdup("C");
        resnm = strdup("PRJ");

        if (nframes > 10000)
        {
            fact = 10000.0/nframes;
        }
        else
        {
            fact = 1.0;
        }

        for (i = 0; i < nframes; i++)
        {
            atoms.atomname[i]     = &atnm;
            atoms.atom[i].resind  = i;
            atoms.resinfo[i].name = &resnm;
            atoms.resinfo[i].nr   = ceil(i*fact);
            atoms.resinfo[i].ic   = ' ';
            x[i][XX]              = inprod[0][i];
            x[i][YY]              = inprod[1][i];
            x[i][ZZ]              = inprod[2][i];
            if (b4D)
            {
                b[i]  = inprod[3][i];
            }
        }
        if ( ( b4D || bSplit ) && bPDB)
        {
            strcpy(pdbform, get_pdbformat());
            strcat(pdbform, "%8.4f%8.4f\n");

            out = gmx_ffopen(threedplotfile, "w");
            fprintf(out, "HEADER    %s\n", str);
            if (b4D)
            {
                fprintf(out, "REMARK    %s\n", "fourth dimension plotted as B-factor");
            }
            j = 0;
            for (i = 0; i < atoms.nr; i++)
            {
                if (j > 0 && bSplit && fabs(inprod[noutvec][i]) < 1e-5)
                {
                    fprintf(out, "TER\n");
                    j = 0;
                }
                fprintf(out, pdbform, "ATOM", i+1, "C", "PRJ", ' ', j+1,
                        10*x[i][XX], 10*x[i][YY], 10*x[i][ZZ], 1.0, 10*b[i]);
                if (j > 0)
                {
                    fprintf(out, "CONECT%5d%5d\n", i, i+1);
                }
                j++;
            }
            fprintf(out, "TER\n");
            gmx_ffclose(out);
        }
        else
        {
            write_sto_conf(threedplotfile, str, &atoms, x, NULL, ePBC, box);
        }
        free_t_atoms(&atoms, FALSE);
    }

    if (extremefile)
    {
        snew(pmin, noutvec_extr);
        snew(pmax, noutvec_extr);
        if (extreme == 0)
        {
            fprintf(stderr, "%11s %17s %17s\n", "eigenvector", "Minimum", "Maximum");
            fprintf(stderr,
                    "%11s %10s %10s %10s %10s\n", "", "value", "frame", "value", "frame");
            imin = 0;
            imax = 0;
            for (v = 0; v < noutvec_extr; v++)
            {
                for (i = 0; i < nframes; i++)
                {
                    if (inprod[v][i] < inprod[v][imin])
                    {
                        imin = i;
                    }
                    if (inprod[v][i] > inprod[v][imax])
                    {
                        imax = i;
                    }
                }
                pmin[v] = inprod[v][imin];
                pmax[v] = inprod[v][imax];
                fprintf(stderr, "%7d     %10.6f %10d %10.6f %10d\n",
                        eignr[outvec[v]]+1,
                        pmin[v], imin, pmax[v], imax);
            }
        }
        else
        {
            pmin[0] = -extreme;
            pmax[0] =  extreme;
        }
        /* build format string for filename: */
        strcpy(str, extremefile);  /* copy filename */
        c = strrchr(str, '.');     /* find where extention begins */
        strcpy(str2, c);           /* get extention */
        sprintf(c, "%%d%s", str2); /* append '%s' and extention to filename */
        for (v = 0; v < noutvec_extr; v++)
        {
            /* make filename using format string */
            if (noutvec_extr == 1)
            {
                strcpy(str2, extremefile);
            }
            else
            {
                sprintf(str2, str, eignr[outvec[v]]+1);
            }
            fprintf(stderr, "Writing %d frames along eigenvector %d to %s\n",
                    nextr, outvec[v]+1, str2);
            out = open_trx(str2, "w");
            for (frame = 0; frame < nextr; frame++)
            {
                if ((extreme == 0) && (nextr <= 3))
                {
                    for (i = 0; i < natoms; i++)
                    {
                        atoms->resinfo[atoms->atom[index[i]].resind].chainid = 'A' + frame;
                    }
                }
                for (i = 0; i < natoms; i++)
                {
                    for (d = 0; d < DIM; d++)
                    {
                        xread[index[i]][d] =
                            (xav[i][d] + (pmin[v]*(nextr-frame-1)+pmax[v]*frame)/(nextr-1)
                             *eigvec[outvec[v]][i][d]/sqrtm[i]);
                    }
                }
                write_trx(out, natoms, index, atoms, 0, frame, topbox, xread, NULL, NULL);
            }
            close_trx(out);
        }
        sfree(pmin);
        sfree(pmax);
    }
    fprintf(stderr, "\n");
}

static void components(const char *outfile, int natoms,
                       int *eignr, rvec **eigvec,
                       int noutvec, int *outvec,
                       const output_env_t oenv)
{
    int   g, s, v, i;
    real *x, ***y;
    char  str[STRLEN], **ylabel;

    fprintf(stderr, "Writing eigenvector components to %s\n", outfile);

    snew(ylabel, noutvec);
    snew(y, noutvec);
    snew(x, natoms);
    for (i = 0; i < natoms; i++)
    {
        x[i] = i+1;
    }
    for (g = 0; g < noutvec; g++)
    {
        v = outvec[g];
        sprintf(str, "vec %d", eignr[v]+1);
        ylabel[g] = strdup(str);
        snew(y[g], 4);
        for (s = 0; s < 4; s++)
        {
            snew(y[g][s], natoms);
        }
        for (i = 0; i < natoms; i++)
        {
            y[g][0][i] = norm(eigvec[v][i]);
            for (s = 0; s < 3; s++)
            {
                y[g][s+1][i] = eigvec[v][i][s];
            }
        }
    }
    write_xvgr_graphs(outfile, noutvec, 4, "Eigenvector components",
                      "black: total, red: x, green: y, blue: z",
                      "Atom number", (const char **)ylabel,
                      natoms, x, NULL, y, 1, FALSE, FALSE, oenv);
    fprintf(stderr, "\n");
}

static void rmsf(const char *outfile, int natoms, real *sqrtm,
                 int *eignr, rvec **eigvec,
                 int noutvec, int *outvec,
                 real *eigval, int neig,
                 const output_env_t oenv)
{
    int    nrow, g, v, i;
    real  *x, **y;
    char   str[STRLEN], **ylabel;

    for (i = 0; i < neig; i++)
    {
        if (eigval[i] < 0)
        {
            eigval[i] = 0;
        }
    }

    fprintf(stderr, "Writing rmsf to %s\n", outfile);

    snew(ylabel, noutvec);
    snew(y, noutvec);
    snew(x, natoms);
    for (i = 0; i < natoms; i++)
    {
        x[i] = i+1;
    }
    for (g = 0; g < noutvec; g++)
    {
        v = outvec[g];
        if (eignr[v] >= neig)
        {
            gmx_fatal(FARGS, "Selected vector %d is larger than the number of eigenvalues (%d)", eignr[v]+1, neig);
        }
        sprintf(str, "vec %d", eignr[v]+1);
        ylabel[g] = strdup(str);
        snew(y[g], natoms);
        for (i = 0; i < natoms; i++)
        {
            y[g][i] = sqrt(eigval[eignr[v]]*norm2(eigvec[v][i]))/sqrtm[i];
        }
    }
    write_xvgr_graphs(outfile, noutvec, 1, "RMS fluctuation (nm) ", NULL,
                      "Atom number", (const char **)ylabel,
                      natoms, x, y, NULL, 1, TRUE, FALSE, oenv);
    fprintf(stderr, "\n");
}

int gmx_anaeig(int argc, char *argv[])
{
    static const char *desc[] = {
        "[THISMODULE] analyzes eigenvectors. The eigenvectors can be of a",
        "covariance matrix ([gmx-covar]) or of a Normal Modes analysis",
        "([gmx-nmeig]).[PAR]",

        "When a trajectory is projected on eigenvectors, all structures are",
        "fitted to the structure in the eigenvector file, if present, otherwise",
        "to the structure in the structure file. When no run input file is",
        "supplied, periodicity will not be taken into account. Most analyses",
        "are performed on eigenvectors [TT]-first[tt] to [TT]-last[tt], but when",
        "[TT]-first[tt] is set to -1 you will be prompted for a selection.[PAR]",

        "[TT]-comp[tt]: plot the vector components per atom of eigenvectors",
        "[TT]-first[tt] to [TT]-last[tt].[PAR]",

        "[TT]-rmsf[tt]: plot the RMS fluctuation per atom of eigenvectors",
        "[TT]-first[tt] to [TT]-last[tt] (requires [TT]-eig[tt]).[PAR]",

        "[TT]-proj[tt]: calculate projections of a trajectory on eigenvectors",
        "[TT]-first[tt] to [TT]-last[tt].",
        "The projections of a trajectory on the eigenvectors of its",
        "covariance matrix are called principal components (pc's).",
        "It is often useful to check the cosine content of the pc's,",
        "since the pc's of random diffusion are cosines with the number",
        "of periods equal to half the pc index.",
        "The cosine content of the pc's can be calculated with the program",
        "[gmx-analyze].[PAR]",

        "[TT]-2d[tt]: calculate a 2d projection of a trajectory on eigenvectors",
        "[TT]-first[tt] and [TT]-last[tt].[PAR]",

        "[TT]-3d[tt]: calculate a 3d projection of a trajectory on the first",
        "three selected eigenvectors.[PAR]",

        "[TT]-filt[tt]: filter the trajectory to show only the motion along",
        "eigenvectors [TT]-first[tt] to [TT]-last[tt].[PAR]",

        "[TT]-extr[tt]: calculate the two extreme projections along a trajectory",
        "on the average structure and interpolate [TT]-nframes[tt] frames",
        "between them, or set your own extremes with [TT]-max[tt]. The",
        "eigenvector [TT]-first[tt] will be written unless [TT]-first[tt] and",
        "[TT]-last[tt] have been set explicitly, in which case all eigenvectors",
        "will be written to separate files. Chain identifiers will be added",
        "when writing a [TT].pdb[tt] file with two or three structures (you",
        "can use [TT]rasmol -nmrpdb[tt] to view such a [TT].pdb[tt] file).[PAR]",

        "  Overlap calculations between covariance analysis:[BR]",
        "  [BB]Note:[bb] the analysis should use the same fitting structure[PAR]",

        "[TT]-over[tt]: calculate the subspace overlap of the eigenvectors in",
        "file [TT]-v2[tt] with eigenvectors [TT]-first[tt] to [TT]-last[tt]",
        "in file [TT]-v[tt].[PAR]",

        "[TT]-inpr[tt]: calculate a matrix of inner-products between",
        "eigenvectors in files [TT]-v[tt] and [TT]-v2[tt]. All eigenvectors",
        "of both files will be used unless [TT]-first[tt] and [TT]-last[tt]",
        "have been set explicitly.[PAR]",

        "When [TT]-v[tt], [TT]-eig[tt], [TT]-v2[tt] and [TT]-eig2[tt] are given,",
        "a single number for the overlap between the covariance matrices is",
        "generated. The formulas are:[BR]",
        "        difference = sqrt(tr((sqrt(M1) - sqrt(M2))^2))[BR]",
        "normalized overlap = 1 - difference/sqrt(tr(M1) + tr(M2))[BR]",
        "     shape overlap = 1 - sqrt(tr((sqrt(M1/tr(M1)) - sqrt(M2/tr(M2)))^2))[BR]",
        "where M1 and M2 are the two covariance matrices and tr is the trace",
        "of a matrix. The numbers are proportional to the overlap of the square",
        "root of the fluctuations. The normalized overlap is the most useful",
        "number, it is 1 for identical matrices and 0 when the sampled",
        "subspaces are orthogonal.[PAR]",
        "When the [TT]-entropy[tt] flag is given an entropy estimate will be",
        "computed based on the Quasiharmonic approach and based on",
        "Schlitter's formula."
    };
    static int         first  = 1, last = -1, skip = 1, nextr = 2, nskip = 6;
    static real        max    = 0.0, temp = 298.15;
    static gmx_bool    bSplit = FALSE, bEntropy = FALSE;
    t_pargs            pa[]   = {
        { "-first", FALSE, etINT, {&first},
          "First eigenvector for analysis (-1 is select)" },
        { "-last",  FALSE, etINT, {&last},
          "Last eigenvector for analysis (-1 is till the last)" },
        { "-skip",  FALSE, etINT, {&skip},
          "Only analyse every nr-th frame" },
        { "-max",  FALSE, etREAL, {&max},
          "Maximum for projection of the eigenvector on the average structure, "
          "max=0 gives the extremes" },
        { "-nframes",  FALSE, etINT, {&nextr},
          "Number of frames for the extremes output" },
        { "-split",   FALSE, etBOOL, {&bSplit},
          "Split eigenvector projections where time is zero" },
        { "-entropy", FALSE, etBOOL, {&bEntropy},
          "Compute entropy according to the Quasiharmonic formula or Schlitter's method." },
        { "-temp",    FALSE, etREAL, {&temp},
          "Temperature for entropy calculations" },
        { "-nevskip", FALSE, etINT, {&nskip},
          "Number of eigenvalues to skip when computing the entropy due to the quasi harmonic approximation. When you do a rotational and/or translational fit prior to the covariance analysis, you get 3 or 6 eigenvalues that are very close to zero, and which should not be taken into account when computing the entropy." }
    };
#define NPA asize(pa)

    FILE          *out;
    int            status, trjout;
    t_topology     top;
    int            ePBC  = -1;
    t_atoms       *atoms = NULL;
    rvec          *xtop, *xref1, *xref2, *xrefp = NULL;
    gmx_bool       bDMR1, bDMA1, bDMR2, bDMA2;
    int            nvec1, nvec2, *eignr1 = NULL, *eignr2 = NULL;
    rvec          *x, *xread, *xav1, *xav2, **eigvec1 = NULL, **eigvec2 = NULL;
    matrix         topbox;
    real           xid, totmass, *sqrtm, *w_rls, t, lambda;
    int            natoms, step;
    char          *grpname;
    const char    *indexfile;
    char           title[STRLEN];
    int            i, j, d;
    int            nout, *iout, noutvec, *outvec, nfit;
    atom_id       *index, *ifit;
    const char    *VecFile, *Vec2File, *topfile;
    const char    *EigFile, *Eig2File;
    const char    *CompFile, *RmsfFile, *ProjOnVecFile;
    const char    *TwoDPlotFile, *ThreeDPlotFile;
    const char    *FilterFile, *ExtremeFile;
    const char    *OverlapFile, *InpMatFile;
    gmx_bool       bFit1, bFit2, bM, bIndex, bTPS, bTop, bVec2, bProj;
    gmx_bool       bFirstToLast, bFirstLastSet, bTraj, bCompare, bPDB3D;
    real          *eigval1 = NULL, *eigval2 = NULL;
    int            neig1, neig2;
    double       **xvgdata;
    output_env_t   oenv;
    gmx_rmpbc_t    gpbc;

    t_filenm       fnm[] = {
        { efTRN, "-v",    "eigenvec",    ffREAD  },
        { efTRN, "-v2",   "eigenvec2",   ffOPTRD },
        { efTRX, "-f",    NULL,          ffOPTRD },
        { efTPS, NULL,    NULL,          ffOPTRD },
        { efNDX, NULL,    NULL,          ffOPTRD },
        { efXVG, "-eig", "eigenval",     ffOPTRD },
        { efXVG, "-eig2", "eigenval2",   ffOPTRD },
        { efXVG, "-comp", "eigcomp",     ffOPTWR },
        { efXVG, "-rmsf", "eigrmsf",     ffOPTWR },
        { efXVG, "-proj", "proj",        ffOPTWR },
        { efXVG, "-2d",   "2dproj",      ffOPTWR },
        { efSTO, "-3d",   "3dproj.pdb",  ffOPTWR },
        { efTRX, "-filt", "filtered",    ffOPTWR },
        { efTRX, "-extr", "extreme.pdb", ffOPTWR },
        { efXVG, "-over", "overlap",     ffOPTWR },
        { efXPM, "-inpr", "inprod",      ffOPTWR }
    };
#define NFILE asize(fnm)

    if (!parse_common_args(&argc, argv,
                           PCA_CAN_TIME | PCA_TIME_UNIT | PCA_CAN_VIEW | PCA_BE_NICE,
                           NFILE, fnm, NPA, pa, asize(desc), desc, 0, NULL, &oenv))
    {
        return 0;
    }

    indexfile = ftp2fn_null(efNDX, NFILE, fnm);

    VecFile         = opt2fn("-v", NFILE, fnm);
    Vec2File        = opt2fn_null("-v2", NFILE, fnm);
    topfile         = ftp2fn(efTPS, NFILE, fnm);
    EigFile         = opt2fn_null("-eig", NFILE, fnm);
    Eig2File        = opt2fn_null("-eig2", NFILE, fnm);
    CompFile        = opt2fn_null("-comp", NFILE, fnm);
    RmsfFile        = opt2fn_null("-rmsf", NFILE, fnm);
    ProjOnVecFile   = opt2fn_null("-proj", NFILE, fnm);
    TwoDPlotFile    = opt2fn_null("-2d", NFILE, fnm);
    ThreeDPlotFile  = opt2fn_null("-3d", NFILE, fnm);
    FilterFile      = opt2fn_null("-filt", NFILE, fnm);
    ExtremeFile     = opt2fn_null("-extr", NFILE, fnm);
    OverlapFile     = opt2fn_null("-over", NFILE, fnm);
    InpMatFile      = ftp2fn_null(efXPM, NFILE, fnm);

    bTop   = fn2bTPX(topfile);
    bProj  = ProjOnVecFile || TwoDPlotFile || ThreeDPlotFile
        || FilterFile || ExtremeFile;
    bFirstLastSet  =
        opt2parg_bSet("-first", NPA, pa) && opt2parg_bSet("-last", NPA, pa);
    bFirstToLast = CompFile || RmsfFile || ProjOnVecFile || FilterFile ||
        OverlapFile || ((ExtremeFile || InpMatFile) && bFirstLastSet);
    bVec2  = Vec2File || OverlapFile || InpMatFile;
    bM     = RmsfFile || bProj;
    bTraj  = ProjOnVecFile || FilterFile || (ExtremeFile && (max == 0))
        || TwoDPlotFile || ThreeDPlotFile;
    bIndex = bM || bProj;
    bTPS   = ftp2bSet(efTPS, NFILE, fnm) || bM || bTraj ||
        FilterFile  || (bIndex && indexfile);
    bCompare = Vec2File || Eig2File;
    bPDB3D   = fn2ftp(ThreeDPlotFile) == efPDB;

    read_eigenvectors(VecFile, &natoms, &bFit1,
                      &xref1, &bDMR1, &xav1, &bDMA1,
                      &nvec1, &eignr1, &eigvec1, &eigval1);
    neig1 = DIM*natoms;

    /* Overwrite eigenvalues from separate files if the user provides them */
    if (EigFile != NULL)
    {
        int neig_tmp = read_xvg(EigFile, &xvgdata, &i);
        if (neig_tmp != neig1)
        {
            fprintf(stderr, "Warning: number of eigenvalues in xvg file (%d) does not mtch trr file (%d)\n", neig1, natoms);
        }
        neig1 = neig_tmp;
        srenew(eigval1, neig1);
        for (j = 0; j < neig1; j++)
        {
            real tmp = eigval1[j];
            eigval1[j] = xvgdata[1][j];
            if (debug && (eigval1[j] != tmp))
            {
                fprintf(debug, "Replacing eigenvalue %d. From trr: %10g, from xvg: %10g\n",
                        j, tmp, eigval1[j]);
            }
        }
        for (j = 0; j < i; j++)
        {
            sfree(xvgdata[j]);
        }
        sfree(xvgdata);
        fprintf(stderr, "Read %d eigenvalues from %s\n", neig1, EigFile);
    }

    if (bEntropy)
    {
        if (bDMA1)
        {
            gmx_fatal(FARGS, "Can not calculate entropies from mass-weighted eigenvalues, redo the analysis without mass-weighting");
        }
        calc_entropy_qh(stdout, neig1, eigval1, temp, nskip);
        calc_entropy_schlitter(stdout, neig1, nskip, eigval1, temp);
    }

    if (bVec2)
    {
        if (!Vec2File)
        {
            gmx_fatal(FARGS, "Need a second eigenvector file to do this analysis.");
        }
        read_eigenvectors(Vec2File, &neig2, &bFit2,
                          &xref2, &bDMR2, &xav2, &bDMA2, &nvec2, &eignr2, &eigvec2, &eigval2);

        neig2 = DIM*neig2;
        if (neig2 != neig1)
        {
            gmx_fatal(FARGS, "Dimensions in the eigenvector files don't match");
        }
    }

    if (Eig2File != NULL)
    {
        neig2 = read_xvg(Eig2File, &xvgdata, &i);
        srenew(eigval2, neig2);
        for (j = 0; j < neig2; j++)
        {
            eigval2[j] = xvgdata[1][j];
        }
        for (j = 0; j < i; j++)
        {
            sfree(xvgdata[j]);
        }
        sfree(xvgdata);
        fprintf(stderr, "Read %d eigenvalues from %s\n", neig2, Eig2File);
    }


    if ((!bFit1 || xref1) && !bDMR1 && !bDMA1)
    {
        bM = FALSE;
    }
    if ((xref1 == NULL) && (bM || bTraj))
    {
        bTPS = TRUE;
    }

    xtop  = NULL;
    nfit  = 0;
    ifit  = NULL;
    w_rls = NULL;

    if (!bTPS)
    {
        bTop = FALSE;
    }
    else
    {
        bTop = read_tps_conf(ftp2fn(efTPS, NFILE, fnm),
                             title, &top, &ePBC, &xtop, NULL, topbox, bM);
        atoms = &top.atoms;
        gpbc  = gmx_rmpbc_init(&top.idef, ePBC, atoms->nr);
        gmx_rmpbc(gpbc, atoms->nr, topbox, xtop);
        /* Fitting is only required for the projection */
        if (bProj && bFit1)
        {
            if (xref1 == NULL)
            {
                printf("\nNote: the structure in %s should be the same\n"
                       "      as the one used for the fit in g_covar\n", topfile);
            }
            printf("\nSelect the index group that was used for the least squares fit in g_covar\n");
            get_index(atoms, indexfile, 1, &nfit, &ifit, &grpname);

            snew(w_rls, atoms->nr);
            for (i = 0; (i < nfit); i++)
            {
                if (bDMR1)
                {
                    w_rls[ifit[i]] = atoms->atom[ifit[i]].m;
                }
                else
                {
                    w_rls[ifit[i]] = 1.0;
                }
            }

            snew(xrefp, atoms->nr);
            if (xref1 != NULL)
            {
                /* Safety check between selected fit-group and reference structure read from the eigenvector file */
                if (natoms != nfit)
                {
                    gmx_fatal(FARGS, "you selected a group with %d elements instead of %d, your selection does not fit the reference structure in the eigenvector file.", nfit, natoms);
                }
                for (i = 0; (i < nfit); i++)
                {
                    copy_rvec(xref1[i], xrefp[ifit[i]]);
                }
            }
            else
            {
                /* The top coordinates are the fitting reference */
                for (i = 0; (i < nfit); i++)
                {
                    copy_rvec(xtop[ifit[i]], xrefp[ifit[i]]);
                }
                reset_x(nfit, ifit, atoms->nr, NULL, xrefp, w_rls);
            }
        }
        gmx_rmpbc_done(gpbc);
    }

    if (bIndex)
    {
        printf("\nSelect an index group of %d elements that corresponds to the eigenvectors\n", natoms);
        get_index(atoms, indexfile, 1, &i, &index, &grpname);
        if (i != natoms)
        {
            gmx_fatal(FARGS, "you selected a group with %d elements instead of %d", i, natoms);
        }
        printf("\n");
    }

    snew(sqrtm, natoms);
    if (bM && bDMA1)
    {
        proj_unit = "u\\S1/2\\Nnm";
        for (i = 0; (i < natoms); i++)
        {
            sqrtm[i] = sqrt(atoms->atom[index[i]].m);
        }
    }
    else
    {
        proj_unit = "nm";
        for (i = 0; (i < natoms); i++)
        {
            sqrtm[i] = 1.0;
        }
    }

    if (bVec2)
    {
        t       = 0;
        totmass = 0;
        for (i = 0; (i < natoms); i++)
        {
            for (d = 0; (d < DIM); d++)
            {
                t       += sqr((xav1[i][d]-xav2[i][d])*sqrtm[i]);
                totmass += sqr(sqrtm[i]);
            }
        }
        fprintf(stdout, "RMSD (without fit) between the two average structures:"
                " %.3f (nm)\n\n", sqrt(t/totmass));
    }

    if (last == -1)
    {
        last = natoms*DIM;
    }
    if (first > -1)
    {
        if (bFirstToLast)
        {
            /* make an index from first to last */
            nout = last-first+1;
            snew(iout, nout);
            for (i = 0; i < nout; i++)
            {
                iout[i] = first-1+i;
            }
        }
        else if (ThreeDPlotFile)
        {
            /* make an index of first+(0,1,2) and last */
            nout = bPDB3D ? 4 : 3;
            nout = min(last-first+1, nout);
            snew(iout, nout);
            iout[0] = first-1;
            iout[1] = first;
            if (nout > 3)
            {
                iout[2] = first+1;
            }
            iout[nout-1] = last-1;
        }
        else
        {
            /* make an index of first and last */
            nout = 2;
            snew(iout, nout);
            iout[0] = first-1;
            iout[1] = last-1;
        }
    }
    else
    {
        printf("Select eigenvectors for output, end your selection with 0\n");
        nout = -1;
        iout = NULL;

        do
        {
            nout++;
            srenew(iout, nout+1);
            if (1 != scanf("%d", &iout[nout]))
            {
                gmx_fatal(FARGS, "Error reading user input");
            }
            iout[nout]--;
        }
        while (iout[nout] >= 0);

        printf("\n");
    }
    /* make an index of the eigenvectors which are present */
    snew(outvec, nout);
    noutvec = 0;
    for (i = 0; i < nout; i++)
    {
        j = 0;
        while ((j < nvec1) && (eignr1[j] != iout[i]))
        {
            j++;
        }
        if ((j < nvec1) && (eignr1[j] == iout[i]))
        {
            outvec[noutvec] = j;
            noutvec++;
        }
    }
    fprintf(stderr, "%d eigenvectors selected for output", noutvec);
    if (noutvec <= 100)
    {
        fprintf(stderr, ":");
        for (j = 0; j < noutvec; j++)
        {
            fprintf(stderr, " %d", eignr1[outvec[j]]+1);
        }
    }
    fprintf(stderr, "\n");

    if (CompFile)
    {
        components(CompFile, natoms, eignr1, eigvec1, noutvec, outvec, oenv);
    }

    if (RmsfFile)
    {
        rmsf(RmsfFile, natoms, sqrtm, eignr1, eigvec1, noutvec, outvec, eigval1,
             neig1, oenv);
    }

    if (bProj)
    {
        project(bTraj ? opt2fn("-f", NFILE, fnm) : NULL,
                bTop ? &top : NULL, ePBC, topbox,
                ProjOnVecFile, TwoDPlotFile, ThreeDPlotFile, FilterFile, skip,
                ExtremeFile, bFirstLastSet, max, nextr, atoms, natoms, index,
                bFit1, xrefp, nfit, ifit, w_rls,
                sqrtm, xav1, eignr1, eigvec1, noutvec, outvec, bSplit,
                oenv);
    }

    if (OverlapFile)
    {
        overlap(OverlapFile, natoms,
                eigvec1, nvec2, eignr2, eigvec2, noutvec, outvec, oenv);
    }

    if (InpMatFile)
    {
        inprod_matrix(InpMatFile, natoms,
                      nvec1, eignr1, eigvec1, nvec2, eignr2, eigvec2,
                      bFirstLastSet, noutvec, outvec);
    }

    if (bCompare)
    {
        compare(natoms, nvec1, eigvec1, nvec2, eigvec2, eigval1, neig1, eigval2, neig2);
    }


    if (!CompFile && !bProj && !OverlapFile && !InpMatFile &&
        !bCompare && !bEntropy)
    {
        fprintf(stderr, "\nIf you want some output,"
                " set one (or two or ...) of the output file options\n");
    }


    view_all(oenv, NFILE, fnm);

    return 0;
}