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