Lines Matching refs:MAXSURF
32 real*8 ftots(3,0:MAXSURF),ftot(3),spmasstot(0:MAXSURF),spmasss
45 call MPI_ALLREDUCE (flxID(3,:), Ftots(1,:),MAXSURF+1,
47 call MPI_ALLREDUCE (flxID(4,:), Ftots(2,:),MAXSURF+1,
49 call MPI_ALLREDUCE (flxID(5,:), Ftots(3,:),MAXSURF+1,
51 call MPI_ALLREDUCE (flxID(2,:), spmasstot(:),MAXSURF+1,
63 ftot(1)=sum(Ftots(1,0:MAXSURF))
64 ftot(2)=sum(Ftots(2,0:MAXSURF))
65 ftot(3)=sum(Ftots(3,0:MAXSURF))
282 real*8 ftots(3,0:MAXSURF),ftot(3),spmasstot(0:MAXSURF),spmasss
295 call MPI_ALLREDUCE (flxID(3,:), Ftots(1,:),MAXSURF+1,
297 call MPI_ALLREDUCE (flxID(4,:), Ftots(2,:),MAXSURF+1,
299 call MPI_ALLREDUCE (flxID(5,:), Ftots(3,:),MAXSURF+1,
301 call MPI_ALLREDUCE (flxID(2,:), spmasstot(:),MAXSURF+1,
309 ftot(1)=sum(Ftots(1,0:MAXSURF))
310 ftot(2)=sum(Ftots(2,0:MAXSURF))
311 ftot(3)=sum(Ftots(3,0:MAXSURF))