Fortran语言小程序编写，请各路大神帮忙

Program Baidu_Thlws
Implicit None
Integer , allocatable :: iData( : )
Integer :: n
Character( Len = 512 ) :: cStr
Read( * , '(a512)' ) cStr
n = GetDataN( cStr )
Allocate( iData( n ) )
Read( cStr , * ) iData
Write( * , * ) 'numma(nodes,',n,') ' , iData
contains

Integer Function GetDataN( cStr )
Character( Len = * ) , Intent( IN ) :: cStr
Integer :: i
Logical :: bIsSeparator , bIsQuote
GetDataN = 0
bIsSeparator = .TRUE.
bIsQuote = .FALSE.
Do i = 1 , Len_Trim( cStr )
Select Case( cStr(i:i) )
Case( '"' , "'" ) !// 如果遇到引号
If ( .Not.bIsQuote ) GetDataN = GetDataN + 1 !//如果不在引号中，则增加一个数据
bIsQuote = .Not.bIsQuote !// 引号结束或开始
bIsSeparator = .FALSE.
Case( " " , "," , char(9) ) !// 如果遇到分隔符
If ( .Not.bIsQuote ) then !// 分隔符如果不在引号中
bIsSeparator = .TRUE.
End If
Case Default
If ( bIsSeparator ) then
GetDataN = GetDataN + 1
End If
bIsSeparator = .FALSE.
End Select
End Do
End Function GetDataN
End Program Baidu_Thlws