www.pudn.com > Wang_Lecture_2012.rar > getdata.f, change:2006-02-22,size:483b


	subroutine getdata(unit,line)
	implicit none
c
c	First implemented in Potsdam, Feb, 1999
c	Last modified: Potsdam, Nov, 2001, by R. Wang
c
	integer unit
	character line*180,char*1
c
	integer i
c
c	this subroutine reads over all comment lines starting with "#".
c
	char='#'
100	continue
	if(char.eq.'#')then
	  read(unit,'(a)')line
	  i=1
	  char=line(1:1)
200	  continue
	  if(char.eq.' ')then
	    i=i+1
	    char=line(i:i)
	    goto 200
	  endif
	  goto 100
	endif
c
	return
	end