Генерация токена Kerberos в C / C ++

Это программа, которая может подсчитывать числа в строке (или количестве столбцов), но для строки. Если у вас много строк, вы должны немного изменить его.

program test12

implicit none

integer n,m,i

integer,allocatable::x(:)

 open(10,file='C:\Users\user\Desktop\file.txt')

allocate(x(n))

20 n=n+1

 deallocate(x) 



 allocate(x(n))

read(10,*,iostat=m)(x(i),i=1,n)

if (m==-1)then

goto 30

else


rewind 10

 goto 20

end if

 30 print*,n-1

 end