Fixed header format in pxa.dat

geodynamics · Dec 1, 2015 · c01c981 · c01c981
1 parent e2a7df0
commit c01c981
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/px.f90 b/src/px.f90
@@ -197,10 +197,10 @@ PROGRAM PIX
 !
       write(*,*) '    - Building file pxa.dat' 
       open(8,file='pxa.dat',status='unknown') 
-      Write(8,*) "----------------------------------------------"  
-      Write(8,*) " Pixels lon-lats and with increasing latitude "
-      Write(8,*) "  pixel lon(deg), lat (deg), anchor, pixel #  "   
-      Write(8,*) "----------------------------------------------"         
+      Write(8,*) "# ----------------------------------------------"  
+      Write(8,*) "#  Pixels lon-lats and with increasing latitude "
+      Write(8,*) "#   pixel lon(deg), lat (deg), anchor, pixel #  "   
+      Write(8,*) "# ----------------------------------------------"         
       do 5 i=1, np 	
 !      do 5 j=1, nl 	
 !	   if(imin(j)<=i.and.i<=imax(j)) &