particle_function.f90

来自「visual fortran 源码」· F90 代码 · 共 21 行

real function dfunc(x1,x2,x3,x4,x5,x6,j)
real x1,x2,x3,x4,x5,x6
integer j
select case(j)
case(1)
dfunc=1
case(2)
dfunc=1
case(3)
dfunc=0
case(4)
dfunc=1
case(5)
dfunc=1
case(6)
dfunc=0
case default
write(*,*) "data error!"
end select
return
end function dfunc