1!$Id:$
2      function cvtc2i(cdev)
3
4!      * * F E A P * * A Finite Element Analysis Program
5
6!....  Copyright (c) 1984-2017: Regents of the University of California
7!                               All rights reserved
8
9!-----[--.----+----.----+----.-----------------------------------------]
10!      Purpose: Convert a character to an integer
11
12!      Inputs:
13!         cdev    - Character array to convert
14
15!      Outputs:
16!         cvtc2i  - Integer value of character
17!-----[--.----+----.----+----.-----------------------------------------]
18      implicit  none
19
20      integer   cvtc2i
21      character cdev(12)*1
22      integer   i,n,nz
23
24      nz= ichar('0')
25      n = 0
26      do i = 1,12
27        if(cdev(i).eq.char(0) .or. cdev(i).eq.' ') go to 200
28        n = 10*n + (ichar(cdev(i)) - nz)
29      end do
30
31200   cvtc2i = n
32
33      end
34