! A fortran95 program for G95
! By WQY
!program main


implicit none

integer i, j, k, aux, A(3,3), B(3,3), C(3,3), D(3,3)
INTEGER N, AUX2, seletor
INTEGER M,AUX3, RESULT
RESULT = 1


print *, 'Informe a função que deseja realizar: 1- Receber números inteiros para matriz 3x3 2 - Fatorial de um número inteiro'
read *, seletor

SELECT CASE (seletor)
   CASE (1)

        do i = 1,3

            do j = 1,3

                print *, 'Informe o valor da posicao: (',i,'-',j,') da matriz A'

                read *, A(i,j)

            end do

        end do

        do i = 1,3

            do j = 1,3

                print *, 'Informe o valor da posicao: (',i,'-',j,') da matriz B'

                read *, B(i,j)



                !COLOCA FUNÇÃO PARA VER SE É PRIMO
                !DEPOIS COLOCA ADICIONA 1 EM UMA VARIÁVEL

            end do

        end do

        do i = 1,3

            do j = 1,3

                C(i,j)=A(i,j)-B(i,j)

            end do

        end do


        DO I=1,3

            DO J=1,3

            AUX = 0

                DO K = 1,3

                    AUX = AUX + A(I,K) * C(K,J) !

                END DO

                D(I,J) = AUX

            END DO

        END DO


        ! IMPRIME MATRIZES
        PRINT *,'VEJA A MATRIZ A'
        DO I=1,3

            DO J=1,3

                PRINT *,A(I,J)

            END DO

        PRINT *,' '

        END DO

        PRINT *,'VEJA A MATRIZ B'

        DO I=1,3

            DO J=1,3

                PRINT *,B(I,J)

            END DO

        PRINT *,' '

        END DO

        print *, 'VEJA MATRIZ C'

        do i=1,3

            do j=1,3

                print *, C(i,j)

            end do

        print*, ' '

        end do

        PRINT *,'VEJA A MATRIZ D'

        DO I=1,3

            DO J=1,3

                PRINT *,D(I,J)

            END DO

            PRINT *,' '

        END DO

!print *, 'quantidade de números primos: (',variavel,')' !IMPRIME QUANTOS NÚMEROS PRIMOS EXISTEM


   CASE (2)

    print *, 'Digite o valor do número fatorial'
    read *, M
       DO AUX = M, 1, -1

        RESULT = RESULT * AUX

        END DO

        PRINT*, 'FATORIAL DE ' , M, ' = ', RESULT

   CASE DEFAULT
      WRITE(*,*)  "Fim do programa"
END SELECT



stop

end