11/05/18 00:21:15.17
>>542
区切り文字が決まっているなら、割と簡単。
program vip
implicit none
character(136) :: text
integer :: i, n
read(9, '(a)') text
n = count( transfer(trim(text), ' ', size = len_trim(text)) == ' ' )
print *, n
end program vip
11/05/18 00:21:15.17
>>542
区切り文字が決まっているなら、割と簡単。
program vip
implicit none
character(136) :: text
integer :: i, n
read(9, '(a)') text
n = count( transfer(trim(text), ' ', size = len_trim(text)) == ' ' )
print *, n
end program vip