#include <stdio.h>

main(ac,av)
int ac; char **av;
{
  char a[50],b[50];
  FILE *fp;
  int k;
  if(ac<2){ printf("\n\tUsage: coo1 r0001\n\n"); exit(0); }
  sprintf(a,"ls %s/*/d*.fits >1.1",av[1]);
  system(a);
  fp=fopen("1.1","r");
l10:
  fgets(a,50,fp); if(feof(fp))goto l20;
   printf("%s",a);
  k=strlen(a)-1; a[k]=0;
  sprintf(b,"coord9s %s !",a);
   printf("%s\n",b);
  system(b);
  goto l10;
l20:
  fclose(fp);
  system("rm wcs.coo test.cat 1.1");
  sprintf(a,"dir1 %s",av[1]);
  system(a);
}