在标签字符处分开线

Question

我想在选项卡上拆分一行，然后读取逗号作为字符。我尝试使用包含" t"或"的pos变量遵循此类解决方案，但它返回了我0，因此找不到任何选项卡。哪个可以是正确的解决方案？

INTEGER :: i, dots, commas, A, T, C, G, InDel, M, Z, L, s, sf, numsize, InDelSlide, pos, base, cov
CHARACTER(len=1) :: ref
CHARACTER(len=10000) :: arg, seq, qual
CHARACTER(len=1024) :: buffer
CHARACTER(len=6) :: num
CHARACTER(len=5) chr
READ(5,'(A)') buffer
PRINT *, buffer
pos = INDEX(buffer, "   ")
arg = buffer(1:pos-1)
READ(buffer(pos+1:), *) chr, base, ref, cov, seq, qual

Answer 1

fotran中的tab字符只是achar(9)。使用

pos = INDEX(buffer, achar(9))

achar()函数返回带有您传递给它的ASCII值的字符。