Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

READING DATA FROM A LARGE FILE 2

Status
Not open for further replies.
lehloks

lehloks

Programmer
Jul 12, 2013
40
ZA
HI guys
I have an output data that I need to read and place it in different columns and have labels on top not on the left side. I have a little code for this but I can read all the data I want to read and place it in different colums as I want:
Here the code I have rewriten: I need to read the highlighted data in bold and place it in columns as stated above


Regards
Lehloks

..............................................................................................................................

program read_data
implicit none
integer stepno, arrsize
real steptime, datum, datum_1,datum_2,datum_3,datum_4
real, allocatable :: array:))
real, allocatable :: charge:))
integer iunit

open(newunit=iunit,file='STATIS',status='old')
read(iunit,'()')
read(iunit,'()')
do
read(iunit,'(i10,f14.0,i10)',end=10) &
stepno,steptime,arrsize
allocate(array(arrsize))
read(iunit,'(5f14.0)') array
datum = array(36)
datum_1 =array(37)
datum_2 =array(38)
! allocate(charge(arrsize))
! read(iunit,'(5f14.0)') array
! datum = array(38)
! format(2x,'a=',f10.5,2x,'b=',f10.5,2x,'n=',i4,2x,'apot=',f20.15)
! WRITE(*,'(E10.6,8(2X,E10.6))')

write(*,'(3(es14.6e2))')
! write(*,'(3(a,es14.6e2))') 'Step time =', &
! steptime,', datum =',datum,', datum_1 =',datum_1,', datum_2 =',datum_2

deallocate(array)
! deallocate(charge)
end do
10 continue
end program read_data

!OPEN(UNIT = 13, FILE = 'DFILE.txt', STATUS = 'OLD')

!read(13,'(i1)')N
!allocate(PA(N))
!allocate(PB(N))
!allocate(PC(N))
!allocate(PD(N))
!allocate(PE(N))
!allocate(PF(N))
!allocate(PG(N))
!allocate(PH(N))
!allocate(PI(N))

!DO R = 1, N
! READ(13,'(E13.6,8(2X,E13.6))')PA(R),PB(R),PC(R),PD(R),&
! PE(R),PF(R),PG(R),PH(R),PI(R)

! WRITE(*,'(E13.6,8(2X,E13.6))')PA(R),PB(R),PC(R),PD(R),&
! PE(R),PF(R),PG(R),PH(R),PI(R)
!ENDDO

!end program main
................................................................................................................................

DATA[/b]:

