correções no caso periodico

g7fernandes · Sep 15, 2019 · f371c5b · f371c5b
1 parent 7c9e97d
commit f371c5b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git 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
@@ -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