Fortran runtime error: Insufficient data descriptors in format after reversion

Applications Programming
1

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/)

2

Hi.

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

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

compile and execute:

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

whereas six.f90:

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

compile and execute:

                                  1

So look at your format 2.

Found by Googling:
Insufficient data descriptors in format after reversion

Best wishes ... cheers, drl

1 Like