src/ness/nesobj_slit.inc

Fortran project RESTRAX, source module src/ness/nesobj_slit.inc.

Source module last modified on Wed, 13 Jul 2005, 16:20;
HTML image of Fortran source automatically generated by for2html on Mon, 29 May 2006, 15:06.


      INCLUDE 'ness_com.inc'
      
      integer*4 lhint,id_slit,nlist   ! ,SLIT_SIZE
      character*4 t_slit
      parameter(id_slit=1, t_slit= 'SLIT')
      parameter(lhint=60)
      character*5 slitcomm(6)
      character*(lhint) slithint(6)
      common /slitlist/ slitcomm,slithint,nlist
      STRUCTURE /SLIT/
        character*32  name
        real*8 dist,axi,axv
        real*8 size(3),sta(3),gon(3)
        real*8 pos(3),rot(3,3),rot1(3,3)
        logical*4 map(3),map1(3),simple
        integer*4 count  
        integer*4 shape
          integer*4 ndum  ! dummy integer for data alignment
      end structure     
#      PARAMETER (SLIT_SIZE=336)