Fortran 90에서 문자열을 정수로 변환

Question

IACHAR(s)은 문자열 s의 첫 번째 문자 위치에 ASCII 문자의 코드를 반환하지만 전체 문자열을 정수로 변환해야한다는 것을 알고 있습니다. 또한 몇 개의 문자열 (약 30 개 문자열, 각각 최대 20 문자로 구성)이 있습니다. Fortran 90에서 각각의 고유 한 정수로 변환 할 수있는 방법이 있습니까?

Answer 1

당신은 read 정수 변수에 캐릭터 수

module str2int_mod 
contains 

    elemental subroutine str2int(str,int,stat) 
    implicit none 
    ! Arguments 
    character(len=*),intent(in) :: str 
    integer,intent(out)   :: int 
    integer,intent(out)   :: stat 

    read(str,*,iostat=stat) int 
    end subroutine str2int 

end module 

program test 
    use str2int_mod 
    character(len=20) :: str(3) 
    integer   :: int(3), stat(3) 

    str(1) = '123' ! Valid integer 
    str(2) = '-1' ! Also valid 
    str(3) = 'one' ! invalid 

    call str2int(str,int,stat) 

    do i=1,3 
    if (stat(i) == 0) then 
     print *,i,int(i) 
    else 
     print *,'Conversion of string ',i,' failed!' 
    endif 
    enddo 
end program