C ANFANG UNTERPROGRAMM
C-----------------------------------------------------------------------
      subroutine write4
C-----------------------------------------------------------------------
C     WRITE MODIFIED GEOMETRY FILE ON UNIT 4
      implicit real*8 (a-h,o-z)
      save
C     for SPEC runs including restarts we ignore fort.4
      end
