Lines Matching refs:dataunit

66                          total_pts, counter, loop_i, dataunit, gnuunit, pyunit, &  local
273         dataunit = io_file_unit()
274         open (dataunit, file=trim(seedname)//'-path.kpt', form='formatted')
275         write (dataunit, *) total_pts
277           write (dataunit, '(3f12.6,3x,f4.1)') &
280         close (dataunit)
313         dataunit = io_file_unit()
316         open (dataunit, file=file_name, form='formatted')
320               write (dataunit, '(2E16.8)') xval(loop_kpt), eig(i, loop_kpt)
322               write (dataunit, '(3E16.8)') xval(loop_kpt), &
326           write (dataunit, *) ' '
328         close (dataunit)
453         dataunit = io_file_unit()
456         open (dataunit, file=file_name, form='formatted')
458           write (dataunit, '(4E16.8)') xval(loop_kpt), &
461         write (dataunit, *) ' '
462         close (dataunit)
545         dataunit = io_file_unit()
548         open (dataunit, file=file_name, form='formatted')
550           write (dataunit, '(4E16.8)') xval(loop_kpt), morb(loop_kpt, :)
552         write (dataunit, *) ' '
553         close (dataunit)
630         dataunit = io_file_unit()
633         open (dataunit, file=file_name, form='formatted')
635           write (dataunit, '(2E16.8)') xval(loop_kpt), &
638         write (dataunit, *) ' '
639         close (dataunit)