MgSiO3 Perovskite using Alison Wall model
ENERGY UNITS=electron Volts
10 1.000000E-02 48
-4.342202E+04 2.745104E+03 -4.403020E+04 8.879340E+03 -5.290954E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.341588E+04
0.000000E+00 1.197946E+03 -5.170810E+04 5.290605E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.688629E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 5.751242E-01 0.000000E+00 0.000000E+00 0.000000E+00
2.929603E+00 3.688254E+00 -1.829384E+00 3.688254E+00 1.754018E+00
8.892383E-01 -1.829384E+00 8.892383E-01 -2.958248E+00 2.565536E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.565536E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.565536E+01
20 2.000000E-02 48
-4.342063E+04 2.662520E+03 -4.401051E+04 8.932975E+03 -5.294349E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.337687E+04
0.000000E+00 1.048502E+03 -5.189159E+04 5.294009E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.689234E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 4.096082E+00 0.000000E+00 0.000000E+00 0.000000E+00
3.605396E+00 3.817738E+00 -1.588635E+00 3.817738E+00 7.371576E+00
-6.543485E-01 -1.588635E+00 -6.543485E-01 1.311275E+00 2.565842E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.565842E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.565842E+01
30 3.000000E-02 48
-4.340100E+04 2.750015E+03 -4.401028E+04 8.931365E+03 -5.294164E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.334942E+04
0.000000E+00 1.063785E+03 -5.187443E+04 5.293822E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.690591E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 4.825026E+00 0.000000E+00 0.000000E+00 0.000000E+00
1.388851E+00 6.071435E+00 6.222573E-01 6.071435E+00 7.364409E+00
-1.988894E+00 6.222573E-01 -1.988894E+00 5.721819E+00 2.566529E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.566529E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.566529E+01
40 4.000000E-02 48
-4.340071E+04 2.726387E+03 -4.400475E+04 8.893358E+03 -5.289811E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.338372E+04
0.000000E+00 1.157086E+03 -5.173744E+04 5.289453E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.691463E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 1.588967E+00 0.000000E+00 0.000000E+00 0.000000E+00
-2.691109E+00 7.424682E+00 4.256815E+00 7.424682E+00 5.195487E+00
-3.658003E+00 4.256815E+00 -3.658003E+00 2.262524E+00 2.566970E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.566970E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.566970E+01
50 5.000000E-02 48
-4.339559E+04 2.803722E+03 -4.401676E+04 8.856416E+03 -5.287318E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.340127E+04
0.000000E+00 1.259382E+03 -5.161026E+04 5.286964E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.691643E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 -5.307975E-01 0.000000E+00 0.000000E+00 0.000000E+00
-4.339224E+00 3.178968E+00 1.650271E-01 3.178968E+00 1.982409E+00
-3.321507E-01 1.650271E-01 -3.321507E-01 7.644225E-01 2.567061E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.567061E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.567061E+01
60 6.000000E-02 48
-4.340740E+04 2.641404E+03 -4.399261E+04 8.871264E+03 -5.286388E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.343189E+04
0.000000E+00 1.243870E+03 -5.161652E+04 5.286038E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.691200E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 -2.289050E+00 0.000000E+00 0.000000E+00 0.000000E+00
-8.008839E+00 1.749894E+00 9.809765E-01 1.749894E+00 1.376657E+00
-3.355454E+00 9.809765E-01 -3.355454E+00 -2.349680E-01 2.566837E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.566837E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.566837E+01
70 7.000000E-02 48
-4.338339E+04 2.772948E+03 -4.399775E+04 8.878612E+03 -5.287636E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.337333E+04
0.000000E+00 1.198542E+03 -5.167445E+04 5.287299E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.691060E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 9.402781E-01 0.000000E+00 0.000000E+00 0.000000E+00
-3.648047E+00 3.260050E-01 3.159112E+00 3.260050E-01 3.135602E+00
1.086856E+00 3.159112E+00 1.086856E+00 3.333279E+00 2.566766E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.566766E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.566766E+01
80 8.000000E-02 48
-4.338830E+04 2.730652E+03 -4.399329E+04 8.935455E+03 -5.292874E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.334711E+04
0.000000E+00 1.086382E+03 -5.183880E+04 5.292518E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.691691E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 3.850525E+00 0.000000E+00 0.000000E+00 0.000000E+00
2.888392E+00 4.780251E+00 -1.044040E+00 4.780251E+00 4.001642E+00
2.181758E+00 -1.044040E+00 2.181758E+00 4.661541E+00 2.567086E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.567086E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.567086E+01
90 9.000000E-02 48
-4.338385E+04 2.786654E+03 -4.400124E+04 8.913111E+03 -5.291435E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.334849E+04
0.000000E+00 1.128712E+03 -5.178208E+04 5.291079E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.692666E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 3.302934E+00 0.000000E+00 0.000000E+00 0.000000E+00
6.592381E+00 8.515005E+00 -4.749211E-01 8.515005E+00 -1.289925E+00
2.917594E+00 -4.749211E-01 2.917594E+00 4.606346E+00 2.567579E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.567579E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.567579E+01
100 1.000000E-01 48
-4.339182E+04 2.735197E+03 -4.399781E+04 8.938879E+03 -5.293669E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.335158E+04
0.000000E+00 1.091287E+03 -5.184184E+04 5.293312E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.693403E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 3.756643E+00 0.000000E+00 0.000000E+00 0.000000E+00
9.510231E+00 7.369906E+00 -5.079313E-02 7.369906E+00 -2.826299E+00
1.206644E-02 -5.079313E-02 1.206644E-02 4.585997E+00 2.567951E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.567951E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.567951E+01
110 1.100000E-01 48
-4.338833E+04 2.770362E+03 -4.400211E+04 8.934787E+03 -5.293690E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.334443E+04
0.000000E+00 1.095865E+03 -5.183735E+04 5.293321E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.694582E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 4.096304E+00 0.000000E+00 0.000000E+00 0.000000E+00
5.675703E+00 4.261052E+00 -1.856161E+00 4.261052E+00 1.117220E+00
-5.114345E-01 -1.856161E+00 -5.114345E-01 5.495990E+00 2.568547E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.568547E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.568547E+01
120 1.200000E-01 48
-4.339271E+04 2.753539E+03 -4.400276E+04 8.869902E+03 -5.287266E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.339465E+04
0.000000E+00 1.225934E+03 -5.164312E+04 5.286906E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.694984E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 -1.811241E-01 0.000000E+00 0.000000E+00 0.000000E+00
-4.790543E+00 -1.927001E+00 -2.845512E+00 -1.927001E+00 2.023010E+00
-8.144502E-02 -2.845512E+00 -8.144502E-02 2.224161E+00 2.568750E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.568750E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.568750E+01
130 1.300000E-01 48
-4.339347E+04 2.752278E+03 -4.400325E+04 8.941813E+03 -5.294506E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.334389E+04
0.000000E+00 1.070812E+03 -5.187048E+04 5.294130E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.695386E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 4.624118E+00 0.000000E+00 0.000000E+00 0.000000E+00
-3.211007E+00 -3.316756E+00 -1.974711E+00 -3.316756E+00 8.701281E+00
2.452575E+00 -1.974711E+00 2.452575E+00 8.382080E+00 2.568953E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.568953E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.568953E+01
140 1.400000E-01 48
-4.339367E+04 2.761503E+03 -4.400549E+04 8.908368E+03 -5.291385E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.337046E+04
0.000000E+00 1.154019E+03 -5.175581E+04 5.290983E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.696560E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 2.162902E+00 0.000000E+00 0.000000E+00 0.000000E+00
-5.754450E+00 2.772456E+00 -2.350762E+00 2.772456E+00 7.207171E+00
-3.098741E-01 -2.350762E+00 -3.098741E-01 5.035983E+00 2.569546E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.569546E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.569546E+01
150 1.500000E-01 48
-4.339645E+04 2.803014E+03 -4.401746E+04 8.812663E+03 -5.283012E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.344678E+04
0.000000E+00 1.393028E+03 -5.143326E+04 5.282629E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.696187E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 -4.692047E+00 0.000000E+00 0.000000E+00 0.000000E+00
-8.032210E+00 1.587956E+00 -2.106394E+00 1.587956E+00 7.552222E-02
-4.371547E+00 -2.106394E+00 -4.371547E+00 -6.119453E+00 2.569358E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.569358E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.569358E+01
160 1.600000E-01 48
 
