module typedef
implicit none
type ::player
real:: angle
real:: speed
real:: distance
end type
end module
program main
use shoot
implicit none
integer,parameter::players=2
type(player)::people(players)=(/player(30.0,25.0,0.0),player(45.0,20.0,0.0)/)
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |