civx Code

subroutine extract_char_int(anul,int1)
implicit none
character(120)::anul
integer::tmp1,tmp2,int1
tmp1=scan(anul,' ')
!print*,tmp1
tmp2=scan(anul(tmp1:120),' ')+tmp1-1 ! on avance jusquau premier espace
! le caractere suivant est t'il un espace ?
do while( scan(anul((tmp2+1):120),' ')==1)  ! on passe tous les espaces 
	tmp2=tmp2+1
enddo
tmp1=scan(anul((tmp2):120),' ')+tmp2-1
tmp2= scan(anul((tmp2+1):120),' ')+tmp2
!print*,tmp1,tmp2


call char2int(anul(tmp1:tmp2),int1)

return
end