Sort by date Sort by votes
Hi xwb

From this code I have, I am unable to read these highlighted arrays and place them in columns with headings such as (A,B,C....)

-4.342202E+04 2.745104E+03 -4.403020E+04 8.879340E+03 -5.290954E+04
0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.341588E+04
0.000000E+00 1.197946E+03 -5.170810E+04 5.290605E+04 0.000000E+00
0.000000E+00 0.000000E+00 0.000000E+00 1.688629E+04 0.000000E+00
0.000000E+00 0.000000E+00 9.000000E+01 9.000000E+01 9.000000E+01
0.000000E+00 5.751242E-01 0.000000E+00 0.000000E+00 0.000000E+00
2.929603E+00 3.688254E+00 -1.829384E+00 3.688254E+00 1.754018E+00
8.892383E-01 -1.829384E+00 8.892383E-01 -2.958248E+00 2.565536E+01
0.000000E+00 0.000000E+00 0.000000E+00 2.565536E+01 0.000000E+00
0.000000E+00 0.000000E+00 2.565536E+01

Regards
Lehloks
 
Upvote 0 Downvote
I'm not sure whether when pasting the data, the spaces have disappeared but I couldn't even get past the 3rd line of data. Best change to free format reads.
Code: 
program read_data
implicit none
integer stepno, arrsize
real steptime, datum, datum_1,datum_2,datum_3,datum_4
real, allocatable :: array(:)
real, allocatable :: charge(:)
integer, parameter:: iunit=20

