#include <stdio.h>
#define n 9999
FILE *fp2,*fp3,*fp4;
char a[130];
main(ac,av)
int ac; char *av[];
{
  int i,j,k;
  float x,y;
  int  p[n];
  char f1[60],f2[60],f3[60],f4[60];
  if(ac<2){ printf("\n\t ********check missed coo ******\n");
            printf("\n\tUsage: checkmis uedo\n");
            exit(0);
          }
  strcpy(f1,av[1]);
  k=nindex(f1,"."); if(k>0)f1[k]=0;
  strcpy(f2,"test.coo");  strcpy(f3,f1); strcat(f4,"miss.dat");
  strcat(f3,".als"); 
  fp2=fopen(f2,"r"); if(fp2==0){ printf("%s not found!\n",f2); exit(0); }
  fp3=fopen(f3,"r"); if(fp3==0){ printf("%s not found!\n",f3); exit(0); }
  fp4=fopen(f4,"w");
  for(i=0;i<n;i++)p[i]=0;
  for(i=0;i<3;i++){ fgets(a,130,fp2); fgets(a,130,fp3); }
l10:
  fgets(a,130,fp3); if(feof(fp3))goto l20;
  sscanf(a,"%d",&j);
  p[j]=1;
  goto l10; 
l20:
  fclose(fp3);

  k=0;
l30:
  fgets(a,130,fp2); if(feof(fp2))goto l40;
  sscanf(a,"%d %f %f",&j,&y,&x);
  if(p[j]==0){ k++; fprintf(fp4,"%5d %9.3f %9.3f\n",j,y,x); }
  goto l30; 
l40:
  fclose(fp2); fclose(fp4);
  printf("prodced  miss.dat  %d\n",k);
}