1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
c Exercise 1-1
c 機械工学科 1年 xxxxxxx my name
c Filename = enshu01-1.f
a=2.4
b=-1.5
c=3.5
x=2.8
d1=
d2=
d3=
d4=
d5=
write(*,*) ' d1= ',d1
write(*,*) ' d2= ',d2
write(*,*) ' d3= ',d3
write(*,*) ' d4= ',d4
write(*,*) ' d5= ',d5
stop
end
|