This is the code i've writte so far;
999 do while (mol/='END') cEND in the file indicates the last word is written
888 read(1,'(A)', iostat = io, advance='no'), ch
if (io ==0) then
if(ch == BL .and. oldch /= BL)
& then c new species found...
Hi,
I need to write a program that can read words from an input file. These words need to be stored in a vector "character species(200,20)". The max number of words is 200, the max length is 20 of each word is 20.
The words can be on the same line (separated by blanks) or in different lines or...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.