Programming

Hello,

I have some Fortran code that is providing the following error:

At line 1165 of lapc_shells_2.f
Fortran runtime error: Insufficient data descriptors in format after reversion

Here are the lines just above and including 1165:

WRITE (*,"('ATTEMPTING TO READ PLATE BOUNDARIES')")
READ (*,"(A)") TITLE5
OPEN (UNIT = IUNITM, FILE = TITLE5)
WRITE (IUNITT,2) IUNITM <---------------1165

It's reading a file that starts out like this:


AF-AN Mueller et al. [1987]
-4.37900E-01,-5.48518E+01
-3.88257E-02,-5.46772E+01
+4.43182E-01,-5.44512E+01
+9.64534E-01,-5.48322E+01
+1.69481E+00,-5.43990E+01
+2.35975E+00,-5.40374E+01
+3.02542E+00,-5.36507E+01
+3.36894E+00,-5.38341E+01
+3.95638E+00,-5.41267E+01
+4.41458E+00,-5.44303E+01
+4.82661E+00,-5.41616E+01
+5.08372E+00,-5.43093E+01

Any idea why this error is occurring?

Thanks

---------- Post updated at 03:51 PM ---------- Previous update was at 02:18 PM ----------

I forgot an important part to the above post.

The 2 refers to this line:

2 FORMAT (/' ATTEMPTING TO READ PLATE OUTLINES FROM UNIT', /)

Got it! For future reference the answer is to add more information at the end of line 2.


2 FORMAT (/' ATTEMPTING TO READ PLATE OUTLINES FROM UNIT', I3/)

Hi.

You didn't post what format 2 looked like, so I'll need to guess. Suppose you had four.f90:

Code:

program test
  implicit none
  integer :: n
  n = 1
  write(*,2) n
2 format(t33)
end program test

compile and execute:

Code:

At line 5 of file four.f90 (unit = 6, file = 'stdout')
Fortran runtime error: Insufficient data descriptors in format after reversion

whereas six.f90:

Code:

program test
  implicit none
  integer :: n
  n = 1
  write(*,2) n
2 format(t33, i3)
end program test

compile and execute:

Code:

                                  1

So look at your format 2.

Found by Googling:
Insufficient data descriptors in format after reversion

Best wishes ... cheers, drl