/* * info - Print catalog header */ #include "focas1.h" info (catalog) char *catalog; { long nobjs (); cfd = catopen (catalog, 0); printf ("Catalog: %s\n", catalog); printf ("Number of objects: Total = %d\n", nobjs (cfd)); prhdr (); prdflt (); prxfrm (); printen (); prpsf (); prclssr (); fclose (cfd); }