select.f File Reference

Go to the source code of this file.

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

Function/Subroutine Documentation

__select.f__()

program __select.f__

(

)

Definition at line 7 of file select.f.

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

      integer num, cumnum, irevent(2), i,  nr, firstev, lastev

Here is the call graph for this function:

cgethes()

subroutine cgethes

(

integer

from

)

Definition at line 77 of file select.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