[SOLVED] Formatting following numbers in fortran

parekhharsh_j · 06-28-2011, 02:29 PM

I am getting error
Fortran runtime error: Bad value during floating point read
How do I format negative sign?

Code:

REAL(kind=10), DIMENSION(:),ALLOCATABLE::u,v
ALLOCATE(u(5),v(5))

OPEN(UNIT=9,FILE='NSSAVE0001.vtk',STATUS='old',IOSTAT=open_status)
IF(open_status>0) STOP "problem opening the file"
DO n=1,5
READ(9,'(1X,E11.5,1X,E11.5)')u(n),v(n)
ENDDO

PHP Code:



  0.12383E+00 -0.35216E-04 0. 
  0.12376E+00 -0.35447E-04 0. 
  0.12369E+00 -0.35671E-04 0. 
  0.12362E+00 -0.35892E-04 0. 
  0.12355E+00 -0.36113E-04 0.

colucix · 06-28-2011, 02:48 PM

Code:

READ(9,'(1X,E12.5,1X,E12.5)') u(n), v(n)