포트란 기본 예제2 (자유형식)

! 포트란95는 자유로운 형식으로 코딩할 수 있다.

 

! 3x2 배정도 실수형 배열 a, b의 요소 덧셈, 뺄셈, 곰셉 결과를 요소로 하는 배열을
    ! 각각 c,d,e 일때 자유형식으로 작성한 프로그램

! 자유형식 프로그램의 편리함을 보자 

    program freeform

    implicit none
    
    real(kind=8), dimension(3,2) :: a=1, b=2, c,d,e  ! 배열변수 선언
    
    write(*,*) a
    write(*,*) ' '
    write(*,*) b
    write(*,*) ' '
    write(*,*) c
    write(*,*) ' '
    write(*,*) d
    write(*,*) ' '
    write(*,*) e
       c = a + b; d = a - b ; e = a * b              ! 배열명만으로 계산 가능

       write(*,*) ' '
       write(*,*) a,b,c,d,e         ! 계산결과 출력
    
    pause
    end program freeform