/***********************************************************\
*  'binas' converts a binary file to ascii.                 *
*  (usage 'binas.exe inputfile' gives output inputfile.a)   *
*  (Heiner K"ornich,IAP K-Born, 22.7.97)                    *
\***********************************************************/

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



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

   if(anzahl!=2)
   {
     printf("Please give exactly one filename!!!\n");
     printf("eg: binas.exe inputfile \n");
     return 1;
   }
   binf=fopen(argument[1],"rb");
   if(binf==0)
   {
      printf("File \"%s\" does not exist.\n",argument[1]);
      return 1;
   }
   asciif=fopen(strcat(argument[1],".a"),"w");

   while(fread(ueber,sizeof(float),1,binf)!=0)
   {
      fprintf(asciif,"%E \n",ueber[0]);
      error+=1;
/*      if(error%5==0) fprintf(asciif,"\n");*/
   }
   printf("Transferred content: %d\n to file %s \n",error,argument[1]);
   return 0;
}