open(iunit,file='STATIS',status='old')
read(iunit,*)
read(iunit,*)
do
   read(iunit,*,end=10) &
   stepno,steptime,arrsize
   print *, stepno, arrsize
   allocate(array(arrsize))
   read(iunit,*, end=10) array
   datum = array(36)
   datum_1 =array(37)
   datum_2 =array(38) 
   ! allocate(charge(arrsize))
   ! read(iunit,'(5f14.0)') array
   ! datum = array(38) 
   ! format(2x,'a=',f10.5,2x,'b=',f10.5,2x,'n=',i4,2x,'apot=',f20.15)
   ! WRITE(*,'(E10.6,8(2X,E10.6))')

   write(*,'(3(es14.6e2))') datum, datum_1, datum_2
   ! write(*,'(3(a,es14.6e2))') 'Step time =', &
   ! steptime,', datum =',datum,', datum_1 =',datum_1,', datum_2 =',datum_2 

   deallocate(array)
   ! deallocate(charge)
end do
10 continue
close(iunit)
end program read_data
 
Upvote 0 Downvote

Hi xwb

I think I can read the data with code you have given to me in the formate show below.

9730 48
-3.158270E+00 1.681992E-01 -3.158270E+00
-3.344015E+00 -3.651121E+00
9740 48
-3.651121E+00 9.135195E-01 -3.651121E+00
9750 48
-3.344015E+00 -1.446670E+00 -3.344015E+00
4.842322E-01 -1.850117E+00
9760 48

However I would prefer it to be to be like this:
9730 48 -3.158270E+00 1.681992E-01 -3.158270E+00 -3.344015E+00 -3.651121E+00

Best regards
Lehloks
 
Upvote 0 Downvote
You could try something like this if BACKSPACE is implemented. It is not very efficient but it will do the job

Code: 
program read_data
implicit none
integer stepno, arrsize
real steptime, datum, datum_1,datum_2,datum_3,datum_4
real, allocatable :: array(:)
real, allocatable :: charge(:)
integer, parameter:: iunit=20

open(iunit,file='STATIS',status='old')
read(iunit,*)
read(iunit,*)
do
   read(iunit,*,end=10) steptime,arrsize
   print *, stepno, arrsize
   allocate(array(arrsize))
   backspace(iunit)
   read(iunit,*, end=10) steptime, arraysize, array
   datum = array(36)
   datum_1 =array(37)
   datum_2 =array(38) 
   ! allocate(charge(arrsize))
   ! read(iunit,'(5f14.0)') array
   ! datum = array(38) 
   ! format(2x,'a=',f10.5,2x,'b=',f10.5,2x,'n=',i4,2x,'apot=',f20.15)
   ! WRITE(*,'(E10.6,8(2X,E10.6))')

   write(*,'(3(es14.6e2))') datum, datum_1, datum_2
   ! write(*,'(3(a,es14.6e2))') 'Step time =', &
   ! steptime,', datum =',datum,', datum_1 =',datum_1,', datum_2 =',datum_2 

   deallocate(array)
   ! deallocate(charge)
end do
10 continue
close(iunit)
end program read_data
 
Upvote 0 Downvote
Hi

I have tried it but nothing changes ,I still get the output in this format: I can read all data or array I want though but the output format is still the same.

9730 48
-3.158270E+00 1.681992E-01 -3.158270E+00
-3.344015E+00 -3.651121E+00
9740 48
-3.651121E+00 9.135195E-01 -3.651121E+00
9750 48
-3.344015E+00 -1.446670E+00 -3.344015E+00
4.842322E-01 -1.850117E+00
9760 48
Kind regards
Lehloks
 
