← Back to branch summary

~ubuntu-branches/debian/stretch/abinit/stretch

« back to all changes in this revision

Viewing changes to src/11util/int2char4.F90

  • Committer: Bazaar Package Importer
  • Author(s): Christophe Prud'homme
  • Date: 2007-09-14 13:05:00 UTC
  • Revision ID: james.westby@ubuntu.com-20070914130500-1kzh2mrgo6ir4b6i
Tags: upstream-5.3.4.dfsg
Import upstream version 5.3.4.dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/11util/int2char4.F90
 
1
!{\src2tex{textfont=tt}}
 
2
!!****f* ABINIT/int2char4
 
3
!! NAME
 
4
!! int2char4
 
5
!!
 
6
!! FUNCTION
 
7
!! Convert an integer number to ("2") a character(len=4)
 
8
!! Makes sure that the integer is between 0 and 9999
 
9
!!
 
10
!! COPYRIGHT
 
11
!! Copyright (C) 2002-2007 ABINIT group (XG).
 
12
!! This file is distributed under the terms of the
 
13
!! GNU General Public License, see ~abinit/COPYING
 
14
!! or http://www.gnu.org/copyleft/gpl.txt .
 
15
!! For the initials of contributors, see ~abinit/doc/developers/contributors.txt .
 
16
!!
 
17
!! INPUTS
 
18
!!  iint=integer to be converted
 
19
!!
 
20
!! OUTPUT
 
21
!!  string=character string
 
22
!!
 
23
!! SIDE EFFECTS
 
24
!!
 
25
!! PARENTS
 
26
!!      anascr,contract_int_list,gstate,iofn1,optic,read_wfrspa,respfn,scfcv
 
27
!!      scfcv3,symgamma,tddft,tetrahedron
 
28
!!
 
29
!! CHILDREN
 
30
!!      leave_new,wrtout
 
31
!!
 
32
!! SOURCE
 
33
 
 
34
#if defined HAVE_CONFIG_H
 
35
#include "config.h"
 
36
#endif
 
37
 
 
38
subroutine int2char4(iint,string)
 
39
 
 
40
 use defs_basis
 
41
 
 
42
!This section has been created automatically by the script Abilint (TD). Do not modify these by hand.
 
43
#ifdef HAVE_FORTRAN_INTERFACES
 
44
 use interfaces_01manage_mpi
 
45
#endif
 
46
!End of the abilint section
 
47
 
 
48
 implicit none
 
49
 
 
50
!Arguments ------------------------------------
 
51
!scalars
 
52
 integer,intent(in) :: iint
 
53
 character(len=4),intent(out) :: string
 
54
 
 
55
!Local variables-------------------------------
 
56
!scalars
 
57
 character(len=500) :: message
 
58
 
 
59
! *************************************************************************
 
60
 
 
61
 if(iint<0 .or. iint>9999)then
 
62
  write(message, '(a,a,a,a,a,a,i10)' ) ch10,&
 
63
&  ' int2char4: ERROR -',ch10,&
 
64
&  '  The integer argument should be between 0 and 9999, while',ch10,&
 
65
&  '  it is ',iint
 
66
    call wrtout(6,message,'COLL')
 
67
    call leave_new('COLL')
 
68
 end if
 
69
 if(iint<10)then
 
70
  write(string,'("000",i1)')iint
 
71
 else if(iint<100)then
 
72
  write(string,'("00",i2)')iint
 
73
 else if(iint<1000)then
 
74
  write(string,'("0",i3)')iint
 
75
 else
 
76
  write(string,'(i4)')iint
 
77
 end if
 
78
 
 
79
end subroutine int2char4
 
80
!!***