diff --git a/funcoes.f90 b/funcoes.f90 index 3e84ce9..a9149a7 100644 --- a/funcoes.f90 +++ b/funcoes.f90 @@ -955,7 +955,7 @@ subroutine gera_arquivos(a,b,c) do i=1,nfreq write(rea_char, '(I3)') i open (400*c+i,file='mag_tempo'//rea_char//'.plt') -write(400*c+i,*) 'Variables="H","dH/dt","Mx","My","Mz","dMx","dMy","dMz","t"' +write(400*c+i,*) 'Variables="H","dH/dt","Mx","My","Mz","dMx/dt","dMy/dt","dMz/dt","t"' end do end if @@ -992,7 +992,7 @@ subroutine gera_arquivos(a,b,c) if(grafmag) then open(5*c,file='mag_tempo.plt') -write(5*c,*)'Variables="H","dH/dt","Mx","My","Mz","dMx","dMy","dMz","t"' +write(5*c,*)'Variables="H","dH/dt","Mx","My","Mz","dMx/dt","dMy/dt","dMz/dt","t"' end if if(printphi) then