integer function lunclose()

  implicit none

  logical op
  integer lun, i
  lunclose=0                ! happy compiler
  print *,' lunclose'
  do i=30,60
    lun = i
    inquire(lun,opened=op)
    if(op)then
      lunclose = lunclose+1
      print '(a,i10)', 'close unit =',lun
      close(unit=lun)
    endif
  enddo
  return
end function