writehe.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	writehe (j)

Function/Subroutine Documentation

writehe()

subroutine writehe

(

integer

j

)

!
!     writes a header for each eigenfrequency in the .dat file
!
      implicit none
!
      integer j
!
      write(5,*)
      write(5,100) j+1 
 100  format
     &  ('                    E I G E N V A L U E    N U M B E R ',i5)
      write(5,*)
!
      return