Upvote 0 Downvote
Don't know what is your problem, because you are displying only 3 array elements:
datum = array(36), datum_1 =array(37), datum_2 =array(38)
Display all other elements you need.
 
Upvote 0 Downvote
Hi mikrom
Here is the code Im using as suggested by xwb:

BUT I would like to have my data in this format :
10 9.99999978E-03 48 3.688254E+00 1.754018E+00 8.892383E-01 8.879340E+03 and not in the format show below in the OUTPUT(OUTPUT DATA AFTER THE CODE)

Kind regards
Lehloks

program read_data
implicit none
integer stepno, arrsize
real steptime, datum, datum_1,datum_2,datum_3,datum_4
real, allocatable :: array:))
real, allocatable :: charge:))
integer, parameter:: iunit=20

open(iunit,file='STATIS',status='old')
read(iunit,*)
read(iunit,*)
do
read(iunit,*,end=20) stepno,steptime,arrsize
print *, stepno,steptime, arrsize
allocate(array(arrsize))
backspace(iunit)
read(iunit,*, end=20) arrsize, array
datum = array(36)
datum_1 =array(37)
datum_2 =array(38)
datum_4 = array(6)

write(*,'(3(es14.6e2))') datum, datum_1, datum_2,datum_4

deallocate(array)
end do
20 continue
close(iunit)
end program read_data


OUPUT:
10 9.99999978E-03 48
3.688254E+00 1.754018E+00 8.892383E-01
8.879340E+03
20 1.99999996E-02 48
3.817738E+00 7.371576E+00 -6.543485E-01
8.932975E+03
30 2.99999993E-02 48
6.071435E+00 7.364409E+00 -1.988894E+00
8.931365E+03
40 3.99999991E-02 48
7.424682E+00 5.195487E+00 -3.658003E+00
8.893358E+03
50 5.00000007E-02 48
3.178968E+00 1.982409E+00 -3.321507E-01
8.856416E+03
60 5.99999987E-02 48
1.749894E+00 1.376657E+00 -3.355454E+00
8.871264E+03
70 7.00000003E-02 48
3.260050E-01 3.135602E+00 1.086856E+00
8.878612E+03
80 7.99999982E-02 48
4.780251E+00 4.001642E+00 2.181758E+00
8.935455E+03
90 9.00000036E-02 48
8.515005E+00 -1.289925E+00 2.917594E+00
8.913111E+03
100 0.10000000 48
7.369906E+00 -2.826299E+00 1.206644E-02
8.938879E+03
110 0.11000000 48
4.261052E+00 1.117220E+00 -5.114345E-01
8.934787E+03
120 0.12000000 48
-1.927001E+00 2.023010E+00 -8.144502E-02
8.869902E+03
130 0.13000000 48
-3.316756E+00 8.701281E+00 2.452575E+00
"L" 3000L, 99000C 1,11 Top
 
Upvote 0 Downvote
Then instead of these 2 statements:
Code: 
print *, stepno,steptime,arrsize
write(*,'(3(es14.6e2))') datum,datum_1,datum_2,datum_4
try only:
Code: 
write(*,*) stepno,steptime,arrsize,datum,datum_1,datum_2,datum_4
 
Upvote 0 Downvote
Hi mikrom

It worked thanks a lot. You have been very helpful!!!

Best regards
Lehloks
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

W
  • Locked
  • Question
Failure to open a file that exists
Replies
7
Views
610
WillBryce
W
virk24
  • Locked
  • Question
Reading character up to ";" from a csv-file
Replies
3
Views
318
virk24
virk24
Vahid9
  • Locked
  • Question
Broadcasting a REAL number to another file
Replies
2
Views
328
Vahid9
Vahid9
95pdempsey
  • Locked
  • Question
Reading Data From File
Replies
1
Views
108
xwb
xwb
R
  • Locked
  • Question
How do I print a real number using GNU gfortran
Replies
3
Views
421
rdflg
R

Part and Inventory Search

Sponsor

Back
Top