| 47 这个算法的HPF程序摘要 |
 
|
- !全局变量的说明
- module nbodyvars
- real, dimension ( : , : ), allocatable :: X, V, M
- integer NB !;粒子数
- real G
- end module
- !分配数组
- subroutine setup ( )
- use nbodyvars
- open (10, file=fnm, status="OLD")
- read (10, *) NB
- allocate (X (3, NB))
- allocate (V (3, NB))
- . . .
- end subroutine
| Copyright: NPACT |
|