SUBROUTINE closefem
USE FileUnits_Module
!
!   $RCSfile: closefem.f,v $ $Revision: 1.15 $
!   $Date: 89/11/16 11:02:53 $
!   $State: Stable $
!
! delete file hamil.
  CLOSE(Unit=Hamil_FEM_Unit,status='delete')
! delete file sOvrlp.
  CLOSE(Unit=SOvrlp_Unit,status='delete')
! delete file temp1.
  CLOSE(Unit=Temp1_FEM_Unit,status='delete')
! delete file temp2.
  CLOSE(Unit=Temp2_FEM_Unit,status='delete')
! delete file relax.
  CLOSE(Unit=Relax_Unit,status='delete')
! delete file tidi.
  CLOSE(Unit=Tidi_Unit,status='delete')
! delete file surf33.
  CLOSE(Unit=Surf33_Unit,status='delete')
! delete file surf34.
  CLOSE(Unit=sf34_unit,status='delete')
! delete file nodedata.
  CLOSE(Unit=Msher_Bin_Unit,status='delete')
! delete file msglz.
  CLOSE(Unit=Msglcz_Unit,status='delete')
! delete file intrp1.
  CLOSE(Unit=Intrp1_FEM_Unit,status='delete')
! delete file intrp2.
  CLOSE(Unit=Intrp2_FEM_Unit,status='delete')
! delete file tempnode.
  CLOSE(Unit=TempNode_Bin_Unit,status='delete')
! delete file oldmsh.
  CLOSE(Unit=OldMsh_Unit,status='delete')
! delete file mapmsh.
  CLOSE(Unit=Mapmsh_Bin_Unit,status='delete')
! delete file zromsh.
  CLOSE(Unit=Zromsh_Bin_Unit,status='delete')
! delete file zromeg.
  CLOSE(Unit=ZroMeg_Unit,status='delete')
! delete file nzromg.
  CLOSE(Unit=Nzromg_Unit,status='delete')
! delete file rmsphi1.
  CLOSE(Unit=PhiRms1_Unit,status='delete')
! delete file rmsphi2.
  CLOSE(Unit=PhiRms2_Unit,status='delete')

  RETURN
  END