← Back to branch summary

~jose-soler/siesta/unfolding

« back to all changes in this revision

Viewing changes to Pseudo/atom/ext.f

  • Committer: Alberto Garcia
  • Date: 2016-01-25 16:00:16 UTC
  • mto: (483.3.1 rel-4.0)
  • mto: This revision was merged to the branch mainline in revision 485.
  • Revision ID: albertog@icmab.es-20160125160016-c1qivg1zw06kgyfd
Prepare GPL release

* Include proper headers

* Add Docs/Contributors.txt and NOTICE.txt files.

* Update READMEs and LICENSE files in several directories.

* Remove Pseudo/atom, Util/test-xml

* Remove DOM files from Src/xmlparser

Show diffs side-by-side

added added

removed removed

Lines of Context:
Pseudo/atom/ext.f
1
 
C
2
 
c $Id: ext.f,v 1.2 1997/05/22 17:32:13 wdpgaara Exp $
3
 
c
4
 
c $Log: ext.f,v $
5
 
c Revision 1.2  1997/05/22 17:32:13  wdpgaara
6
 
c Moving from RCSfiles to ATM_1_0
7
 
c
8
 
c Revision 1.1.1.1  1997/01/07 08:38:54  wdpgaara
9
 
c Froyen-Troullier-Martins-AG atom code
10
 
c
11
 
c Revision 1.1  1991/12/14  00:34:49  alberto
12
 
c Initial revision
13
 
c
14
 
C
15
 
C
16
 
      subroutine ext(i)
17
 
c
18
 
c  Stops program in case of errors or completion.
19
 
c
20
 
c  i is a stop parameter
21
 
c   000-099 main (0 is normal exit)
22
 
c   100-199 input
23
 
c   200-299 charge
24
 
c   300-399 vionic
25
 
c   400-499 velect
26
 
c   500-599 dsolv1
27
 
c   600-699 dsolv2 (including difnrl and difrel)
28
 
c   700-799 etotal
29
 
c   800-899 pseudo, pseudk, pseudt and pseudv
30
 
c
31
 
C     .. Scalar Arguments ..
32
 
      integer i
33
 
C     ..
34
 
      if (i .ne. 0) write(6,FMT=9000) i
35
 
 9000 format('stop parameter =',i3)
36
 
      close(unit=1)
37
 
      close(unit=3)
38
 
      close(unit=5)
39
 
      close(unit=6)
40
 
c
41
 
      stop
42
 
c
43
 
      end