知識の箱

===========================================
・新しいコマンド
integer / real / character

・新しいサブコマンド
len
===========================================

!——————————————
! sample program 002
!——————————————
program sample002
implicit none

integer :: i, j

real :: r, s

character(len=10) :: c1, c2, c3, c4

i = 1

j = 2

r = 1.5

s = 2.5

c1 = ‘number i =’
c2 = ‘number j =’
c3 = ‘number r =’
c4 = ‘number s =’

write(unit=6,fmt=*) c1, i
write(unit=6,fmt=*) c2, j
write(unit=6,fmt=*) c3, r
write(unit=6,fmt=*) c4, s

stop
end program sample002
!——————————————