fortran 77에서 문자 변수를 초기화하는 방법은 무엇입니까?

Question

는

character*100 xx 

내가 어떤 가치, 가능성이 일부 인쇄 가능한 문자 또는 공백으로 초기화 할 변수를 고려한다. 시도했습니다

data xx /100*char(120)/ 

하지만 작동하지 않았습니다. 최소 작업 예 :

cat car_array.F 
    character*10 xx 
    data xx /10*char(120)/ 
    write(*,*)xx 
    end 


    ifort car_array.F 
    car_array.F(2): error #6169: This construct is not valid in this context. [CHAR] 
      data xx /10*char(120)/ 
    --------------------^ 
    compilation aborted for car_array.F (code 1) 

Answer 1

당신이 정말 F77 표준 준수 할 필요가 없습니다 대담한 가정을 만들기는 당신은 시도해야합니다 :

character*10 :: xx=repeat(char(120),10) 

F77에서 당신이 만드는 데 필요한 것 런타임 할당,

character*10 xx 
    integer i 
    do i=1,10 
    xx(i:i)=char(120) 
    end do 

내가이 성을 초기화하기 위해 반복 횟수를 data 문을 사용하여 볼 수있는 유일한 방법 F77의 링 길이 1 문자 배열과 동등한를 통해, 그리고 여기 당신은 char 기능을 사용할 수 없습니다

equivalence(x,y) 
    character*10 x 
    character*1 y(10) 
    data y/10*'a'/ 
    write(*,*)x 

agentp의 포스트 매우 유사 aaaaaaaaaa

Answer 2

. 컴파일 타임 PARAMETER 문에서 CHAR() 함수를 사용하면 간접적으로 CHAR() 함수를 사용할 수 있습니다. Old-timey이지만이 방법은 openVMS Fortran에서 작동합니다.

PARAMETER CHAR_120 = CHAR(120) 

CHARACTER*1  X(10) /10*CHAR_120/ 
CHARACTER*10 XX 
EQUIVALENCE (X, XX) 

TYPE *,XX