Author  : Marc, 3l50
 Date    : July 2002
 Modified:

 -----------------------------------------------------------------
 What it does
 ============


 -----------------------------------------------------------------
 Structure of Program
 ====================

Declarations followed by 

      WRITE(IUNIT, '(A)') title
      WRITE(IUNIT, *) (inthead(J), J=1, P_headlen)
!
      DO I=1, inthead(2)
         WRITE(IUNIT, '((1P8E16.7))')
     &      (field(L, I), L=-1, inthead(1))
      ENDDO
!
!
      RETURN
      END

 -----------------------------------------------------------------
 Program calls
 ====================

Called by Calls
write_samson_field (summ) none

 -----------------------------------------------------------------
Return to radiation home page