Skip to content

Instantly share code, notes, and snippets.

Hans Rogério Zimermann zrhans

Block or report user

Report or block zrhans

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View volumes_esfera.f90
program volumes
implicit none
real, parameter :: pi = 3.14159265359
real :: volume = 0.0
integer :: raio
! iterando 10 vezes
open(unit=10, file='volumes.csv', status='unknown')
do raio = 1, 10
View forca-magnetica.f90
!gfortran, gcc version 5.4.0 20160609
program forca_magnetica
real :: B = 1.2 ! [mT]
real :: K = 5.3 ! [MeV]
real :: m = 1.6726219 * 1e-27 !1e-27 ! [Kg]
real :: q = 1.60217662 * 1e-19 ! [C]
real :: v = 0.0
View matrix_001.f90
! Atividade:https://my.pcloud.com/publink/show?code=XZn8R57ZwL98CRSObpY6l3Bb75cirVU9Ky5k
!
program work_3
implicit none ! Adicionado por Hans
integer :: nc, nl, i, j
real,dimension(:,:), allocatable :: matriz
real,dimension(:), allocatable :: maxval1(:)
logical :: exis_arq
View denrlei-fatorial.f90
!Software para calcular o fatorial de nùmeros inteiros
!Desenvolvido por Denrlei Machado da Silva em 18/11/2017
!Versão 2017
program fatorial1
implicit none
!Declaração das variáveis
real :: a, x
real :: fatorial
View matrizes-2017-11-17.f90
program matrizes
implicit none
!Declarar vars linhas e colunas i,j
integer :: i,j
integer, dimension(3,3) :: ID3
integer, dimension(3,3) :: A !linha1 linha2 linha3
integer, dimension(3,3) :: B = reshape((/3,1,5, 9,1,7, 2,1,0/),(/3,3/))
integer, dimension(3,3) :: C
View arrays.f90
! Codigo usado na aula do dia 13-11-2017
program arrays
real :: a(2), b(2), c(2), soma, media
real :: x(3), y(3), maximo(1)
real :: pe, co
a = 0.; b = 0.; c = 0.
x = (/2,4,2/); y = (/1,3,2/)
a = b * c ! produto entre dois arrays
View subprogramas_internos.f90
program mainprog
implicit none
real :: a, b
a = 2.0
b = 3.0
Print *, "Before calling swap"
Print *, "a = ", a
Print *, "b = ", b
View internal_subprogram.f90
program program_name
implicit none
! type declaration statements
! executable statements
. . .
contains
! internal procedures
. . .
end program program_name
View callling_func_intent.f90
program calling_func
implicit none
real :: x, y, z, disc
x= 1.0
y = 5.0
z = 2.0
call intent_example(x, y, z, disc)
View calling_func.f90
program calling_func
implicit none
real :: a, b
a = 2.0
b = 3.0
Print *, "Before calling swap"
Print *, "a = ", a
Print *, "b = ", b
You can’t perform that action at this time.