[cig-commits] r21074 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/src

[ampuero at geodynamics.org]

Author: ampuero
Date: 2012-11-26 18:07:13 -0800 (Mon, 26 Nov 2012)
New Revision: 21074

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90
Log:
fixed dataT output format

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90	2012-11-27 00:37:53 UTC (rev 21073)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90	2012-11-27 02:07:13 UTC (rev 21074)
@@ -451,7 +451,7 @@
 
   IOUT = 121 !WARNING: not very robust. Could instead look for an available ID
 
-  write(my_fmt,'(a,i1,a)') '(',dataT%ndat,'(E15.7))'
+  write(my_fmt,'(a,i1,a)') '(',dataT%ndat+1,'(E15.7))'
     
   do i=1,dataT%npoin
     open(IOUT,file='OUTPUT_FILES/'//trim(dataT%name(i))//'.dat',status='replace')
@@ -469,7 +469,7 @@
     enddo
     write(IOUT,*) "#"
     write(IOUT,*) "# The line below lists the names of the data fields:"
-    write(IOUT,*) "# t ", dataT%shortFieldNames
+    write(IOUT,*) "# t " // trim(dataT%shortFieldNames)
     write(IOUT,*) "#"
     do k=1,dataT%nt
       write(IOUT,my_fmt) k*dataT%dt, dataT%dat(:,k,i)