randomsel.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	__randomsel.f__
subroutine	cgethes (from)

Function/Subroutine Documentation

__randomsel.f__()

program __randomsel.f__

(

)

Definition at line 7 of file randomsel.f.

References c, cerrormsg(), cgethes(), false, i, klena(), ksplit(), p, and true.

      integer num, cumnum, irevent(2), i,  nr, ndev, withir, nev

Here is the call graph for this function:

cgethes()

subroutine cgethes

(

integer

from

)

Definition at line 104 of file randomsel.f.

References o.

      implicit none
#include "Zprivate.h"
      integer from
!

      integer i

      read(from) np
      if(copy) then
         write(mdev) np
      endif
      do i = 1, np
         read(from) o(i)
         if(copy) then
            write(mdev) o(i)
         endif
      enddo