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!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
format problem 1
- Thread starter TheKKK
- Start date
-
1
- #2
Hi TheKKK
You can do this in two ways:
character*1, x1,x2,x3,x4
integer*4 da,ma,ye,mi,se
real*4 fig
read (1,100) da,x1,ma,x2,ye,x3,mi,x4,se,fig
100 format(i2,a,i2,a,i4,a,i2,a,i2,f12.1)
... or ...
read (1,100) da,ma,ye,mi,se,fig
100 format(i2,1x,i2,1x,i4,1x,i2,1x,i2,f12.1)
You can do this in two ways:
character*1, x1,x2,x3,x4
integer*4 da,ma,ye,mi,se
real*4 fig
read (1,100) da,x1,ma,x2,ye,x3,mi,x4,se,fig
100 format(i2,a,i2,a,i4,a,i2,a,i2,f12.1)
... or ...
read (1,100) da,ma,ye,mi,se,fig
100 format(i2,1x,i2,1x,i4,1x,i2,1x,i2,f12.1)
- Status