drawRigCut.f

Go to the documentation of this file.

      implicit none
#include "Zmanagerp.h"
#include "ZrigCut.h"

      character*80 file
      real*8 rigcut, azm, zen, maxZ
!
      file = '../Contrib/Data/Cutoff/Kamioka'
      write(errorout, *) ' enter file name=',file
      read(*, *) file
      call crigcut0(file)
      maxz = minzen + dzen * ( zensize -1 )
      do azm = minazm, 360.00001d0, 5.d0
         do zen = minzen, maxz, dzen/2.
            call cgetrigcut(azm, zen, rigcut)
            write(*, *) sngl(azm), sngl(zen), sngl(rigcut)
         enddo
         write(*, *)
      enddo
      end