← Back to branch summary

~jose-soler/siesta/unfolding

« back to all changes in this revision

Viewing changes to Util/Vibra/Vibra/fdf/io_sample.f

  • Committer: Alberto Garcia
  • Date: 2006-02-13 14:43:00 UTC
  • mfrom: (unknown (missing))
  • Revision ID: Arch-1:siesta@uam.es--2005%siesta-devel--reference--1.5--patch-36
More documentation and fixes for Examples, Tutorials, and Util
* Expanded and created README files for Examples, Tutorials, and Util
* Cleaned up Denchar (removed Tests directory from distribution) 
  and Vibra (new compilation scheme, using the top-level arch.make)
* Fixed end-of-file handling in sies2arc.


Show diffs side-by-side

added added

removed removed

Lines of Context:
Util/Vibra/Vibra/fdf/io_sample.f
1
 
c
2
 
      program io_sample
3
 
 
4
 
      integer stderr
5
 
      
6
 
      call io_geterr(stderr)
7
 
 
8
 
      call io_assign(lun)
9
 
      open(lun,file='OUTPUT',status='unknown')
10
 
      call io_setout(lun)
11
 
 
12
 
      call io_status
13
 
 
14
 
      call io_assign(lun)
15
 
      open(lun,file='file2',status='unknown')
16
 
 
17
 
      call io_status
18
 
 
19
 
      call io_close(lun)
20
 
 
21
 
      call io_assign(lun)
22
 
      open(lun,file='file3',form='unformatted',status='unknown')
23
 
 
24
 
      call io_status
25
 
 
26
 
      write(stderr,*) ' Error messages appear here'
27
 
 
28
 
      end
29
 
 
30