又一次相信存在即是合理的!超算中心的x64_blades刀片部分作业队列限制CPU核心数必须大于70,而当我需要10-70个核的时候,不能直接提交作业,于是。。。于是。。。
原来空闲的进程也是有它的作用的,正如某些xxxx,这个社会太邪恶了。。。下面的程序会有所启发
program lltest
implicit none
include 'mpif.h'
integer myid, numprocs, ierr
call MPI_INIT(ierr)
call MPI_COMM_RANK(MPI_COMM_WORLD, myid, ierr)
! call MPI_COMM_SIZE(MPI_COMM_WORLD, numprocs, ierr)
numprocs = 5
if(myid.le.numprocs-1) then
print *,'This is ',myid
endif
call MPI_Barrier(MPI_COMM_WORLD,IERR)
call MPI_FINALIZE(ierr)
end
[scwangj@v3903 simple]$ mpif90 -o numprocs numprocs.F
[scwangj@v3903 simple]$ mpiexec -n 20 ./numprocs
This is 1
This is 3
This is 0
This is 2
This is 4
[scwangj@v3903 simple]$