source: tags/arb-6.0/GDE/CLUSTALW/calcprf2.c

#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <string.h>
#include "clustalw.h"

/*
 *   Prototypes
 */
/*
 *   Global variables
 */

extern sint max_aa,gap_pos1,gap_pos2;

void calc_prf2(sint **profile, char **alignment,
  sint *seq_weight,sint prf_length, sint first_seq, sint last_seq)
{

  sint sum1, sum2;      
  sint i, d;
  sint   r;


  for (r=0; r<prf_length; r++)
    {
/*
   calculate sum2 = number of residues found in this column
*/
       sum2 = 0;
       for (i=first_seq; i<last_seq; i++)
         {
            sum2 += seq_weight[i];
         }
/*
   only include matrix comparison scores for those residue types found in this
   column
*/
       if (sum2 == 0)
         {
           for (d=0; d<=max_aa; d++)
             profile[r+1][d] = 0;
           profile[r+1][gap_pos1] = 0;
           profile[r+1][gap_pos2] = 0;
         }
       else
         {
           for (d=0; d<=max_aa; d++)
             {
                sum1 = 0;
                for (i=first_seq; i<last_seq; i++)
                 {
                  if (d == alignment[i][r]) sum1 += seq_weight[i];
                 }
                profile[r+1][d] = (sint)(10 * (float)sum1 / (float)sum2);
             }
           sum1 = 0;
           for (i=first_seq; i<last_seq; i++)
            {
             if (gap_pos1 == alignment[i][r]) sum1 += seq_weight[i];
            }
           profile[r+1][gap_pos1] = (sint)(10 * (float)sum1 / (float)sum2);
           sum1 = 0;
           for (i=first_seq; i<last_seq; i++)
            {
             if (gap_pos2 == alignment[i][r]) sum1 += seq_weight[i];
            }
           profile[r+1][gap_pos2] = (sint)(10 * (float)sum1 / (float)sum2);
         }
    }
}