FORMAT

 

!Program name: FORMAT

!Use of FORMAT statement

Real*8 X/1.23/,Y/53./

Integer a, b, c

Real*8 d, e, f

a= -1024

b= 999

c= 124438

d= 3.14159

e= -96.4

f= 256.4578E-02

    J=37

    Write(6,10) J,X,Y

10 Format(1X,I3/'X=',T7,F5.2/D8.2)

   Print *,

   Write (*,20) 'The area is', X

20 format (a,f8.5)

   Print *,

   Write (*,30) X,Y,J

30 format (t10,f4.2,/,t10,f6.2,/,t20,i4)

   Print *,

   Write (*,’( I10, I10, I10)’) a, b, c

   Write (*,’( 3I10.8)’), a, b, c

   Print *,

   Write (*,’(F7.2, F7.2, F7.2)’) d, e ,f

   Write (*,’( 3F7.4)’)

    stop

End

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA