source: tags/arb-7.0.1/GDE/CLUSTAL/gcgcheck.c

Last change on this file was 13845, checked in by westram, 9 years ago
  • remove executable flag
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 299 bytes
Line 
1#include <ctype.h>   /* because of toupper() */
2
3int SeqGCGCheckSum(char *, int);
4
5
6int SeqGCGCheckSum(char *seq, int len)
7{
8        int  i;
9        long check;
10       
11        for( i=0, check=0; i< len; i++,seq++)
12                check += ((i % 57)+1) * toupper(*seq);
13
14        return(check % 10000);
15}
16
Note: See TracBrowser for help on using the repository browser.