Ignore:
Timestamp:
Mar 20, 2019 3:26:35 PM (3 years ago)
Author:
raasch
Message:

output format adjusted, unused variable removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/surface_output_processing/surface_output_to_vtk.f90

    r3755 r3805  
    2525! -----------------
    2626! $Id$
     27! output format adjusted
     28!
     29! 3755 2019-02-19 17:03:19Z suehring
    2730! - Change format description to avoid *** for larger domains
    2831! - switch back from to non-standard Fortran ftell and fseek since posix
     
    262265
    263266          WRITE( file_id_out_header,'(A)') "DATASET POLYDATA"
    264           WRITE( file_id_out_header,'(A,I5,A)') "POINTS ", npoints_total, " float"
     267          WRITE( file_id_out_header,'(A,I12,A)') "POINTS ", npoints_total, " float"
    265268       ENDIF     
    266269!
Note: See TracChangeset for help on using the changeset viewer.