Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Reading character up to ";" from a csv-file
Thank you, mikrom! I think your code was helpful. I in between did the following: program doku character line*100 open(3,file='datei.csv', status='old') 100 read(3,'(a)',iostat=n) line if (n < 0) goto 1000 i = index(line,';') j = index(line(i+1:),';')... -
Reading character up to ";" from a csv-file
Here I have the following csv-file: test_001.txt;====== Def. 1 ======;====== ;Definition 1; ====== bedarf_0002.txt;====== ef ======;====== ;ef; ====== bedarf_0003.txt;====== Definition 3 ======;====== ;Definition 3; ====== bedarf_04.txt;====== Definition 4 ======;====== ;Definition 4; ======... -
subroutine call in a function
Thank you, it works! Greetings from Aachen, Germany -
subroutine call in a function
Hello all! Decades ago I was busy with Fortran. Currently one question: Is it allow to call a subroutine in a function like: real function f(x) real::x,t1misch pa1=0.407 ha=-113.3 hd12=1330. xd1hv=1350. x1misch=x call glgew(x1misch,xd1hv,t1misch,pa1,2) call...
