From f371c5b68e536d408638612c16185df6e8da188f Mon Sep 17 00:00:00 2001
From: g7fernandes <gafernandesil@gmail.com>
Date: Sun, 15 Sep 2019 00:54:16 -0300
Subject: [PATCH] =?UTF-8?q?corre=C3=A7=C3=B5es=20no=20caso=20periodico?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 saida.f90 | 3 ++-
 teste.f90 | 6 +++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/saida.f90 b/saida.f90
index a13adb5..c025c7b 100644
--- a/saida.f90
+++ b/saida.f90
@@ -8,7 +8,8 @@ subroutine vec2csv(v,n,d,prop,step,t,nimpre,start,concat0)
         logical, optional :: concat0
         logical :: laux
         integer, intent(in) :: n,d
-        real(dp), intent(in) :: v(n,d), t, start
+        real(dp), allocatable, intent(in) :: v(:,:)
+        real(dp), intent(in) :: t, start !, v(n,d)
         integer :: i,step, nimpre, ic1, cpu_countrate, horas, min 
         real(dp) :: sec
         character(*) :: prop
diff --git a/teste.f90 b/teste.f90
index b9b1d07..0dbd088 100644
--- a/teste.f90
+++ b/teste.f90
@@ -13,6 +13,9 @@ program teste
     real :: a(10) 
     real, parameter :: PI = 3.1415, kb = 1.38064852E-23
     integer :: b(10)
+    integer :: c
+
+    
 
     b = [0,1,0,1,0,0,1,0,1,0]
 
@@ -22,6 +25,7 @@ program teste
     print*, "rem a por 2*pi", modulo(a,2*pi)*180/pi
 
     include "teste_include.f90"
-    
+    c = 7
+    print*, "c = ", c,  "c/2 = ", c/2
 
 end program teste
\ No newline at end of file