포트란 기본 예제6 (선택구조 SELECT CASE)

Select Case 문 

program mainprocedure
    implicit none
    intrinsic modulo           
    ! modulo(a,b)는 a를 b로 나눌때 나머지를 계산하는 내장함수. 값이 0이면 a는 b의 배수임.
    integer :: year, month, days
    
10  print *, ' type year and month ? '    
    ! print * 은 표준 출력장치(화면)을 사용할 경우. write(*,*)와 같은 의미
    if (year <= 0)   
    
    select case (month)
        case (4,6,9,11)
        days = 30
    case (2)
        if (modulo(year, 4) == 4) then 
            days = 29
        else 
            days = 28
        end if
    case default
        days = 31 
    end select
    
    print *, " The number of dasy in month : ", month, ' is ', days
    goto 10
end program mainprocedure