/***********************************************************\
*  'asbin' converts an ascii-file to a binary one           *
*  (usage: 'asbin.exe inputfile' yields inputfile.b)          *
*  (Heiner K"ornich,IAP K-Born, 22.7.97)                    *
\***********************************************************/

#include <stdio.h>
#include <string.h>


int main (int anzahl, char *argument[])
{
   int error,icount;
   FILE *binf, *asciif;
   float ueber[1];

   if(anzahl!=2)
   {
     printf("Please give only ascii-filename on startup!!!\n");
     printf("example: asbin.exe filename\n");
     return 1;
   }
   asciif=fopen(argument[1],"r");
   if(asciif==0)
   {
      printf("File \"%s\" does not exist.\n",argument[1]);
      return 1;
   }
   /*printf("ok!\n");*/
   binf=fopen(strcat(argument[1],".b"),"wb");
   icount=0;
   while(fscanf(asciif,"%E",&ueber[0])!=EOF)
      {
/*         printf("ueber=%f\n",ueber[0]);*/
         fwrite(ueber,sizeof(ueber),1,binf);
         icount++;
      }
   printf("Transferred content: %d to file %s \n",icount,argument[1]);

   return 0;
}