#include <stdio.h>
#include <math.h>
#include <malloc.h>
#include <time.h>

main()
{
        int n,j,i,m,line_count,nwords,nlines,ifile,iread,ii;
        FILE *toread,*fopen();
        char line[10000],blank=' ',cfile[100],*fgets(),*jp;
        int cc,ccold,nsubt,isspace(),iii,jj,jjj;
/* 
*    
*/
        cprini("stdout","fort.13");

        cprintff("enter name of file to read from\n");
        scanf("%8s",cfile);

        cprintff("file name as read \n %s \n",  cfile);

        m=20000;

/*
 *        open the file to read from
 */
        toread=fopen(cfile,"r");

        nlines=0;
        nwords=0;
        for(i=0; i< m; i=i+1) {


            jp=fgets(line,100,toread);

/*
 *       check if this is a blank line: set iii to zero for a blank
 *       line, to 1 for a non-blank line
 */
            iii=0;
            for(j=0; j<100; j=j+1) {

                cc=line[j];
                ii=isspace(cc);
                if(cc == '\0') ii=-1;
                if(ii == 0) iii=1;
                if(line[j]== '\0') break;
            }

/*
 *       find the number jjj of words on this line 
 */
            jjj=0;
            for(j=0; j<100; j=j+1) {

                if(line[j] == '\0') break;
                

                ii=isspace(line[j]);

//                if(line[j] == '\0') ii=-1;            


                if( (j ==0) && (ii==0) ) jjj=jjj+1;
                if(j ==0) continue;

                jj=isspace(line[j-1]);
                if( (jj !=0) && (ii ==0) ) jjj=jjj+1;

            }            


  cprinf("i=",&i,1);

        cprintff("line as read \n %s \n",  line);


  cprinf("iii=",&iii,1);
  cprinf("and jjj=",&jjj,1);
   
            nwords=nwords+jjj;

            nlines=nlines+iii;
            if(jp == NULL) break;



         }

    cprinf("nlines=",&nlines,1);
    cprinf("nwords=",&nwords,1);


}