!------------------------------------------------------------------------
module Pamiec_wspolna
   real :: suma1, suma2	
end module
!------------------------------------------------------------------------
program test
   Use Pamiec_wspolna
   integer*4 ::  lba_proc, PSL_tcpus, par_we
   external sub
 
   call PSL_init()
   lba_proc=PSL_tcpus()
   print*,'liczba procesorow: ',lba_proc
   suma1=0.; suma2=0.
   par_we = 1.
   call PSL_pcall(sub,1,par_we)
   print*,' Suma koncowa_1: ',suma1,' Suma koncowa_2: ', suma2
end

!------------------------------------------------------------------------
subroutine sub(lsub,ncpus,par) 
   Use Pamiec_wspolna
   integer*4 :: lsub, ncpus, zlok, par
 
   zlok=par+lsub
   call PSL_bcs(lsub)
   suma1=suma1+lsub
   suma2=suma2+zlok
 
   print*,'Zglasza sie procesor: ',lsub,', suma_wy_1:  ', &
                          suma1, ' # zm. lok.: ', zlok, &
                          ', suma_wy_2:  ', suma2
   call PSL_ecs(lsub)
end