c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/char2int.f,v 2.22 2000/08/30 16:38:09 flittner Exp $
	integer function char2int(word,nw)
c
c convert character (word) to integer (number)
c
c
	integer nw
	character word(nw)
	integer i,cascii,number,ipwr
c
        ipwr=1
	number=0
	do i=nw,1,-1
           cascii=ichar(word(i))
           if((cascii.ge.48).and.(cascii.le.57)) then
             number=number+(cascii-48)*ipwr
             ipwr=ipwr*10
           endif
	enddo
        char2int=number
	return
	end