有这么一段代码（程序的很小一部分）
ifiletype=0
read(4,'A(80)',err=904,end=904) comment
if (comment(1:1),eq,'*') then
ifiletype=2
 do i1=80,2,-1
   if(comment(i1:i1).ne.' ') then
   icomment=i1
   end if
 end do
 icomment=2
 continue
 read(4,*,err=904,end=904) shift
else
 rewind(4)
 shift=-0.8d+00
end if
read(4,*,err=904,end=904) hostart
read(4,*,err=904,end=904) hwstart

小弟刚开始学fortran 有点疑问 指令 ifiletype在这里到底是起的什么作用
还有第2个if 配合 do 语句应该是在检测comment的实际长度 但是icomment这个值感觉后面也没被用上~ 另外最后的2个参数的读取时如何做到的 
望有人能解答下 在此先谢过了~