11 extern void trstatistics(char pr_type[4],float *parin,float *av,float *var);
52 static char pr_type[4],phrase[100];  in main()  local
110     strcpy(pr_type,"chis");  in main()
115     trstatistics(pr_type,param,&avtr,&vartr);  in main()
123     strcpy( pr_type, "ncch");  in main()
129     trstatistics(pr_type,param,&avtr,&vartr);  in main()
137     strcpy( pr_type, "f   ");  in main()
143     trstatistics(pr_type,param,&avtr,&vartr);  in main()
151     strcpy( pr_type, "ncf ");  in main()
158     trstatistics(pr_type,param,&avtr,&vartr);  in main()
206     strcpy( pr_type, "unif");  in main()
211     trstatistics(pr_type,param,&avtr,&vartr);  in main()
219     strcpy( pr_type, "beta");  in main()
224     trstatistics(pr_type,param,&avtr,&vartr);  in main()
232     strcpy( pr_type, "bin ");  in main()
240     trstatistics(pr_type,param,&avtr,&vartr);  in main()
248     strcpy( pr_type, "pois");  in main()
254     trstatistics(pr_type,param,&avtr,&vartr);  in main()
262     strcpy( pr_type, "exp ");  in main()
267     trstatistics(pr_type,param,&avtr,&vartr);  in main()
276     strcpy( pr_type, "gamm");  in main()
281     trstatistics(pr_type,param,&avtr,&vartr);  in main()
333     strcpy( pr_type, "norm");  in main()
338     trstatistics(pr_type,param,&avtr,&vartr);  in main()
347     strcpy( pr_type, "nbin");  in main()
356     trstatistics(pr_type,param,&avtr,&vartr);  in main()
367 void trstatistics(char pr_type[4],float *parin,float *av,float *var)  in trstatistics()
436     if(strcmp("chis",pr_type) !=0 ) goto S10;  in trstatistics()
441     if(strcmp("ncch",pr_type) != 0) goto S20;  in trstatistics()
448     if(strcmp("f   ",pr_type) != 0) goto S70;  in trstatistics()
464     if(strcmp("ncf ",pr_type) != 0) goto S120;  in trstatistics()
481     if(strcmp("unif",pr_type) != 0) goto S130;  in trstatistics()
487     if(strcmp("beta",pr_type) != 0) goto S140;  in trstatistics()
492     if(strcmp("bin ",pr_type) != 0) goto S150;  in trstatistics()
497     if(strcmp("pois",pr_type) != 0) goto S160;  in trstatistics()
501     if(strcmp("exp ",pr_type) != 0) goto S170;  in trstatistics()
506     if(strcmp("gamm",pr_type) != 0) goto S180;  in trstatistics()
511     if(strcmp("norm",pr_type) != 0) goto S190;  in trstatistics()
516     if(strcmp("nbin",pr_type) != 0) goto S200;  in trstatistics()