ranseeascii.f File Reference

Go to the source code of this file.

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

Function/Subroutine Documentation

__ranseeascii.f__()

program __ranseeascii.f__

(

)

Definition at line 7 of file ranseeascii.f.

References c, cerrormsg(), cgethes(), false, i, klena(), ksplit(), p, toasciic(), toasciih(), toasciin(), 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 93 of file ranseeascii.f.

References o, toasciihe(), and toasciinp().

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

      integer i

      read(from) np
      if(copy) then
         call toasciinp(np)
      endif
      do i = 1, np
         read(from) o(i)
         if(copy) then
            call toasciihe(o(i))
         endif
      enddo

Here is the call graph for this function: