int main(int argc, char *argv[]) { int i; int index; int format = 0; int judge_flag = 0; char command_at[2 * MAXCHAR]; char command_bt[2 * MAXCHAR]; double sum = 0.0; double coordx, coordy, coordz; if (strcmp(COLORTEXT, "YES") == 0 || strcmp(COLORTEXT, "yes") == 0) { if (argc == 2 && (strcmp(argv[1], "-h") == 0 || strcmp(argv[1], "-H") == 0)) { printf ("[31mUsage: match -i[0m input file name in pdb format \n" "[31m -r[0m ref file name in pdb format\n" "[31m -o[0m output file name in pdb format\n" "[31m -m[0m matrix file\n" "[31m -t[0m type:\n" "[31m [0m 1: lsfit, need -i, -r, -o, -m;\n" "[31m [0m 2: translation, need -i, -o, -m;\n"); exit(1); } if (argc != 9 && argc != 11) { printf ("[31mUsage: match -i[0m input file name in pdb format \n" "[31m -r[0m ref file name in pdb format\n" "[31m -o[0m output file name in pdb format\n" "[31m -m[0m matrix file\n" "[31m -t[0m type:\n" "[31m [0m 1: lsfit, need -i, -r, -o, -m;\n" "[31m [0m 2: translation, need -i, -o, -m;\n"); exit(1); } } else { if (argc == 2 && (strcmp(argv[1], "-h") == 0 || strcmp(argv[1], "-H") == 0)) { printf("Usage: match -i input file name in pdb format \n" " -r ref file name in pdb format\n" " -o output file name in pdb format\n" " -m matrix file \n" " -t type \n" " 1: lsfit, need -i, -r, -o, -m;\n" " 2: translation, need -i, -o, -m;\n"); exit(1); } if (argc != 9 && argc != 11) { printf("Usage: match -i input file name in pdb format \n" " -r ref file name in pdb format\n" " -o output file name in pdb format\n" " -m matrix file \n" " -t type \n" " 1: lsfit, need -i, -r, -o, -m;\n" " 2: translation, need -i, -o, -m;\n"); exit(1); } } for (i = 1; i < argc; i += 2) { if (strcmp(argv[i], "-i") == 0) { strcpy(ifilename, argv[i + 1]); numarg++; } if (strcmp(argv[i], "-o") == 0) { strcpy(ofilename, argv[i + 1]); numarg++; } if (strcmp(argv[i], "-r") == 0) { strcpy(rfilename, argv[i + 1]); numarg++; } if (strcmp(argv[i], "-m") == 0) { strcpy(mfilename, argv[i + 1]); numarg++; } if (strcmp(argv[i], "-t") == 0) jobtype = atoi(argv[i+1]); } if(jobtype == 1 && numarg != 4) { printf("The number of arguments is wrong, exit\n"); exit(1); } if(jobtype == 2 && numarg != 3) { printf("The number of arguments is wrong, exit\n"); exit(1); } if(jobtype == 1) { rpdb(ifilename, &atomnum1, atom1); rpdb(rfilename, &atomnum2, atom2); if(atomnum1 != atomnum2 || atomnum1 <=0) { printf("\nThe numumber of atoms in input file (%d) is different from the number of atoms in ref file (%d)", atomnum1, atomnum2); exit(1); } atomnum = atomnum1; for(i=0;i<atomnum;i++) { sum+=(atom1[i].x-atom2[i].x) * (atom1[i].x-atom2[i].x); sum+=(atom1[i].y-atom2[i].y) * (atom1[i].y-atom2[i].y); sum+=(atom1[i].z-atom2[i].z) * (atom1[i].z-atom2[i].z); } rms = sqrt(sum/atomnum); printf("\nThe rmsd before least-square fitting is %9.4lf", rms); if ((fpout = fopen(mfilename, "w")) == NULL) { fprintf(stdout, "Cannot open file %s to write in main(), exit\n", mfilename); exit(1); } printf("\nwjm %5d\n", atomnum); for(i=0;i<atomnum;i++) printf("ATOM %5d %5s %9.2lf %9.2lf %9.2lf\n", i+1, atom1[i].name, atom1[i].x, atom1[i].y, atom1[i].z); for(i=0;i<atomnum;i++) printf("ATOM %5d %5s %9.2lf %9.2lf %9.2lf\n", i+1, atom2[i].name, atom2[i].x, atom2[i].y, atom2[i].z); for(i=0;i<atomnum;i++) { sum = (atom1[i].x-atom2[i].x) * (atom1[i].x-atom2[i].x); sum+=(atom1[i].y-atom2[i].y) * (atom1[i].y-atom2[i].y); sum+=(atom1[i].z-atom2[i].z) * (atom1[i].z-atom2[i].z); sum = sqrt(sum); printf("ATOM %5d %5s %9.2lf\n", i+1, atom2[i].name, sum); } rms = lsfit(atom2, atom1, atom3, atomnum) ; printf("\nThe rmsd after least-square fitting is %9.4lf\n", rms); wpdb(ifilename, ofilename, atom3); } if(jobtype == 2) { rpdb(ifilename, &atomnum1, atom1); rmatrix(mfilename); for(i=0;i<atomnum1;i++) { coordx = atom1[i].x; coordy = atom1[i].y; coordz = atom1[i].z; atom1[i].x = CG0[0] + ROT[0][0] * (coordx - CG1[0]) + ROT[0][1] * (coordy - CG1[1]) + ROT[0][2] * (coordz - CG1[2]) ; atom1[i].y = CG0[1] + ROT[1][0] * (coordx - CG1[0]) + ROT[1][1] * (coordy - CG1[1]) + ROT[1][2] * (coordz - CG1[2]) ; atom1[i].z = CG0[2] + ROT[2][0] * (coordx - CG1[0]) + ROT[2][1] * (coordy - CG1[1]) + ROT[2][2] * (coordz - CG1[2]) ; } wpdb(ifilename, ofilename, atom1); } return 0; }
int main(int argc, char *argv[]) { int i,j,k; int overflow_flag = 0; int count; int atid1, atid2; int resid1, resid2; int oldresid; int suc; double sum; double x,y,z; char line[MAXCHAR]; char defstr[MAXCHAR]; char atomname[MAXCHAR]; amberhome = (char *) getenv("AMBERHOME"); if( amberhome == NULL ){ fprintf( stdout, "AMBERHOME is not set!\n" ); exit(1); } if (strcmp(COLORTEXT, "YES") == 0 || strcmp(COLORTEXT, "yes") == 0) { if (argc == 2 && (strcmp(argv[1], "-h") == 0 || strcmp(argv[1], "-H") == 0)) { printf ("[31mUsage: match -i [0m input file name \n" "[31m -r [0m reference file name \n" "[31m -f [0m format: 1-pdb (the default), 2-ac, 3-mol2, 4-sdf, 5-crd/rst\n" "[31m -o [0m output file name\n" "[31m -l [0m run log file name, default is \"match.log\"\n" "[31m -s [0m selection mode\n" "[34m 0:[0m use all atoms (the default)\n" "[34m 1:[0m specify atom names\n" "[34m 2:[0m use atom defination file\n" "[34m 3:[0m use residue defination file - original residue IDs\n" "[34m 4:[0m use residue defination file - renumbered residue IDs\n" "[31m -ds [0mdefinition string if selection modes of '1' or '3' or '4'\n" "[31m [0me.g. 'C,N,O,CA', or 'HET' which stands for heavy atoms for '-ds 1')\n" "[31m -df [0mdefinition file if selection mode of '2' or '3' or '4'\n" "[31m [0mrecords take a form of 'ATOM atom_id_input atom_id_reference'\n" "[31m [0mor 'RES res_id_input res_id_reference'\n" "[31m -n [0m number of atoms participating ls-fitting,\n" "[31m [0m default is -1, which implies to use all the selected atoms\n" "[31m -m [0m matrix file, default is \"match.matrix\"\n" "[31m -t [0m job type:\n" "[35m 0:[0m calculate rms only, need -i and -r\n" "[35m 1:[0m lsfit, need -i, -r and -o the default\n" "[35m 2:[0m translation/rotation, need -i, -o and -m\n"); exit(0); } if (argc != 23 && argc != 21 && argc != 19 && argc != 17 && argc != 15 && argc != 13 && argc != 11 && argc !=9 && argc !=7 && argc !=5) { printf ("[31mUsage: match -i [0m input file name \n" "[31m -r [0m reference file name \n" "[31m -f [0m format: 1-pdb (the default), 2-ac, 3-mol2, 4-sdf, 5-crd/rst\n" "[31m -o [0m output file name\n" "[31m -l [0m run log file name, default is \"match.log\"\n" "[31m -s [0m selection mode\n" "[34m 0:[0m use all atoms (the default)\n" "[34m 1:[0m specify atom names\n" "[34m 2:[0m use atom defination file\n" "[34m 3:[0m use residue defination file - original residue IDs\n" "[34m 4:[0m use residue defination file - renumbered residue IDs\n" "[31m -ds [0mdefinition string if selection modes of '1' or '3' or '4'\n" "[31m [0me.g. 'C,N,O,CA', or 'HET' which stands for heavy atoms for '-ds 1')\n" "[31m -df [0mdefinition file if selection mode of '2' or '3' or '4'\n" "[31m [0mrecords take a form of 'ATOM atom_id_input atom_id_reference'\n" "[31m [0mor 'RES res_id_input res_id_reference'\n" "[31m -n [0m number of atoms participating ls-fitting,\n" "[31m [0m default is -1, which implies to use all the selected atoms\n" "[31m -m [0m matrix file, default is \"match.matrix\"\n" "[31m -t [0m job type:\n" "[35m 0:[0m calculate rms only, need -i and -r\n" "[35m 1:[0m lsfit, need -i, -r and -o the default\n" "[35m 2:[0m translation/rotation, need -i, -o and -m\n"); exit(0); } } else { if (argc == 2 && (strcmp(argv[1], "-h") == 0 || strcmp(argv[1], "-H") == 0)) { printf ("Usage: match -i input file name \n" " -r reference file name \n" " -f format: 1-pdb (the default), 2-ac, 3-mol2, 4-sdf, 5-crd/rst\n" " -o output file name\n" " -l run log file name, default is \"match.log\"\n" " -s selection mode\n" " 0: use all atoms (the default)\n" " 1: specify atom names\n" " 2: use atom defination file\n" " 3: use residue defination file - original residue IDs\n" " 4: use residue defination file - renumbered residue IDs\n" " -ds definition string if selection modes of '1' or '3' or '4'\n" " e.g. 'C,N,O,CA', or 'HET' which stands for heavy atoms for '-ds 1')\n" " -df definition file if selection mode of '2' or '3' or '4'\n" " records take a form of 'ATOM atom_id_input atom_id_reference'\n" " or 'RES res_id_input res_id_reference'\n" " -n number of atoms participating ls-fitting,\n" " default is -1, which implies to use all the selected atoms\n" " -m matrix file, default is \"match.matrix\"\n" " -t job type:\n" " 0: calculate rms only, need -i and -r\n" " 1: lsfit, need -i, -r and -o the default\n" " 2: translation/rotation, need -i, -o and -m\n"); exit(0); } if (argc != 23 && argc != 21 && argc != 19 && argc != 17 && argc != 15 && argc != 13 && argc != 11 && argc !=9 && argc !=7 && argc !=5) { printf ("Usage: match -i input file name \n" " -r reference file name \n" " -f format: 1-pdb (the default), 2-ac, 3-mol2, 4-sdf, 5-crd/rst\n" " -o output file name\n" " -l run log file name, default is \"match.log\"\n" " -s selection mode\n" " 0: use all atoms (the default)\n" " 1: specify atom names\n" " 2: use atom defination file\n" " 3: use residue defination file - original residue IDs\n" " 4: use residue defination file - renumbered residue IDs\n" " -ds definition string if selection modes of '1' or '3' or '4'\n" " e.g. 'C,N,O,CA', or 'HET' which stands for heavy atoms for '-ds 1')\n" " -df definition file if selection mode of '2' or '3' or '4'\n" " records take a form of 'ATOM atom_id_input atom_id_reference'\n" " or 'RES res_id_input res_id_reference'\n" " -n number of atoms participating ls-fitting,\n" " default is -1, which implies to use all the selected atoms\n" " -m matrix file, default is \"match.matrix\"\n" " -t job type:\n" " 0: calculate rms only, need -i and -r\n" " 1: lsfit, need -i, -r and -o the default\n" " 2: translation/rotation, need -i, -o and -m\n"); exit(0); } } for (i = 1; i < argc; i += 2) { if (strcmp(argv[i], "-i") == 0) { strcpy(ifilename, argv[i + 1]); iinput = 1; } if (strcmp(argv[i], "-f") == 0) format=atoi(argv[i+1]); if (strcmp(argv[i], "-o") == 0) { strcpy(ofilename, argv[i + 1]); ioutput = 1; } if (strcmp(argv[i], "-r") == 0) { strcpy(rfilename, argv[i + 1]); iref = 1; } if (strcmp(argv[i], "-s") == 0) stype = atoi(argv[i+1]); if (strcmp(argv[i], "-ds") == 0) strcpy(def_atomname_str, argv[i + 1]); if (strcmp(argv[i], "-df") == 0) strcpy(def_filename, argv[i + 1]); if (strcmp(argv[i], "-m") == 0) { strcpy(mfilename, argv[i + 1]); imatrix = 1; } if (strcmp(argv[i], "-t") == 0) jobtype = atoi(argv[i+1]); if (strcmp(argv[i], "-n") == 0) nsel = atoi(argv[i+1]); if (strcmp(argv[i], "-l") == 0) strcpy(lfilename, argv[i + 1]); } if(jobtype !=0 && jobtype != 1 && jobtype != 2) jobtype = 1; if(format != 1 && format != 2 && format != 3 && format != 4 && format != 5) format = 1; if(jobtype == 0) if(iinput == 0 || iref == 0) { fprintf(stderr, "RMS calculation needs an input and a reference files, exit\n"); exit(0); } if(jobtype == 1) if(iinput == 0 || ioutput == 0 || iref == 0) { fprintf(stderr, "The least-square fitting calculation needs an input, an output and a reference files, exit\n"); exit(0); } if(jobtype == 2) if(iinput == 0 || ioutput == 0) { fprintf(stderr, "The translation/rotation job needs an input and an output files, exit\n"); exit(0); } if(jobtype == 0 || jobtype == 1) { if ((fplog = fopen(lfilename, "w")) == NULL) { fprintf(stderr, "Cannot open log file %s to write, exit\n", lfilename); exit(1); } } /* read in input files*/ memory(0, MAXATOM, MAXBOND, MAXRING); if(format == 1) { overflow_flag = rpdb(ifilename, &atomnum, atom, cinfo, minfo, 0); if (overflow_flag) { cinfo.maxatom = atomnum + 10; cinfo.maxbond = bondnum + 10; memory(7, cinfo.maxatom, cinfo.maxbond, cinfo.maxring); overflow_flag = rpdb(ifilename, &atomnum, atom, cinfo, minfo, 0); } } if(format == 2) { overflow_flag = rac(ifilename, &atomnum, atom, &bondnum, bond, &cinfo, &minfo); if (overflow_flag) { cinfo.maxatom = atomnum + 10; cinfo.maxbond = bondnum + 10; memory(7, cinfo.maxatom, cinfo.maxbond, cinfo.maxring); overflow_flag = rac(ifilename, &atomnum, atom, &bondnum, bond, &cinfo, &minfo); } } if(format == 3) { overflow_flag = rmol2(ifilename, &atomnum, atom, &bondnum, bond, &cinfo, &minfo, 0); if (overflow_flag) { cinfo.maxatom = atomnum + 10; cinfo.maxbond = bondnum + 10; memory(7, cinfo.maxatom, cinfo.maxbond, cinfo.maxring); overflow_flag = rmol2(ifilename, &atomnum, atom, &bondnum, bond, &cinfo, &minfo, 0); } } if(format == 4) { overflow_flag = rmdl(ifilename, &atomnum, atom, &bondnum, bond, cinfo, minfo); if (overflow_flag) { cinfo.maxatom = atomnum + 10; cinfo.maxbond = bondnum + 10; memory(7, cinfo.maxatom, cinfo.maxbond, cinfo.maxring); overflow_flag = rmdl(ifilename, &atomnum, atom, &bondnum, bond, cinfo, minfo); } } if(format == 5) { overflow_flag = rrst(ifilename, &atomnum, atom, cinfo); if (overflow_flag) { cinfo.maxatom = atomnum + 10; memory(7, cinfo.maxatom, cinfo.maxbond, cinfo.maxring); overflow_flag = rrst(ifilename, &atomnum, atom, cinfo); } } free(bond); free(ring); free(arom); cinfo.maxatom = MAXATOM; cinfo.maxbond = MAXBOND; cinfo.maxring = MAXRING; ref_memory(0, MAXATOM, MAXBOND, MAXRING); if(format == 1) { overflow_flag = rpdb(rfilename, &refatomnum, refatom, cinfo, minfo, 0); if (overflow_flag) { cinfo.maxatom = refatomnum + 10; cinfo.maxbond = refbondnum + 10; ref_memory(7, cinfo.maxatom, cinfo.maxbond, cinfo.maxring); overflow_flag = rpdb(rfilename, &refatomnum, refatom, cinfo, minfo, 0); } } if(format == 2) { overflow_flag = rac(rfilename, &refatomnum, refatom, &refbondnum, refbond, &cinfo, &minfo); if (overflow_flag) { cinfo.maxatom = refatomnum + 10; cinfo.maxbond = refbondnum + 10; ref_memory(7, cinfo.maxatom, cinfo.maxbond, cinfo.maxring); overflow_flag = rac(rfilename, &refatomnum, refatom, &refbondnum, refbond, &cinfo, &minfo); } } if(format == 3) { overflow_flag = rmol2(rfilename, &refatomnum, refatom, &refbondnum, refbond, &cinfo, &minfo, 0); if (overflow_flag) { cinfo.maxatom = refatomnum + 10; cinfo.maxbond = refbondnum + 10; ref_memory(7, cinfo.maxatom, cinfo.maxbond, cinfo.maxring); overflow_flag = rmol2(rfilename, &refatomnum, refatom, &refbondnum, refbond, &cinfo, &minfo, 0); } } if(format == 4) { overflow_flag = rmdl(rfilename, &refatomnum, refatom, &refbondnum, refbond, cinfo, minfo); if (overflow_flag) { cinfo.maxatom = refatomnum + 10; cinfo.maxbond = refbondnum + 10; ref_memory(7, cinfo.maxatom, cinfo.maxbond, cinfo.maxring); overflow_flag = rmdl(rfilename, &refatomnum, refatom, &refbondnum, refbond, cinfo, minfo); } } if(format == 5) { overflow_flag = rrst(rfilename, &refatomnum, refatom, cinfo); if (overflow_flag) { cinfo.maxatom = refatomnum + 10; ref_memory(7, cinfo.maxatom, cinfo.maxbond, cinfo.maxring); overflow_flag = rrst(rfilename, &refatomnum, refatom, cinfo); } } free(refbond); free(refring); free(refarom); if(debug == 1) { for(i=0;i<atomnum;i++) printf("ATOM %5d %5s %5s %5d %8.3lf %8.3lf %8.3lf\n", i+1, atom[i].name, atom[i].aa, atom[i].resno, atom[i].x, atom[i].y, atom[i].z); for(i=0;i<refatomnum;i++) printf("ATOM %5d %5s %5s %5d %8.3lf %8.3lf %8.3lf\n", i+1, refatom[i].name, refatom[i].aa, refatom[i].resno, refatom[i].x, refatom[i].y, refatom[i].z); } if(jobtype == 0 || jobtype == 1) { fit_atom = (FITATOM *) malloc(sizeof(FITATOM) * atomnum); if (fit_atom == NULL) { fprintf(stderr, "memory allocation error for *fit_atom\n"); exit(1); } fit_refatom = (FITATOM *) malloc(sizeof(FITATOM) * refatomnum); if (fit_refatom == NULL) { fprintf(stderr, "memory allocation error for *fit_refatom\n"); exit(1); } if(stype == 0) { for(i=0;i<atomnum;i++) { fit_atom[i].x=atom[i].x; fit_atom[i].y=atom[i].y; fit_atom[i].z=atom[i].z; } for(i=0;i<refatomnum;i++) { fit_refatom[i].x=refatom[i].x; fit_refatom[i].y=refatom[i].y; fit_refatom[i].z=refatom[i].z; } fit_atomnum = atomnum; fit_refatomnum = refatomnum; } if(stype == 1) { count = 0; for(i=0;i <= strlen(def_atomname_str);i++) { if(def_atomname_str[i]==' ') continue; if(def_atomname_str[i]==',') def_atomname_str[i] = ' '; defstr[count] = def_atomname_str[i]; count++; } sscanf(defstr, "%s", atomname); strcpy(def_atomname[ndef_atomname].str, atomname); ndef_atomname++; for(i=1;i<strlen(defstr);i++) if(defstr[i] == ' ') { sscanf(&defstr[i], "%s", atomname); strcpy(def_atomname[ndef_atomname].str, atomname); ndef_atomname++; } for(i=0;i<atomnum;i++) { suc = 0; for(j=0;j<ndef_atomname;j++) { if(strcmp(def_atomname[j].str, atom[i].name) == 0) { suc = 1; break; } if(strcmp(def_atomname[j].str, "HET") == 0) if(atom[i].name[0] != 'H') { suc = 1; break; } } if(suc == 1) { fit_atom[fit_atomnum].x=atom[i].x; fit_atom[fit_atomnum].y=atom[i].y; fit_atom[fit_atomnum].z=atom[i].z; fit_atomnum++; } } for(i=0;i<refatomnum;i++) { suc = 0; for(j=0;j<ndef_atomname;j++) { if(strcmp(def_atomname[j].str, refatom[i].name) == 0) { suc = 1; break; } if(strcmp(def_atomname[j].str, "HET") == 0) if(refatom[i].name[0] != 'H') { suc = 1; break; } } if(suc == 1) { fit_refatom[fit_refatomnum].x=refatom[i].x; fit_refatom[fit_refatomnum].y=refatom[i].y; fit_refatom[fit_refatomnum].z=refatom[i].z; fit_refatomnum++; } } } if(stype == 2) { if ((fpdef = fopen(def_filename, "r")) == NULL) { fprintf(stderr, "Cannot open file %s, exit\n", def_filename); exit(1); } count = 0; for(;;) { if (fgets(line, MAXCHAR, fpdef) == NULL) break; if(strncmp(line, "ATOM", 4) == 0) { sscanf(&line[4], "%d%d", &atid1, &atid2); atid1--; atid2--; fit_atom[count].x=atom[atid1].x; fit_atom[count].y=atom[atid1].y; fit_atom[count].z=atom[atid1].z; fit_refatom[count].x=refatom[atid2].x; fit_refatom[count].y=refatom[atid2].y; fit_refatom[count].z=refatom[atid2].z; count++; } } fit_atomnum = count; fit_refatomnum = count; fclose(fpdef); } if(stype == 3 || stype == 4) { /*first of all, read in atom name definition strings*/ count = 0; for(i=0;i <= strlen(def_atomname_str);i++) { if(def_atomname_str[i]==' ') continue; if(def_atomname_str[i]==',') def_atomname_str[i] = ' '; defstr[count] = def_atomname_str[i]; count++; } sscanf(defstr, "%s", atomname); strcpy(def_atomname[ndef_atomname].str, atomname); ndef_atomname++; for(i=1;i<strlen(defstr);i++) if(defstr[i] == ' ') { sscanf(&defstr[i], "%s", atomname); if(strcmp(atomname, "HET") == 0) { fprintf(stderr, "Warning: HET cannot be defined with -s of 3\n"); continue; } strcpy(def_atomname[ndef_atomname].str, atomname); ndef_atomname++; } if(debug == 1) { for(i=0;i<ndef_atomname;i++) printf("DEF %5d %5s\n", i+1, def_atomname[i].str); } if(stype == 4) { count = 0; oldresid = -99999; for(i=0;i<atomnum;i++) { if(atom[i].resno != oldresid) { oldresid = atom[i].resno; count++; } atom[i].resno = count; } count = 0; oldresid = -99999; for(i=0;i<refatomnum;i++) { if(refatom[i].resno != oldresid) { oldresid = refatom[i].resno; count++; } refatom[i].resno = count; } } /* now working on residue definition file */ if ((fpdef = fopen(def_filename, "r")) == NULL) { fprintf(stderr, "Cannot open file %s, exit\n", def_filename); exit(1); } count = 0; for(;;) { if (fgets(line, MAXCHAR, fpdef) == NULL) break; if(strncmp(line, "RES", 3) == 0) { sscanf(&line[3], "%d%d", &resid1, &resid2); if(debug == 1) printf("RES %5d %5d\n", resid1, resid2); for(i=0; i< ndef_atomname; i++) { atid1 = -1; atid2 = -1; for(j=0;j<atomnum;j++) if(strcmp(def_atomname[i].str, atom[j].name) == 0 && atom[j].resno == resid1) { atid1 = j; break; } for(j=0;j<refatomnum;j++) if(strcmp(def_atomname[i].str, refatom[j].name) == 0 && refatom[j].resno == resid2) { atid2 = j; break; } if(atid1 >= 0 && atid2 >= 0) { fit_atom[count].x=atom[atid1].x; fit_atom[count].y=atom[atid1].y; fit_atom[count].z=atom[atid1].z; fit_refatom[count].x=refatom[atid2].x; fit_refatom[count].y=refatom[atid2].y; fit_refatom[count].z=refatom[atid2].z; count++; } } } } fit_atomnum = count; fit_refatomnum = count; fclose(fpdef); } if(fit_atomnum != fit_refatomnum || fit_atomnum <=0) { fprintf(stderr, "\nThe numumber of fitting atoms in input file (%d) is different from the number of fitting atoms in ref file (%d)", fit_atomnum, fit_refatomnum); exit(0); } if(nsel > 0 && fit_atomnum > nsel) fit_atomnum = nsel; if(fit_atomnum <= 0) { fprintf(stderr, "\nThe number of fitting atoms is smaller than or equal to zero, exit!"); exit(1); } sum = 0; for(i=0;i<fit_atomnum;i++) { sum+=(fit_atom[i].x-fit_refatom[i].x) * (fit_atom[i].x-fit_refatom[i].x); sum+=(fit_atom[i].y-fit_refatom[i].y) * (fit_atom[i].y-fit_refatom[i].y); sum+=(fit_atom[i].z-fit_refatom[i].z) * (fit_atom[i].z-fit_refatom[i].z); } rms = sqrt(sum/fit_atomnum); fprintf(fplog, "The rmsd before least-square fitting is %9.4lf\n", rms); fprintf(fplog, "Number of atoms participate least-square fitting is %9d\n", fit_atomnum); fprintf(stdout, "\nThe rmsd before least-square fitting is %9.4lf", rms); fprintf(stdout, "\nNumber of atoms participate least-square fitting is %9d", fit_atomnum); if(jobtype == 0) { fclose(fplog); return 0; } if ((fpmatrix = fopen(mfilename, "w")) == NULL) { fprintf(stderr, "Cannot open file %s, exit\n", mfilename); exit(1); } rms = lsfit(fit_refatom, fit_atom, fit_atomnum) ; for(i=0;i<fit_atomnum;i++) { x=CG0[0]+ROT[0][0]*(fit_atom[i].x-CG1[0])+ ROT[0][1]*(fit_atom[i].y-CG1[1])+ ROT[0][2]*(fit_atom[i].z-CG1[2]); y=CG0[1]+ROT[1][0]*(fit_atom[i].x-CG1[0])+ ROT[1][1]*(fit_atom[i].y-CG1[1])+ ROT[1][2]*(fit_atom[i].z-CG1[2]); z=CG0[2]+ROT[2][0]*(fit_atom[i].x-CG1[0])+ ROT[2][1]*(fit_atom[i].y-CG1[1])+ ROT[2][2]*(fit_atom[i].z-CG1[2]); sum =(x-fit_refatom[i].x) * (x-fit_refatom[i].x); sum+=(y-fit_refatom[i].y) * (y-fit_refatom[i].y); sum+=(z-fit_refatom[i].z) * (z-fit_refatom[i].z); sum = sqrt(sum); fprintf(fplog, "ATOM %5d %9.3lf %9.3lf %9.3lf ", i+1, fit_atom[i].x, fit_atom[i].y, fit_atom[i].z); fprintf(fplog, "REFATOM %9.3lf %9.3lf %9.3lf %9.3lf\n", fit_refatom[i].x, fit_refatom[i].y, fit_refatom[i].z, sum); } fclose(fpmatrix); fprintf(fplog, "\nThe rmsd after least-square fitting is %9.4lf\n", rms); fprintf(stdout, "\nThe rmsd after least-square fitting is %9.4lf\n", rms); fclose(fplog); } if(jobtype == 2) rmatrix(mfilename); if(jobtype == 1 || jobtype == 2) { for(i=0;i<atomnum;i++) { x=CG0[0]+ROT[0][0]*(atom[i].x-CG1[0])+ ROT[0][1]*(atom[i].y-CG1[1])+ ROT[0][2]*(atom[i].z-CG1[2]); y=CG0[1]+ROT[1][0]*(atom[i].x-CG1[0])+ ROT[1][1]*(atom[i].y-CG1[1])+ ROT[1][2]*(atom[i].z-CG1[2]); z=CG0[2]+ROT[2][0]*(atom[i].x-CG1[0])+ ROT[2][1]*(atom[i].y-CG1[1])+ ROT[2][2]*(atom[i].z-CG1[2]); atom[i].x = x; atom[i].y = y; atom[i].z = z; } if(format == 1) wpdb(ofilename, atomnum, atom); if(format == 2) wac(ofilename, atomnum, atom, bondnum, bond, cinfo, minfo); if(format == 3) wmol2(ofilename, atomnum, atom, bondnum, bond, arom, cinfo, minfo); if(format == 4) wmdl(ofilename, atomnum, atom, bondnum, bond, cinfo); if(format == 5) wrst(ofilename, atomnum, atom); } return 0; }