|
|
★ ★ ★ ★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+5):帮新虫发金币！ 2010-11-06 22:18:02
nono2009(金币+1, 程序强帖+1):鼓励应助 2010-11-10 18:33:41
!
! input file is here
!
C
C 361 2 3 4 5 6 7 8 9 10
C
Implicit None
Integer in,channel,num
Channel=5
Open(Channel,file='a.input',status='old')
in=1
call File(In,Channel,Num)
write(*,*) '****************************'
write(*,*) num
End
Subroutine File(In,Channel,Num)
Implicit None
Integer In,Channel,Num
Character(Len=100) Temp
Character(Len=100) Temp_here
Integer Index_dicp(100)
Integer Index_here(200)
Integer Total(100)
Integer Ldicp,IK,Idicp,Jdicp,Ihere
Rewind(channel)
Do Jdicp=1,In-1
Read(Channel,*)
Enddo
Read(Channel,'(A100)') Temp
Ihere=Len_trim(Temp)
Temp_here(2:Ihere+2)=Temp(1:Ihere+1)
Temp_here(1:1)=' '
Do Idicp=1,Ihere+2
If(Temp_here(Idicp:Idicp).Eq.' ') Then
Index_here(Idicp)=-1
Else
Index_here(Idicp)=1
EndIf
Enddo
IK=0
Do Idicp=1,Ihere+2
If(Index_here(Idicp)*Index_here(Idicp+1).eq.-1) Then
IK=Ik+1
Total(IK)=Idicp
EndIf
Enddo
DO Ldicp=1,IK+2,2
Write(*,*) Temp_here(Total(Ldicp)+1: Total(Ldicp+1))
EnddO
Num=IK/2
Return
End
[ Last edited by maomao1210 on 2010-11-6 at 21:49 ] |
|
回复此楼