하룻강아지의 노트

에러 메시지 문제 발생 코드 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 PROGRAM Unexpected_STATEMENT_FUNCTION IMPLICIT NONE INTEGER :: i DOUBLE PRECISION :: a ! Error line, "a" is NOT array DOUBLE PRECISION, ALLOCATABLE :: b(:) ALLOCATE(b(4)) DO i = 1, 4 a(i) = i ! Error line refered by compiler, "a" is array b(i) = i*10.d0 ENDDO WRITE(*,*) ">> a:", a WRITE(*,*) ">> b:", b END PROGRAM Unexpected_STATEME..

에러 메시지 >> Error: IF clause at (1) requires a scalar LOGICAL expression 1 2 3 4 5 ./SOURCE/{file_name}.f90:8523.9: IF(DEAD_SIDE_TM(I))THEN 1 Error: IF clause at (1) requires a scalar LOGICAL expression cs 해결방법 - 에러 메시지가 IF 문에는 logical 표현이 필요하다고 하니, integer 변수 DEAD_SIDE_TM(I)만 사용하지 말고, logical 표현으로 변경 - 문제 발생 코드 1 2 3 4 5 IF(DEAD_SIDE_TM(I)) THEN ... ENDIF cs - 변경 및 해결 완료 코드 1 2 3 4 5 IF(DEAD_SIDE..