writeim.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	writeim ()

Function/Subroutine Documentation

writeim()

subroutine writeim

(

)

!
!     writes a header for each eigenfrequency in the .dat file
!
      implicit none
!
      write(5,*)
      write(5,100)
 100  format
     &  ('                    I M A G I N A R Y   P A R T')
      write(5,*)
!
      return